Un map réseau en fonction du numéro de groupe

Version imprimable

J'aimerais savoir si c'est possible de créer un script qui permet de mapper un répertoire pour un usager en fonction d'un code X inscrit dans l'active directory.

Ex: Un usager se voit attribuer un répertoire \\serveur\usagers\groupeC parce que sous objUser.telephoneNumber il est inscrit groupeC (inscription a titre d'exemple...)

Dans le genre de....
Code:

1 2 3 4 5 6 7 8 Set objNetwork = CreateObject("WScript.Network") Set objUser = CreateObject("ADSystemInfo") Set objCurrentUser = GetObject("LDAP://" & objUser.UserName) strGroup = LCase(objUser.telephoneNumber) If InStr(strGroup, lcase("048cl5")) Then objNetwork.MapNetworkDrive "Z:", "\\server\shared\048cl5" End If
Une idée pour orienter mes démarches

Merci

Bon j'avance malgré tout...

J'ai modifier des affaires et j'arrive a quelque chose...avec ce code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Set objSysInfo = CreateObject("ADSystemInfo") Set objUser = GetObject("LDAP://" & objSysInfo.UserName) strPhone = objUser.telephoneNumber Set objNetwork = CreateObject("WScript.Network") Set objUser = CreateObject("ADSystemInfo") Set objCurrentUser = GetObject("LDAP://" & objUser.UserName) If InStr(strPhone, lcase("blabla1")) Then objNetwork.MapNetworkDrive "Z:", "\\serveur\partage\name\"& strPhone End If WScript.Quit
Donc avec ce code un utilisateur se connecte et un map se fait sur Z:... si dans la référence strPhone contient l'élément blabla1...

Toutefois, si strPhone contient bla, blabla ou blabla1 il ne fait pas la différence? Y a t-il moyen de lui préciser la référence complète?

J'aimerais aussi faire en sorte que si l'utilisateur 1 (strPhone) = blabla1 se connecte un map se fait sur "Z:", "\\serveur\partage\name\"& strPhone
Mais que si l'utilisateur 2 (strPhone) - blabla3 se connecte le map se fait sur son map Z:\....blabla3

Quelque chose du genre???
Code:

1 2 3 4 5 6 7 8 If InStr(strPhone, lcase("blabla1")) Then objNetwork.MapNetworkDrive "Z:", "\\serveur\partage\name\"& strPhone End If If InStr(strPhone, lcase("blabla2")) Then objNetwork.MapNetworkDrive "Z:", "\\serveur\partage\name\"& strPhone End If
Merci :)

J'avance toujours :P

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
strPhone = objUser.telephoneNumber
Set objNetwork = CreateObject("WScript.Network")
Set objUser = CreateObject("ADSystemInfo")
Set objCurrentUser = GetObject("LDAP://" & objUser.UserName)
 
If (InStr(LCase(strPhone), "blabla1") = 1) Then
objNetwork.MapNetworkDrive "Z:", "\\serveur\partage\user\"& strPhone
End If
 
If (InStr(LCase(strPhone), "blabla2") = 1) Then
objNetwork.MapNetworkDrive "Z:", "\\serveur\partage\user\"& strPhone
End If
WScript.Quit

avec If (InStr(LCase(strPhone), "blabla1") = 1) Then

Je pense que j'ai réglé le problème

A voir si ça logique comme code?