Returns information about the computer bus.
On Error Resume NextstrComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set colItems = objWMIService.ExecQuery("Select * from Win32_Bus")For Each objItem in colItemsWscript.Echo "Bus Number: " & objItem.BusNumWscript.Echo "Bus Type: " & objItem.BusTypeWscript.Echo "Description: " & objItem.DescriptionWscript.Echo "Device ID: " & objItem.DeviceIDWscript.Echo "Name: " & objItem.NameWscript.Echo "PNP Device ID: " & objItem.PNPDeviceIDNext
This is a VB Script, this can be used by saving the file in .vbs file