$remotepc="."
$Service=GetObject("winmgmts:{impersonationLevel=impersonate}!" + $remotepc + "\root\cimv2")
$Printers=$service.execquery ('select * from Win32_Printer')
for each $printer in $printers
  ? $printer.name
  if $printer.name="Microsoft Office Document Image Writer"
    $printer.renameprinter("MS Office Document Image Writer")
  endif
next