Adaptation vbs W2003 vers W2000

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