strComputer = "."
strNewName = "uuu"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("SELECT * FROM Win32_Printer")
For Each objPrinter in colInstalledPrinters
If objPrinter.Attributes and 4 then
objPrinter.RenamePrinter strNewName
end if
Next

Almeno credo...