Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

17 lines
431 B

  1. on error resume next
  2. while true
  3. Set ObjectPath = CreateObject("WbemScripting.SWbemObjectPath")
  4. ObjectPath.Server = "hah"
  5. ObjectPath.Class = "ho"
  6. ObjectPath.Keys.Add "fred1", 10
  7. ObjectPath.Keys.Add "fred2", -34
  8. ObjectPath.Keys.Add "fred3", 65234654
  9. ObjectPath.Keys.Add "fred4", "Wahaay"
  10. ObjectPath.Keys.Add "fred5", -786186777
  11. if err <> 0 then
  12. WScript.Echo err.number
  13. end if
  14. WScript.Echo ObjectPath.Path
  15. wend