VBS script connexion lecteur réseau

Version imprimable

Bonjour à tous,

J'ai un script qui me permet selon l'appartenance à un groupe de connecter un lecteur réseau. ce script utilise la structure conditionnelle case.

Mon souci est que le premier case de mon script n'est pas pris en compte le deuxième fonctionne.

Avez-vous une idée ?

Merci

Code:

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
27
28
29
30
31
32
33
34
35
Dim objRootLDAP, objGroup, objUser, objOU, objmemberOf 
Dim strOU, strUser, strDNSDomain, strLDAP, List, objADSysInfo,arr,intlength,intNamelength,strGroupName 
 
' Commands to bind to AD 
Set objRootLDAP = GetObject("LDAP://RootDSE" ) 
Set objNetwork = CreateObject("Wscript.Network" ) 
 
'trouver le DN de l'utilisateur 
Set objADSysInfo = CreateObject("ADSystemInfo" ) 
strUser = objADSysInfo.UserName 
Set objUser = GetObject("LDAP://" & strUser) 
 
 
' Extract a list of Groups from memberOf 
objmemberOf  = objUser.GetEx("memberOf" ) 
For Each objGroup in objmemberOf  
     List = List & objGroup & vbCr 
     arr=Split(List,"," ) 
     intlength=Len(arr(0)) 
     intNamelength=intlength - 3 
Next 
strGroupName= Right(arr(0), intNameLength) 
 
 
'Connecter un lecteur en fonction du groupe 
Select Case strGroupName 
        Case "GROUP1" 
            objNetwork.MapNetworkDrive "m:", "\\monserveur\GROUP1" 
 
        Case "GROUP2"  
            objNetwork.MapNetworkDrive "o:", "\\monserveur\GROUP2" 
 
End Select 
 
WScript.Quit

23/02/2011, 17h28
ProgElecT

Salut

le Next de ta boucle For Each objGroup in objmemberOf ne devrait il pas être à l'avant dernière ligne? , juste avant WScript.Quit

Bonjour Merci pour la réponse ProgElect

En fait j ai changé de script car le case ne convient pas vu qu un utilisateur peut etre dans plusieurs groupe j utilise donc le un if INGROUP ...

Mais je voudrais savoir du coup comment renommer mes lecteurs ?

Merci

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
set WshShell = CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
 
 
if WshShell.ExpandEnvironmentStrings("%OS%") <> "Windows_NT" then 
  WshShell.Run "COMMAND.EXE /C NET TIME \\BTW-USER1 /SET /Y >NUL:"
 
  DomainName=WshShell.RegRead("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\MSNP32\NetworkProvider\AuthenticatingAgent")
  Set UserObj = GetObject("WinNT://" & DomainName & "/" & WshNetwork.username)
 
  WshNetwork.MapNetworkDrive "U:",UserObj.HomeDirectory
' msgbox (UserObj.homeDrive)
msgbox (UserObj.HomeDirectory)
 
else
 
  DomainName=WshShell.ExpandEnvironmentStrings("%USERDOMAIN%")
  Set UserObj = GetObject("WinNT://" & DomainName & "/" & WshNetwork.username)
 
end if
 
'Init Groups
Dim UserGroups
Dim GroupObj
UserGroups=""
For Each GroupObj In UserObj.Groups 
  UserGroups=UserGroups & "[" & GroupObj.Name & "]" 
Next
 
if InGroup("TEST") then
  WshNetwork.MapNetworkDrive "T:","\\serveur\test"
 
end if
 
if InGroup("TEST2") then
  WshNetwork.MapNetworkDrive "T:","\\serveur\test2"
end if
 
if InGroup("TEST3") then
  WshNetwork.MapNetworkDrive "W:","\\serveur\test3"
end if
 
' 
Function InGroup(strGroup)
   InGroup=False
   If InStr(UserGroups,"[" & strGroup & "]") Then
         InGroup=True
   End If
End Function

25/02/2011, 14h20
stefanelle
Bon j'ai trouvé tout seul en insérant cette ligne juste après la création du lecteur
Code:

1 2 Set oShell = CreateObject("Shell.Application") oShell.NameSpace("R:\").Self.Name = "DOCUMENTS"