Wmi Registry

[farah]

this is my code ... i m having problem in enumerating the Main key like (HKEY_CLASSES_ROOT)..

error messeg "Invalid Parameters"



objManagementBaseObject = objManagementClass.GetMethodParameters("EnumKey")
objManagementBaseObject.SetPropertyValue("hDefKey", CType("&H" & Hex(RegistryHive.LocalMachine), Long))
aSubKeys = CType(objManagementClass.InvokeMethod("EnumKey", objManagementBaseObject, Nothing).Properties.Item("sNames").Value, String())
For Each strkey In aSubKeys
myKey = strkey
ListView1.Items.Add(myKey)
Next