Devo cambiare il nome alla stampate di default ogni volta che faccio il login su windows server 2003 (mi serve per gli utenti in remoto che usano terminal services, il nome delle loro stampanti risulta troppo lungo e non funziona in applicazioni vecchie).
Ho provato questo script:

strComputer = "."
strOldName = "1"
strNewName = "uuu"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("SELECT * FROM Win32_Printer WHERE Name='" & strOldName & "'")
For Each objPrinter in colInstalledPrinters

objPrinter.RenamePrinter strNewName

Next

funziona bene, però vorrei cambiare il nome della stampante di default e non il nome di una precisa stampante. Cioè vorrei fare: cambia nome della "DefaultPrinter" in "nomefisso".
Qualche idea?
grazie in anticipo