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