39 lines
1.3 KiB
Plaintext
39 lines
1.3 KiB
Plaintext
|
'
|
||
|
|
' test8.vbs
|
||
|
|
'
|
||
|
|
' get current driver
|
||
|
|
'
|
||
|
|
|
||
|
|
SET WshShell = WScript.CreateObject("WScript.Shell")
|
||
|
|
SET DevCon = WScript.CreateObject("DevCon.DeviceConsole")
|
||
|
|
SET Devs = DevCon.DevicesBySetupClasses("NET")
|
||
|
|
|
||
|
|
Count = Devs.Count
|
||
|
|
Wscript.Echo "net: Count="+CStr(Count)
|
||
|
|
|
||
|
|
'on error resume next
|
||
|
|
|
||
|
|
FOR EACH Dev IN Devs
|
||
|
|
WScript.Echo Dev + ": " + Dev.Description
|
||
|
|
Set Driver = Dev.CurrentDriverPackage
|
||
|
|
IF NOT (Driver IS Nothing) THEN
|
||
|
|
WScript.Echo "Driver: "+Driver.ScriptFile+" [" + Driver.ScriptName+"]"
|
||
|
|
WScript.Echo "Device Description: "+Driver.Description
|
||
|
|
WScript.Echo "Driver Description: "+Driver.DriverDescription
|
||
|
|
WScript.Echo "Provider: "+Driver.Provider
|
||
|
|
WScript.Echo "Manufacturer: "+Driver.Manufacturer
|
||
|
|
WScript.Echo "Date: "+FormatDateTime(Driver.Date,vbLongDate)
|
||
|
|
WScript.Echo "Version: "+Driver.Version
|
||
|
|
WScript.Echo "Hardware IDs: "+Join(Driver.HardwareIds," ")
|
||
|
|
WScript.Echo "Compatible IDs: "+Join(Driver.CompatibleIds," ")
|
||
|
|
WScript.Echo "Driver files: "+Join(Driver.DriverFiles," ")
|
||
|
|
WScript.Echo "Manifest: "+Join(Driver.Manifest," ")
|
||
|
|
END IF
|
||
|
|
NEXT
|
||
|
|
|
||
|
|
SET Dev = nothing
|
||
|
|
SET Driver = nothing
|
||
|
|
SET Devs = nothing
|
||
|
|
SET DevCon = nothing
|
||
|
|
SET WshShell = nothing
|