18 lines
431 B
Plaintext
18 lines
431 B
Plaintext
on error resume next
|
|
while true
|
|
Set ObjectPath = CreateObject("WbemScripting.SWbemObjectPath")
|
|
ObjectPath.Server = "hah"
|
|
ObjectPath.Class = "ho"
|
|
ObjectPath.Keys.Add "fred1", 10
|
|
ObjectPath.Keys.Add "fred2", -34
|
|
ObjectPath.Keys.Add "fred3", 65234654
|
|
ObjectPath.Keys.Add "fred4", "Wahaay"
|
|
ObjectPath.Keys.Add "fred5", -786186777
|
|
|
|
if err <> 0 then
|
|
WScript.Echo err.number
|
|
end if
|
|
|
|
WScript.Echo ObjectPath.Path
|
|
wend
|