Discussion :

[Zaenz]

Bonjour,
J'aurais besoin de votre aide, je souhaite désinstaller les imprimantes réseaux installer sur le poste à chaque ouverture de session d'un utilisateur de l'AD , j'ai effectuer ce petit script mais sans resultat. Je demande votre aide svp
Merci

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),"\\serveur_impression\") = 0 Then
      oNet.RemovePrinterConnection oPrt.Item(i+1)
   End If
Next

[l_autodidacte]

Essaie avec If StrComp(Left (oPrt.Item(i+1),21),"\\serveur_impression\", vbTextCompare) = 0 Then

[ProgElecT]

Salut

Je ne sais pas vraiment si oNet.RemovePrinterConnection oPrt.Item(i+1)permet de suprimer l'imprimante réseau, mais quand on veut supprimer un ou plusieurs éléments d'une liste , d'une variable tableau ... en gros d'une collection, il faut démarrer de la fin de la liste

Code :

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

For i = 0 to oPrt.Count - 1 Step 2

devient

Code :

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

For i = oPrt.Count - 1 to 0 Step -2

[Cachlab]

Salut,

J'utilise un script qui fonctionne bien chez moi :

Code :

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

1
2
3
4
5
6
Set WshNetwork = CreateObject ("WScript.Network")
On error resume next
For i= WshNetwork.EnumPrinterConnections.count to 2 step -2
Imprimante = WshNetwork.EnumPrinterConnections.Item (i-1)
WshNetwork.RemovePrinterConnection Imprimante, true , true
Next

++

[Zaenz]

Merci de votre aide !
J'ai creer mon propre script avec un peu de recherche je vous le donne on sais jamais

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
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 "\\serveur\nom imprimante"
				wshNetwork.RemovePrinterConnection "\\serveur\nom imprimante"
			Case "\\serveur\nom imprimante"
				wshNetwork.RemovePrinterConnection "\\serveur\nom imprimante"
			Case Else
		End Select
	Next
'Ajout des imprimantes
Select Case WshNetWork.UserName 
 
	Case "toto"
 
	PrinterPath = "\\serveur\pilotes imprimantes"
        PrinterDriver = "nom du driver"
        WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver
        WshNetwork.SetDefaultPrinter "\\serveur\imprimantes par defaut"
 
End Select