Etat du script: Fonctionnel

Présentation:

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:

Historique:

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