Drucker umbenennen per VBS

Hallo,

ich möchte auf einem Windows 2008 Server die gemappten Drucker über ein VB Skript umbenennen. Das gelingt auch teilweise - ich schaffe es, generell Drucker umzubenennen, jedoch NIE die gemappten Drucker deren Name ungefähr "HP Laserjet 5 (umgeleitet 3)" lautet.

Mein einfaches Skript:

Set objWMIService = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\"  & strComputer & "\root\cimv2")


Set printers =  objWMIService.ExecQuery("Select * From Win32_Printer")


For Each printer in printers

   printer.RenamePrinter("Test " & i & " " & strUser)

   printer.Put_

Next

Es kommt immer eine Fehlermeldung "Access denied" mit einer langen Zahlenfolge, wenn ich versuche die umgeleiteten Drucker umzubenennen. Das Skript wird als Domänenadmin ausgeführt.

Für jede Hilfe wäre ich dankbar!