Você deve ser capaz de invocar um script executando uma consulta de status depois de chamar Classe WMI Classe Win32_bus
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
Leia esta página para obter mais clareza: Classes de hardware do sistema de computador