Bonjour,
le script suivant fonctionne sur W2003 et pas sur W2000.
Que dois faire pour le faire fonctionner sous W2000 ??
StrFileName = "C:\drivers.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFSO.CreateTextFile(StrFileName, 2, True)
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_PrinterDriver")
For each objPrinter in colInstalledPrinters
objLogFile.Write objPrinter.Name
objLogFile.Writeline
Next
objLogFile.Close
Merci
