alias cpuload {
  var %a = a $+ $ticks, %b = b $+ %a
  .comopen %a WbemScripting.SWbemLocator
  if $comerr { return COM Error }
  .comclose %a $com(%a,ConnectServer,1,dispatch* %b) 
  if $com(%b) { .comclose %b $com(%b,ExecQuery,1,bstr*,$&
    SELECT loadpercentage FROM Win32_Processor,dispatch* %a) }
  if !$com(%a) { return COM Error }
  %b = $comval(%a,1,loadpercentage)
  .comclose %a
  return %b
}