Discussion :

[Invité]

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 :

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

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

[Invité]

Bon j'avance malgré tout...

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

Code :

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

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 :

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

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

[Invité]

J'avance toujours

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
 
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?