Deconnecter tous les lecteurs reseaux sauf un

Version imprimable

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:

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

29/08/2010, 17h48
SfJ5Rpw8

suffit de modifier ton if...

déjà si avant ton if tu affiche le nom de ton disque .. :

Code:

wscript.echo coldrives.item(i)

tu as quoi ..? ( u: , u, U ...)
29/08/2010, 18h06
AngelFire

Citation:

Envoyé par bbil

suffit de modifier ton if...

déjà si avant ton if tu affiche le nom de ton disque .. :

Code:

wscript.echo coldrives.item(i)

tu as quoi ..? ( u: , u, U ...)

U:

Code:

1
2
If Asc(coldrives.item(i)) >= Asc(Ucase(Start)) AND coldrives.item(i) <> "U:" then
...

Citation:

Envoyé par bbil

Code:

1
2
If Asc(coldrives.item(i)) >= Asc(Ucase(Start)) AND coldrives.item(i) <> "U:" then
...

Merci 8-)