Discussion :

[cheche49]

Bonjour à tous,

Voici mon problème : j'ai actuellement un script de démarrage sur les PC que je déploie avec Active Directory. (Script WSH)

Le script permet de connecter des lecteurs réseaux sur les PCs en fonction des services de chaque personne.

Voici la source :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
Const INFORMATIQUE = "cn=lecteur service informatique"
 
Set wshNetwork = CreateObject("WScript.Network")
Set fso = CreateObject("Scripting.FileSystemObject")
 
 
'Connection des repertoires communs
 
wshNetwork.MapNetworkDrive "p:","\\serveur\" & wshNetwork.UserName
wshNetwork.MapNetworkDrive "q:","\\serveur\echange"
 
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" &ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))
 
 
'#############################################################
'#########       LECTEUR INFORMATIQUE            #############
'#############################################################
If InStr(strGroups, INFORMATIQUE) Then  
 
    wshNetwork.MapNetworkDrive "r:","\\serveur\info"
 
End If

Ce script fonctionne très bien la première fois , mais par contre, il me sort que le répertoire est déjà utilisé la deuxième fois...

Avez vous une solution ?

Merci

[pitchalov]

Salut.

Il faut utiliser la méthode RemoveNetworkDrive pour supprimer ton lecteur existant avant de le remapper.

pour cela, tu peux tester l'existence du lecteur, et donc l'enlever s'il est déjà utilisé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set colConnectedDrives = wshNetwork.EnumNetworkDrives
 
testDriveIsPresent = false
 
For i = 0 to colConnectedDrives.Count - 1 Step 2
  If LCase(colConnectedDrives.Item(i)) = "q:"Then
    testDriveIsPresent = true
  End If
Next
If testDriveIsPresent = true Then wshNetwork.RemoveNetworkDrive "F:", true, true
wshNetwork.MapNetworkDrive "q:","\\serveur\echange"