Bonjour à tous...

Je bloque sur un problème...D'où mon sujet!

Je suis en train de modifier une petite appli en VBS pour modifier facilement les info des utilisateurs de mon AD.
En passant le DN de l'utilisateur au lancement du programme, ca marche très bien.

Ce que j'aimerai arriver à faire, c'est une liste (<select>) contenant les 400 comptes de mon AD.
Je n'arrive pas à trouver comment lister les comptes!

Pour récupérer l'argument en ligne de commande je fais comme ca :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim arrCommands, user
 
Private Sub Window_OnLoad()
...
arrCommands = Split(objUserMod.commandLine, chr(34))
If uBound(arrCommands) >2 Then
     user = arrCommands(3)
Else
     user = objSysInfo.UserName
End If
.....
EndSub
Ensuite, j'appelle la fonction qui va chercher les infos de l'utilisateur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub GetInfo()
Dim objSysInfo : Set objSysInfo = CreateObject("ADSystemInfo")
Dim strADSPath : strADSPath = "LDAP://" & user
Dim objUser : Set objUser = GetObject(strADSPath)
On Error Resume Next
.....
.....
EndSub
J'ai crée une fonction ListUsers() qui doit lister tous les comptes de type user d'une OU et de ses sous OU.
Mais je bloque, je n'ai rien qui me permet d'avancer.

Merci de votre aide...

Julien