Discussion :

[Zoldickun]

Bonjour à tous.

J'ai un petit soucis de script et si certains d'entre vous pouvaient m'aider ça me simplifierait bien les choses.

Exposé du problème : Comme on a un soucis au niveau d'un serveur d'impression, je vais passer par un autre serveur pour les impressions de certaines machines.
Jusque là pas de soucis.
Le problème c'est au niveau de mon script d'ajout d'imprimante, qui doit s'ouvrir à l'ouverture de la session de la centaine d'employés de la boîte.
J'ai ajouté des lignes pour enlever certaines imprimantes du serveur précédent et tout fonctionne correctement sauf si l'imprimante a déjà été retirée (auquel cas il me dit, à raison, que la connexion réseau n'existe pas).
Il faudrait donc que j'ajoute un test d'existence, mais je ne sais pas faire ça (je ne m'y connais pas trop en VBS) et ne trouve pas la solution.

Voici le script en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
Set WshNetwork = WScript.CreateObject("WScript.Network")
 
PrinterPath = "\\citrixtwo\*******"
WshNetwork.RemovePrinterConnection PrinterPath, true, true
PrinterPath = "\\srv****\******"
WshNetwork.RemovePrinterConnection PrinterPath, true, true
PrinterPath = "\\citrixtwo\******"
WshNetwork.RemovePrinterConnection PrinterPath, true, true
 
 
Dim net
Set net = CreateObject("WScript.Network")
net.AddWindowsPrinterConnection "\\datafr3\*****"
net.AddWindowsPrinterConnection "\\datafr3\******"
net.AddWindowsPrinterConnection "\\citrixtwo\*****"
net.AddWindowsPrinterConnection "\\citrixtwo\*****"
net.AddWindowsPrinterConnection "\\srv****\*****"
net.AddWindowsPrinterConnection "\\citrixtwo\*****"
net.AddWindowsPrinterConnection "\\datafr3\******"
net.AddWindowsPrinterConnection "\\srv*****\******"
net.AddWindowsPrinterConnection "\\sr****\******"

Le soucis donc pour être plus clair, c'est que le script fonctionnera lorsqu'un utilisateur ouvrira sa session pour la première fois, mais qu'à partir de la seconde ouverture ça mettra un message d'erreur. Moi, je dois laisser la suppression une ou deux semaines (le temps que ce soit effectif partout, et des employés peuvent être en vacances, ...) et ça va poser problème si le message d'erreur est présent à chaque ouverture de session pendant plusieurs jours (mon téléphone ne va pas arrêter de sonner pour me demander ce qu'il se passe).

Ca ne doit pas être bien méchant à régler, il suffit de rajouter une ligne de test (if imprimante existe then) dans les :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
PrinterPath = "\\serveur\imprimante"
WshNetwork.RemovePrinterConnection PrinterPath, true, true

pour vérifier si l'imprimante est encore là avant de la supprimer, mais mes faibles connaissances de ce langage ne me permettent pas de le faire présentement (je sais lister les imprimantes "connectées" mais pas l'utiliser).

Merci d'avance

[Zoldickun]

C'est bon, mon frère m'a aidé à résoudre le problème en s'inspirant d'un script vbs inclut dans une page web.

Il suffit d'utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error Resume Next

[ViperSpy]

Devant le même problème, la solution ne me satisfaisait pas... accepter une erreur et passer outre... pas mon genre

Ca faisait un moment que je ne m'étais pas plongé dans le vbscript donc j'ai un peu galèré, mais voilà le résultat si d'autres sont intéressés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Set WshNetwork = WScript.CreateObject("WScript.Network")
'Suppression des imprimantes obselètes
	For i = WshNetwork.EnumPrinterConnections.Count to 2 step -2
		Select Case WshNetwork.EnumPrinterConnections.Item(i-1)
			Case "\\[nom_serveur]\HP LaserJet 4250 Cel_0"
				wshNetwork.RemovePrinterConnection "\\[nom_serveur]\HP LaserJet 4250 Cel_0"
			Case "\\[nom_serveur]\HP LaserJet 4250 Cel_1"
				wshNetwork.RemovePrinterConnection "\\[nom_serveur]\HP LaserJet 4250 Cel_1"
			Case Else
		End Select
	Next
'Ajout des imprimantes
wshNetwork.AddWindowsPrinterConnection "\\[nom_serveur]\NRG_MP_C2500"
wshNetwork.AddWindowsPrinterConnection "\\[nom_serveur]\NRG_MP_C2500PS"
wshNetwork.AddWindowsPrinterConnection "\\[nom_serveur]\FS-2020D_Info"
 
