Lister les drivers d'impression de serveurs

ListeMachines = "."
'ListeMachines = "NomMachine01;NomMachine02;NomMachine03"

TableauMachines = Split(ListeMachines,";")

Wscript.Echo "MachineName" & VbTab & "Driver name" & VbTab & "DriverPath"  & VbTab & "SupportedPlatform"  & VbTab & "Version"
For each strComputer in TableauMachines

	Err.Clear
	On Error Resume Next
	Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
	If Err.number = 0 Then
		Set colPrinters = objWMIService.ExecQuery ("Select * From Win32_PrinterDriver")

		For Each objPrinterDriver in colPrinters
		    Wscript.Echo strComputer & VbTab & objPrinterDriver.Name & VbTab & objPrinterDriver.DriverPath  & VbTab & objPrinterDriver.SupportedPlatform  & VbTab & objPrinterDriver.Version
		Next
		Set objWMIService = Nothing
	End If

Next