12 lines
224 B
Plaintext
12 lines
224 B
Plaintext
on Error resume next
|
|
|
|
Set c = GetObject("winmgmts://./root/cimv2:win32_logicaldisk")
|
|
d = c.Derivation_
|
|
|
|
for x = LBound(d) to UBound(d)
|
|
WScript.Echo d(x)
|
|
Next
|
|
|
|
if err <> 0 then
|
|
WScript.Echo Err.Description
|
|
end if |