Rinominare la stampante di default

[puckkk]

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

[puckkk]

Nessuno ha qualche ideona ?

[xegallo]

per Vb utilizza questo forum a proposito vb che versione?

[Corwin]

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...

[puckkk]

Originariamente inviato da Corwin
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...

Azz... funziona benissimo. Grazie davvero Corwin... era davvero semplice, purtroppo la mia conoscenza di Vb è bassissima però ehehhe

Grazie ancora