You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
38 lines
1.3 KiB
38 lines
1.3 KiB
'
|
|
' 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
|