Récupération de l'UO d'un user

Bonjour,
Je souhaite récupérer à l'ouverture de session (sur un poste xp dans un domaine "AD") l'appartenance à son UO en vue de faire un script de connexion.
Quelqu'un a une idée?
D'avance merci

J'ai avancé mais je suis coincé sur la méthode array.

Le pb est que dans mon tableau je dois y mettre des caractères et non des chiffres.
Mon tableau ne "fonctionne" qu'avec des chiffres.

Bonjour et bienvenue sur ce forum.

Montre-nous ton code et surtout la déclaration de ton tableau.

Bonjour, voici le code.

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
Function GetAdsPath(str_UserName)
 
On error resume next
Dim objConnection, objCommand, objRecordSet
GetAdsPath = ""
 
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
 
objCommand.CommandText = "SELECT adspath FROM 'LDAP://dc=priv,dc=chu-tours,dc=fr' WHERE objectCategory='user' AND sAMAccountName='" & str_UserName & "'"
Set objRecordSet = objCommand.Execute
if (objRecordset.Fields("adspath") <> "") then 
 GetAdsPath = objRecordset.Fields("adspath")
end if
objConnection.Close
 
Err.Clear
On error Goto 0
End Function
 
 
'************************************
'* Nom de la fonction : Main()
'* Paramêtres : Aucun
'* Retour : Aucun
'* Description : Fonction principale > Affiche le chemin LDAP du compte utilisateur courrant
'************************************
 
'On error resume next
'Option Explicit
 
Dim WSHNetwork, User,Ligne, AR, AR1
 
 
Set WSHNetwork = CreateObject("WScript.Network")
Do While User = ""
 ' User = WSHNetwork.UserName
Loop
 
msgbox GetAdsPath(User)

Concernant le pb d' ARRAY je pense avoir trouvé.