Determiner l'Unite d'Organisation de l'utilisateur

Version imprimable

13/06/2007, 12h17
Valdil

Determiner l'Unite d'Organisation de l'utilisateur

Bonjour, voila j'ai fais un ptit script qui se lance lors des ouvertures de sessions des utilisateurs et qui met en place un lecteur reseau personnel ainsi qu'un lecteur reseau en fonction du groupe auquel appartient l'utilisateur courant. Mon probleme est pour determiner l'OU(Unite d'Organisation) de l'utilisateur. Je vois pas trop comment faire.
Est ce que quelqu'un pourrait m'aider please.
Merci d'avance ;)

OS: Windows Server 2003
13/06/2007, 12h42
ced600

qu'est ce que l'OU exactement ?
13/06/2007, 14h08
Valdil

C'est une sorte de conteneur qui peut contenir des utilisateurs, des groupes, des pc... c'est une organisation des objets.
13/06/2007, 14h20
ced600

l'unité d'OU que tu souhaites obtenir est différente de l'OU d'active directory ?
13/06/2007, 15h45
Valdil

Ba c'est dans active directory. J'en est plusieurs des OU.
13/06/2007, 17h24
omen999

peut-être une piste ici: http://www.jsifaq.com/SF/Tips/Tip.aspx?id=10015
même si ça ne répond pas directement à ton problème :aie:
14/06/2007, 08h43
Valdil

Ok, je vais regarder ca, merci bien ;)

Bon problème résolu je post la solution pour ceux que ca interesse :)

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
Const ADS_SCOPE_SUBTREE = 2
 
Set objConnection = CreateObject("ADODB.Connection")
Set WshNetwork=Wscript.CreateObject("Wscript.Network")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
 
UserString=WshNetwork.Username
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
 
objCommand.CommandText = _
    "SELECT distinguishedName FROM 'LDAP://dc=dom2003,dc=com' WHERE objectCategory='user' " & _
        "AND sAMAccountName='"& UserString &"'"
Set objRecordSet = objCommand.Execute
 
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    strDN = objRecordSet.Fields("distinguishedName").Value
    arrPath = Split(strDN, ",")
    intLength = Len(arrPath(1))
    intNameLength = intLength - 3
    	If Right(arrPath(1), intNameLength)="Assistance" Then
		WshNetwork.MapNetworkDrive "W:", "\\serveur2003\Assistance"
	Else If Right(arrPath(1), intNameLength)="Dev" Then
		WshNetwork.MapNetworkDrive "W:", "\\serveur2003\Dev"
	     End If
	End If
    objRecordSet.MoveNext
Loop