12 display "Error " & err.number & ": " & msg
14 if err.description <> "" then
15 display err.description
18 wscript.quit err.number
21 dim net, server, service, enumerator, instance, loadavg, locator, namespace
23 ' Get localhost's name
24 set net = CreateObject ("Wscript.Network")
25 server = net.ComputerName
27 set locator = CreateObject ("WbemScripting.SWbemLocator")
29 checkError "Unable to create locator object"
31 ' Connect to the namespace which is either local or remote
32 set service = locator.ConnectServer (server, namespace, "", "")
34 checkError "Unable to connect to server " & server
36 service.Security_.impersonationlevel = 3
38 set enumerator = service.InstancesOf ("Win32_Processor")
40 checkError "Unable to query Win32_Processor"
44 for each instance in enumerator
45 if not (instance is nothing) then
46 if instance.LoadPercentage <> "" then
47 loadavg = loadavg + instance.LoadPercentage