This is a very generic example but it should point you in the right direction:
Option Explicit
WScript.Echo ListAllProps(".", "WIN32_Process")
Function ListAllProps(strComputer, strClass)
Dim oWMISvc
Dim colInstances
Dim oInstance
Dim oProp
Dim strVal
Dim strReturn
Set oWMISvc = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colInstances = oWMISvc.ExecQuery("Select * from " & strClass,,48)
For Each oInstance in colInstances
For Each oProp In oInstance.Properties_
If IsNull(oProp.Value) Then
strVal = "NULL"
Elseif oProp.IsArray Then
strVal = "ARRAY: " & Join(oProp.Value, ";")
Else
strVal = oProp.Value
End If
strReturn = strReturn & oProp.Name & ": " & strVal & VbCrLf
Next
strReturn = strReturn & "**************************************" & VbCrLf & VbCrLf
Next
ListAllProps = strReturn
End Function
[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]