alias procload {
.comopen p WbemScripting.SWbemLocator
noop $com(p,ConnectServer,3,dispatch* d)
noop $com(d,ExecQuery,3,bstr*,select * from Win32_Processor,dispatch* r)
var %a 1
while ($comval(r,%a,Name)) var %r = $addtok(%r,$+($chr(32),Load percentage for $v1,: $comval(r,%a,LoadPercentage),%),44),%a = %a + 1
:error
if ($com(p)) .comclose p
if ($com(d)) .comclose d
if ($com(r)) .comclose r
return %r
}