vb Code:
Const HKEY_LOCAL_MACHINE = &H80000002
Set oreg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strkeypath = "SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}"
oreg.Enumkey HKEY_LOCAL_MACHINE, strkeypath, arrSubKeys, arr
For Each subkey In arrSubKeys
oreg.enumvalues HKEY_LOCAL_MACHINE, strkeypath & "\" & subkey, arrvals, aaa
If Not IsNull(arrvals) Then
For j = 0 To UBound(arrvals)
If arrvals(j) = "DriverDesc" Then
oreg.getstringvalue HKEY_LOCAL_MACHINE, strkeypath & "\" & subkey, arrvals(j), myvalue
MsgBox myvalue
Exit For
End If
Next
End If
Next
MsgBox "finish"