12 lines
310 B
12 lines
310 B
on error resume next
|
|
Set objISWbemPropertySet = GetObject("winmgmts:{impersonationLevel=impersonate}!root/cimv2:Win32_LogicalDisk=""C:""").Properties_
|
|
|
|
for each property in objISWbemPropertySet
|
|
WScript.Echo property.Name
|
|
next
|
|
|
|
if err <> 0 then
|
|
WScript.Echo "Error"
|
|
else
|
|
Wscript.Echo "OK"
|
|
end if
|