VBScript, как обнаружить подключенное оборудование?

Question

Я попытался найти, но я не могу найти ничего, кроме обнаружения USB. Я хочу сделать скрипт, который определяет, когда к порту динамика и микрофона подключено устройство. Возможно ли это сделать? Запустите скрипт (некоторые другие вещи), например, когда вы подключите гарнитуру.

Answer 1

Вы должны иметь возможность вызывать скрипт, выполняя запрос статуса после вызова WMI Class Win32_bus Class

On Error Resume Next 

strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 

Set colItems = objWMIService.ExecQuery("Select * from Win32_Bus") 
For Each objItem in colItems 
 WScript.Echo("Availability: " + objItem.Availability); 
 WScript.Echo("Status: " + objItem.Status); 
Next

Прочитайте эту страницу для большей ясности: классы аппаратного обеспечения компьютера