crlf = '0D0A'x

strcomputer = "."

locator = .OLEObject~new("WbemScripting.SWbemLocator")
service = locator~connectServer(strcomputer, "root\aspnet")
ob = service~Get("__ClassOperationEvent")
objset = ob~Instances_
Do obj over objset
	Do prop over obj~Properties_
        
		Value = GetValue(prop~Name,obj~GetObjectText_)
		if Length(Value) > 0 THEN Do
			if prop~CIMType = 101 THEN Do
				Value = DateTime(Value)
			End

			say prop~name || ": " || Value

		End
	End
End

GetValue:

Parse Arg name, tempstr

name = name || " = "
 
P  = Pos(name, tempstr)

if (P > 0) THEN Do
   P = P + Length(name)
   tempstr = SubStr(tempstr, P-1, Length(tempstr))
   p  = Pos( ";", tempstr)
   tempstr = substr(tempstr, 1, P-1)
   tempstr = changestr("{", tempstr, "")
   tempstr = changestr("}", tempstr, "")
   tempstr = changestr('"', tempstr, "")
   return tempstr~strip
End
ELSE Do
   return ""
End


DateTime:

Parse Arg Value

Value = substr(Value, 5,2) || "/" || substr(Value, 7,2) || "/" || substr(Value, 1, 4) || " " || substr(Value, 9,2) || ":" || substr(Value, 11,2) || ":" || substr(Value, 13,2)
return Value


:: requires "OREXXOLE.CLS"