code as under

lcClass = "Win32_Printer"

oWMI = getobject("winmgmts:")

oItems = oWMI.ExecQuery("select * from " + lcClass)
oEmpty = CREATEOBJECT("oEmpty")

AddProperty(oEmpty, cName, vValue)
FOR EACH oProperty IN oItem.Properties_

cName = oProperty.Name

IF oProperty.IsArray
vValue = "[Array]"
ELSE
vValue = oProperty.value
ENDIF
ENDFOR

I Collect Info some WMI Calss.