Discussion :

[printerscript]

Bonjour à tous et à toutes.

Je souhaiterais supprimer toutes les imprimantes réseaux sur les postes clients à l'aide d'un script.

Il faudrait que le script supprime sur les pc clients seulement les imprimantes de l'ancien serveur nommé 'ancien_serveur_imp'. (\\ancien_serveur_imp\PRINTERXX)
Car nous avons installé sur les machines,les nouvelles imprimantes qui sont sur le nouveau serveur 'nouveau_serveur_imp'.

J'ai trouvé ce script qui supprime toutes les imprimantes du réseau (mais malheureusement il me supprime les imprimantes sur les pc clients du nouveau serveur):

Code :

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

1
2
3
4
5
6
7
Set oNet = CreateObject ("Wscript.Network")
Set oPrt = oNet.EnumPrinterConnections
For i = 0 to oPrt.Count - 1 Step 2
If Left (oPrt.Item(i+1),1) = "\" Then
oNet.RemovePrinterConnection oPrt.Item(i+1)
End If
Next

Est il possible de dire à cet endroit : "If Left (oPrt.Item(i+1),1) = "\" Then" à la place de "\" de chercher toutes les imprimantes qui proviennent de l'ancien serveur "\\ancien_serveur_imp\*" , le * ou le % pour dire tous ce qui commence par le nom de l'ancien serveur.

Merci de votre aide, je n'y connait rien du tout en dev.

Cordialement

[_xme_]

Salut
Perso je ferrais un truc du genre, (a tester):

Code :

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

1
2
3
4
5
6
7
8
 
Set oNet = CreateObject ("Wscript.Network")
Set oPrt = oNet.EnumPrinterConnections
For i = 0 to oPrt.Count - 1 Step 2
   If StrComp(Left (oPrt.Item(i+1),21),"\\ancien_serveur_imp\") = 0 Then
      oNet.RemovePrinterConnection oPrt.Item(i+1)
   End If
Next

[printerscript]

Bonjour _xme_,

Merci beaucoup de ton aide ca fonctionne impeccable !!! :-)
dernière tite question après je ne t'embête plus
si je veux rajouter au script quelque chose qui permettrait de supprimer toutes les imprimantes de l'ancien serveur sauf deux en question par exemple : \\ancien_serveur_imp\imp1 et \\ancien_serveur_imp\imp2
aurais tu une idée du script qui permettrait de faire ceci?

Merci mille fois !!!

[_xme_]

Euh si j'ai bien compris ta question c'est juste quelques conditions en plus non?

Code :

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

1
2
3
4
 
If StrComp(Left (oPrt.Item(i+1),21),"\\ancien_serveur_imp\") = 0 and not(StrComp(Left (oPrt.Item(i+1),21),"\\ancien_serveur_imp\imp1") = 0 or StrComp(Left (oPrt.Item(i+1),21),"\\ancien_serveur_imp\imp2") = 0) Then
      oNet.RemovePrinterConnection oPrt.Item(i+1)
End If

par contre si c'est une condition qui doit pouvoir être commander depuis un bouton alors je ferrais un truc du genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
For i = 0 to oPrt.Count - 1 Step 2
   bool=true
   If boolbutton then
       If (StrComp(Left (oPrt.Item(i+1),21),"\\ancien_serveur_imp\imp1") = 0 or StrComp(Left (oPrt.Item(i+1),21),"\\ancien_serveur_imp\imp2") = 0) then
           bool = false
       End If
   End if
   If StrComp(Left (oPrt.Item(i+1),21),"\\ancien_serveur_imp\") = 0 and bool Then
      oNet.RemovePrinterConnection oPrt.Item(i+1)
   End If
Next

boolbutton est le boolean d'état de ton bouton
ai-je bien compris?

[printerscript]

Je te remercie pour la rapidité de tes réponses !!!!! merci aux gens comme toi... je n'y connait rien en développement mais quand je vois ce que l'on peut faire ca donne envie de s'y mettre :-)

oui c'est une ou deux conditions à mettre, pour dire de supprimer toutes les imprimantes de l'ancien serveur sauf une ou deux par exemple.

Du coup ca donnerai ca ??? : je ne sais pas si j'ai bien intégré le code avec les conditions au bon endroit ^^

Code :

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

1
2
3
4
5
6
7
Set oNet = CreateObject ("Wscript.Network")
Set oPrt = oNet.EnumPrinterConnections
For i = 0 to oPrt.Count - 1 Step 2
   If StrComp(Left (oPrt.Item(i+1),21),"\\ancien_serveur_imp\") = 0 and not(StrComp(Left (oPrt.Item(i+1),21),"\\ancien_serveur_imp\imp1") = 0 or StrComp(Left (oPrt.Item(i+1),21),"\\ancien_serveur_imp\imp2") = 0) Then
      oNet.RemovePrinterConnection oPrt.Item(i+1)
   End If
Next

Merci encore !!!!! et bonne soirée à toi

[_xme_]

euh merde je viens de voir que j'ai du faire une erreur

Code :

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

1
2
3

  not(StrComp(Left (oPrt.Item(i+1),21),"\\ancien_serveur_imp\imp1") = 0 or StrComp(Left (oPrt.Item(i+1),21),"\\ancien_serveur_imp\imp2") = 0)

la bonne réponse est plutôt

Code :

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

1
2
3
4
5
6
7
Set oNet = CreateObject ("Wscript.Network")
Set oPrt = oNet.EnumPrinterConnections
For i = 0 to oPrt.Count - 1 Step 2
   If StrComp(Left (oPrt.Item(i+1),21),"\\ancien_serveur_imp\") = 0 and not(StrComp(Left (oPrt.Item(i+1),25),"\\ancien_serveur_imp\imp1") = 0 or StrComp(Left (oPrt.Item(i+1),25),"\\ancien_serveur_imp\imp2") = 0) Then
      oNet.RemovePrinterConnection oPrt.Item(i+1)
   End If
Next

Si ceci ne marche pas commence par vérifier les chaines de charactères
Pour cela tu fais

Code :

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

1
2
Msgbox Left (oPrt.Item(i+1),21)
Msgbox Left (oPrt.Item(i+1),25)

En effet je ne sais pas si le deuxième chiffre est le nombre de charactère ou l'index de coupure (ca peut varier de 1 si le 1er caractere de la chaîne à un index=0).

bonne journée

[printerscript]

Je viens de rentrer de vacances désolé de ne pas t'avoir répondu plus tôt.
Je tiens à te remercier de tout tes conseils et ta patience car ca fonctionne super bien.

Mille merci et bonne continuation.

Merci à ce forum et aux personnes comme toi !!!

A bientôt peut être