Vista - Using renameprinter to change a printer name on Server 2008

I am trying to change the names of printers on Windows Server 2008. The
script works on XP and should work on Server 2008 but it isn't. Here is the
script...

Dim EndPos

strComputer = "."

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


Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer Where
DeviceID Like '%redirected%'")

For Each objPrinter in colPrinters
EndPos = InStr(objPrinter.name,"redirected") -1
objPrinter.name = Left(objPrinter.name, EndPos) & "redirected)"
msgbox objprinter.name
'objPrinter.RenamePrinter(objPrinter.name)
Next


Any ideas how to fix this"?
--
Thanks!

Anyone?

"Saucer Man" <saucerman@xxxxxx> wrote in message
news:49070da9$0$5734$cc2e38e6@xxxxxx

If your statement spans multiple rows, you should end your statement with a _
or put the full statement on 1 row.

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

Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer Where _
DeviceID Like '%redirected%'")

Sander Verroen schrieb:==>
Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer Where " _
& "DeviceID Like '%redirected%'")

I do have the statements on 1 line. It just looks like two here in the
post. Thanks.


"ekkehard.horner" <ekkehard.horner@xxxxxx> wrote in message
news:4964708c$0$31871$9b4e6d93@xxxxxx-online.net...

Saucer Man schrieb:I just pointed out the typo in Sander Verroen's second code snippet. So I
don't deserve your thanks. (You are welcome anyway)