Script Imprimante reseau par default

Bonjour,
Voila sur mon réseau il y'a plusieurs imprimantes réseaux et environ 40 utilisateurs.
Certains d'entre eux rencontrent un petit problème :
Voila ils ont une imprimante réseau bien renseigné en tant qu'imprimante par défaut, et une fois tous les 2 jours environ, l'imprimante par défaut change.
J'ai vu que le mieux était de générer un script sur les machines qui rencontre ce soucis. Voici ce que j'ai trouvé comme script :

Dim net
Set net = CreateObject("WScript.Network")
net.SetDefaultPrinter "\\serveurd'impression\nomdel'imprimantereseau"

Sinon j'ai ca aussi :

WshNetwork.SetDefaultPrinter \\serveurd'impression\nomdel'imprimantereseau

Les 2 ne marchent pas, une faute de frappe ?

Pour info j'ai créer ces scripts avec le bloc note et je les ais enregistré en tant que script.bat, sur le bureau. quand je les lance une fenêtre Ms-DOS apparait et disparait aussitôt.