'Définition des imprimantes par défaut en fonction des ordinateurs
Select Case wshNetwork.ComputerName
	Case "PC_01"
		wshNetwork.SetDefaultPrinter "\\[nom_serveur]\FS-2020D_Info"
	Case "PC_02"
		wshNetwork.SetDefaultPrinter "\\[nom_serveur]\FS-2020D_Info"
	Case "PC_03"
		wshNetwork.SetDefaultPrinter "\\[nom_serveur]\NRG_MP_C2500"
	Case Else
End Select

Bon à savoir:
Une chose qui m'a posé problème lorsque je trouvais une imprimante à supprimer, j'avais un message d'erreur en fin de boucle me disant que l'indice était en dehors de la plage, d'où le fait que je fasse une boucle décrémentielle de WshNetwork.EnumPrinterConnections.Count à 2 (pas zéro sinon on sort également de la plage) et non l'inverse. En effet, la plage se remet à jour dynamiquement après la suppression mais la valeur initiale est conservée pour la boucle. (je ne suis pas sur d'avoir été très clair mais bon)

[frksfi]

Bonjour,
quelqu'un peut-il m'expliquer à quoi sert le true, true ?
Merci car je n'arrive pas à trouver d'explication.

Bonjour à tous.

J'ai un petit soucis de script et si certains d'entre vous pouvaient m'aider ça me simplifierait bien les choses.

Exposé du problème : Comme on a un soucis au niveau d'un serveur d'impression, je vais passer par un autre serveur pour les impressions de certaines machines.
Jusque là pas de soucis.
Le problème c'est au niveau de mon script d'ajout d'imprimante, qui doit s'ouvrir à l'ouverture de la session de la centaine d'employés de la boîte.
J'ai ajouté des lignes pour enlever certaines imprimantes du serveur précédent et tout fonctionne correctement sauf si l'imprimante a déjà été retirée (auquel cas il me dit, à raison, que la connexion réseau n'existe pas).
Il faudrait donc que j'ajoute un test d'existence, mais je ne sais pas faire ça (je ne m'y connais pas trop en VBS) et ne trouve pas la solution.

Voici le script en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
Set WshNetwork = WScript.CreateObject("WScript.Network")
 
PrinterPath = "\\citrixtwo\*******"
WshNetwork.RemovePrinterConnection PrinterPath, true, true
PrinterPath = "\\srv****\******"
WshNetwork.RemovePrinterConnection PrinterPath, true, true
PrinterPath = "\\citrixtwo\******"
WshNetwork.RemovePrinterConnection PrinterPath, true, true
 
 
Dim net
Set net = CreateObject("WScript.Network")
net.AddWindowsPrinterConnection "\\datafr3\*****"
net.AddWindowsPrinterConnection "\\datafr3\******"
net.AddWindowsPrinterConnection "\\citrixtwo\*****"
net.AddWindowsPrinterConnection "\\citrixtwo\*****"
net.AddWindowsPrinterConnection "\\srv****\*****"
net.AddWindowsPrinterConnection "\\citrixtwo\*****"
net.AddWindowsPrinterConnection "\\datafr3\******"
net.AddWindowsPrinterConnection "\\srv*****\******"
net.AddWindowsPrinterConnection "\\sr****\******"

Le soucis donc pour être plus clair, c'est que le script fonctionnera lorsqu'un utilisateur ouvrira sa session pour la première fois, mais qu'à partir de la seconde ouverture ça mettra un message d'erreur. Moi, je dois laisser la suppression une ou deux semaines (le temps que ce soit effectif partout, et des employés peuvent être en vacances, ...) et ça va poser problème si le message d'erreur est présent à chaque ouverture de session pendant plusieurs jours (mon téléphone ne va pas arrêter de sonner pour me demander ce qu'il se passe).

Ca ne doit pas être bien méchant à régler, il suffit de rajouter une ligne de test (if imprimante existe then) dans les :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
PrinterPath = "\\serveur\imprimante"
WshNetwork.RemovePrinterConnection PrinterPath, true, true

pour vérifier si l'imprimante est encore là avant de la supprimer, mais mes faibles connaissances de ce langage ne me permettent pas de le faire présentement (je sais lister les imprimantes "connectées" mais pas l'utiliser).

Merci d'avance

[ProgElecT]

Salut frksfi
le premier True, force la suppression de l'imprimante mappé
Le deuxieme, enregistre les modifications dans le profil de l'utilisateur
Par défaut ses 2 paramètres sont False.

[l_autodidacte]

Bonjour,
quelqu'un peut-il m'expliquer à quoi sert le true, true ?
Merci car je n'arrive pas à trouver d'explication.

La syntaxe à utiliser est : objNetwork.RemovePrinterConnection(strName, [bForce], [bUpdateProfile]).

strName : Nom de l'imprimante
bForce : bouléen qui indique si on doit forcer la suppression ou non(dans le cas False)
bUpdateProfile : bouléen qui indique si on doit mettre à jour le profile ou non(dans le cas False)

[EDIT] Je n'ai pas vu que ProgElecT(Salut) m'a devancé