Sie können die WMI-Klasse win32_PnPEntity verwenden. Hier durchlaufen wir nur die Geräte, die diese Beschreibung haben:
strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PnPEntity") For Each objItem In colItems If InStr(1, objItem.Description, "Realtek USB FE Family Controller", 1) > 0 Then CreateObject("wscript.shell").run("""C:\RTK_NIC_DRIVER_INSTALLER.sfx.exe"""),0 End If Next
Wenn dies nicht funktioniert, müssen Sie möglicherweise auch objItem.Present oder objItem.Status testen