Fonction : Script vbs lister drivers

Script VBS pour lister les drivers installés sur un poste

Ressource : http://msdn.microsoft.com/en-us/library/aa394354(v=vs.85).aspx

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" &amp; strComputer &amp; "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PnPSignedDriver")
For Each objItem in colItems
 Wscript.Echo "Device ID : " &amp; objItem.DeviceID
 Wscript.Echo "Device Name : " &amp; objItem.DeviceName
 Wscript.Echo "Driver Version: " &amp; objItem.DriverVersion
 Wscript.Echo "INF Name : " &amp; objItem.InfName
 Wscript.Echo "Class : " &amp; objItem.DeviceClass
 Wscript.Echo
Next

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_PnPSignedDriver")

For Each objItem in colItems

Wscript.Echo "Device ID : " & objItem.DeviceID

Wscript.Echo "Device Name : " & objItem.DeviceName

Wscript.Echo "Driver Version: " & objItem.DriverVersion

Wscript.Echo "INF Name : " & objItem.InfName

Wscript.Echo "Class : " & objItem.DeviceClass

Wscript.Echo

Laisser un commentaire Annuler la réponse.

david on 9 août 2018 à 19 h 15 min

Cet article a été créé par david le 26 décembre 2016.