Enumerating property values within WMI

Hello,

I'm trying to write a function that will display, in a message box, the
enumerated property names and values of the passed in Win32 class name. The
function is as follows:

Function displayClassPropertyNames(ByVal className As String)
Dim mc As New ManagementClass(className)
Dim pdc As PropertyDataCollection = mc.Properties
Dim pd As PropertyData
Dim propertyName As String
Dim propertyValue As String
Dim msg As String
For Each pd In pdc 'repeat through each piece of property data in
the property data collection
propertyName = pd.Name 'grab the name of the current property in
the collection
propertyValue = pd.Value 'grab the value of the current property
in the collection
msg = "Property Name = " & propertyName & vbCrLf & "Property
Value = " & propertyValue
MsgBox(msg)
Next
End Function
When I run this function and pass it Win32 class name like:

displayClassPropertyNames("ManagementObjectCollect ion")

The messagebox displays the property names perfectly but for some reason the
values for every property are empty. I know I must be doing something
incorrectly but I am very new at VB.NET coding so I'm not sure exactly
what's the problem.

Any suggestions or help would be very appreciative.

Best Regards,

devin