alias wmitest {
.comopen locator WbemScripting.SWbemLocator
.comclose locator $com(locator,ConnectServer,3,bstr,.,bstr,root\cimv2,dispatch* class)
.comclose class $com(class,InstancesOf,3,bstr,Win32_OperatingSystem,dispatch* properties)
;.comclose class $com(class,ExecQuery,3,bstr,select * from Win32_OperatingSystem,dispatch* properties)
var %x = $comval(properties,0,Properties_)
echo -a Instances of Properties_: %x
while (%x) {
echo -a Instance %x $+ : $comval(properties,%x,Properties_)
dec %x
}
.comclose properties
}