clearadm/load.vbs

   1 option explicit
   2
   3 sub display (msg)
   4   wscript.echo msg
   5 end sub
   6
   7 sub checkError (msg)
   8   if err.number = 0 then
   9     exit sub
  10   end if
  11
  12   display "Error " & err.number & ": " & msg
  13
  14   if err.description <> "" then
  15     display err.description
  16   end if
  17
  18   wscript.quit err.number
  19 end sub
  20
  21 dim net, server, service, enumerator, instance, loadavg, locator, namespace
  22
  23 ' Get localhost's name
  24 set net = CreateObject ("Wscript.Network")
  25 server  = net.ComputerName
  26
  27 set locator = CreateObject ("WbemScripting.SWbemLocator")
  28
  29 checkError "Unable to create locator object"
  30
  31 ' Connect to the namespace which is either local or remote
  32 set service = locator.ConnectServer (server, namespace, "", "")
  33
  34 checkError "Unable to connect to server " & server
  35
  36 service.Security_.impersonationlevel = 3
  37
  38 set enumerator = service.InstancesOf ("Win32_Processor")
  39
  40 checkError "Unable to query Win32_Processor"
  41
  42 loadavg = 0
  43
  44 for each instance in enumerator
  45   if not (instance is nothing) then
  46     if instance.LoadPercentage <> "" then
  47       loadavg = loadavg + instance.LoadPercentage
  48     end if
  49   end if
  50 next
  51
  52 display loadavg