25 lines
760 B
Plaintext
25 lines
760 B
Plaintext
'
|
|
' hardware.vbs
|
|
'
|
|
' collect information about all files currently being used by drivers
|
|
'
|
|
SET WshShell = WScript.CreateObject("WScript.Shell")
|
|
SET DevCon = WScript.CreateObject("DevCon.DeviceConsole")
|
|
SET Devs = DevCon.DevicesByInterfaceClasses("{86e0d1e0-8089-11d0-9ce4-08003e301f73}")
|
|
|
|
Count = Devs.Count
|
|
Wscript.Echo "Serial: Count="+CStr(Count)
|
|
|
|
'on error resume next
|
|
|
|
FOR EACH Dev IN Devs
|
|
PortName = Dev.RegRead("HW\PortName")
|
|
WScript.Echo PortName + " : " + Dev.Description
|
|
IF Dev.HasInterface("{4d36e978-e325-11ce-bfc1-08002be10318}") THEN
|
|
WScript.Echo " " + "Has serial enumerator"
|
|
END IF
|
|
IF Dev.HasInterface("{86e0d1e0-8089-11d0-9ce4-08003e301f73}") THEN
|
|
WScript.Echo " " + "Has serial port"
|
|
END IF
|
|
NEXT
|