Bannière

Métadonnées du document:
[ Auteur : Clockover ][ Création le : 22/05/2009 ][ Dernière modification le : 22/05/2009 ][ Version : 2.1 ]

Suppression imprimantes et lecteurs réseaux locaux [VBS]

Etat du script: Fonctionnel

Présentation:

Un script VBS qui supprime sur le poste et sur le profil utilisateur depuis lequel il est exécuté:
-Toutes les imprimantes réseaux.
-Tous les lecteurs réseaux.

Il est complètement silencieux car il n'y a pas d'interactions utilisateur.

Le script:

'Suppression imprimantes et lecteurs réseaux
'Version 0.1 20090522 by Clockover

Set WshNetwork = WScript.CreateObject("WScript.Network") 

'Suppression des imprimantes réseaux 
Set Printers = WshNetwork.EnumPrinterConnections
For i = 0 to Printers.Count - 1 Step 2 
	'Uniquement les imprimantes réseaux
	If Left (Printers.Item(i+1),2)="\\" Then 		
		WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true 	
	End if 
Next

'Suppression des lecteurs réseaux
Set oDrives = WshNetwork.EnumNetworkDrives   
For i = 0 to oDrives.Count - 1 Step 2	
	WshNetwork.RemoveNetworkDrive oDrives.Item(i), TRUE, TRUE
Next

TODO Liste:

-Vide

Historique:

flecheflecheVersion 0.1 (2009/05/22)
-Création du script pour note.

Il y a 0 commentaire(s) sur ce sujet.
L'intégralité du portail est placé sous licence Creative Commons License NC v2.0 (sauf mentions contraires indiquées sur les pages et/ou documents concernés !). Version: 4.2
Ce portail répond normalement aux critères de compatibilité XHTML v1.1 et CSS v2.0 du W3C:
Valid XHTML 1.1! Valid CSS 2.0!

Page générée en 0.007 secondes