15 lines
324 B
Plaintext
15 lines
324 B
Plaintext
on error resume next
|
|
|
|
set inst = GetObject("winmgmts:{impersonationLevel=impersonate}!)
|
|
|
|
result = inst.EnumManufacturers (strMfgArray)
|
|
|
|
for i=0 to UBound(strMfgArray) - 1
|
|
WSCript.Echo strMfgArray (i)
|
|
next
|
|
|
|
if err <>0 then
|
|
WScript.Echo Hex(Err.Number)
|
|
else
|
|
WScript.Echo "Returned result is " & result
|
|
end if |