Discussion :

[AngelFire]

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

[SfJ5Rpw8]

suffit de modifier ton if...

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

Code :

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

wscript.echo coldrives.item(i)

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

[AngelFire]

suffit de modifier ton if...

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

Code :

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

wscript.echo coldrives.item(i)

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

U:

[SfJ5Rpw8]

Code :

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

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

[AngelFire]

Code :

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

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

Merci