Vbsedit includes all these samples. Try it now!



' List Drive Types


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")

For Each objDisk in colDisks
Wscript.Echo "DeviceID: "&; objDisk.DeviceID
Select Case objDisk.DriveType
Case 1
Wscript.Echo "No root directory. Drive type could not be " _
& "determined."
Case 2
Wscript.Echo "DriveType: "&; "Removable drive."
Case 3
Wscript.Echo "DriveType: "&; "Local hard disk."
Case 4
Wscript.Echo "DriveType: "&; "Network disk."
Case 5
Wscript.Echo "DriveType: "&; "Compact disk."
Case 6
Wscript.Echo "DriveType: "&; "RAM disk."
Case Else
Wscript.Echo "Drive type could not be determined."
End Select
Next


VbsEdit includes all these samples!


VbsEdit now supports .vbs, .js, .wsf and .hta scripts.
The evaluation version never expires.




Home  

Copyright © 2001-2018 Adersoft