Discussion :

[Valdil]

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

[ced600]

qu'est ce que l'OU exactement ?

[Valdil]

C'est une sorte de conteneur qui peut contenir des utilisateurs, des groupes, des pc... c'est une organisation des objets.

[ced600]

l'unité d'OU que tu souhaites obtenir est différente de l'OU d'active directory ?

[Valdil]

Ba c'est dans active directory. J'en est plusieurs des OU.

[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

[Valdil]

Ok, je vais regarder ca, merci bien

[Valdil]

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

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