On Error Resume Next

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

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