Вы можете использовать класс WMI win32_PnPEntity. Здесь мы просто перебираем и проверяем устройства с таким описанием:
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
Если это не сработает, вам также может понадобиться проверить objItem.Present или objItem.Status