Bonjour à tous

Je recherche une fonction vbs afin de deconnecter les lecteurs réseaux sauf un "u:" dans mon cas

j ai trouvé un code qui deconnecte tous mais je n arrive pas à faire d exception

Merci de m aider

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
On Error Resume Next 
Start="g:" 'inclu 
Set objNetwork = CreateObject("Wscript.Network" ) 
Set colDrives = objNetwork.EnumNetworkDrives 
 
For i = 0 to colDrives.Count-1 Step 2 
    If Asc(coldrives.item(i)) >= Asc(Ucase(Start)) then 
        objNetwork.RemoveNetworkDrive colDrives.Item(i) 
        Wscript.Echo "Le partage (" & coldrives.item(i) & " ) a été éffacé." 
    end if 
Next 
Set colDrives = Nothing 
Set objNetwork = Nothing