- strComputer = "."
- const x=1073741824
- Set objWMIService = GetObject("winmgmts:\\" &
-
- strComputer & "\root\CIMV2")
- Set colItems = objWMIService.ExecQuery( _
- "SELECT * FROM Win32_LogicalDisk",,48)
- For Each objItem in colItems
- if (objItem.Caption=E) then
- msgbox "exist E"
- else
- msgbox "not exist E"
- end if
- Next
复制代码
|