Script vbs : imprimante par défaut

Bonjour,

Je m'essaie actuellement à quelques manips sur un réseau relativement grand, et j'aurais besoin de vos conseils. Je tente de mettre en place un script vbs qui permettra de définir une imprimante par défaut au chargement d'un profil utilisateur TSE. J'ai "bricolé" un script qui permet d'installer et connecter une imprimante, puis de la définir par défaut :


Set WshShell = WScript.CreateObject("WScript.Shell" )
WshShell.Run "cscript //H:CScript"
Set WshNetwork = WScript.CreateObject("WScript.Network" )

On Error Resume Next

serveur="\\192.168.1.200\"
computer=WshNetwork.Service Informatique

PrinterPath1=serveur & "ps3"

WshNetwork.AddWindowsPrinterConnection PrinterPath1

If computer= "Service Informatique" Then
WshNetwork.SetDefaultPrinter PrinterPath1
End If


Ceci fonctionne parfaitement.
J'aimerai maintenant définir une imprimante par défaut, qui est au préalable installée sur le serveur. J'essaye donc ceci, tout simplement :



Set WshShell = WScript.CreateObject("WScript.Shell" )
WshShell.Run "cscript //H:CScript"
Set WshNetwork = WScript.CreateObject("WScript.Network" )

On Error Resume Next

WshNetwork.SetDefaultPrinter "4T - HP6940"


Mais rien n'y fait, impossible de la définir comme imprimante par défaut à l'ouverture de session. Quelqu'un a t-il une idée du problème ?