![]() Loading |
VBScript |
JavaScript |
Powershell |
Search Options: Determine Whether a Computer Has Any USB 2.0 Ports
|
||
strComputer = "."
i = 0 Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colControllers = objWMIService.ExecQuery _ ("Select * From Win32_USBController") For Each objController in colControllers If Instr(objController.Name, "Enhanced") Then i = i + 1 End If Next Wscript.Echo "No. of USB 2.0 Ports: " & i | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: |