Rexx WMI Example using InstancesOf

You can download the scripting program for generating these scripts at:

http://www.planetmps.com/wmiscriptsinstancesof.html

locator = .OLEObject~new("WbemScripting.SWbemLocator")
svc = locator~ConnectServer(".", "root\cimv2")
svc~Security_~AuthenticationLevel = 0
svc~Security_~ImpersonationLevel = 3
objs = svc~InstancesOf("Win32_Process")
do obj over objs
    do prop over obj~Properties_
    end
exit
end