recherche user dans une ou

"Youri Ligotmi" <yl@free.fr.invalid> a écrit dans le message de
news:45b668c4$0$23030$426a74cc@news.free.fr
| Bonjour

Bonjour,

| Je voudrais pouvoir, à l'aide d'un script vbs, retrouver un
| utilisateur par son nom d'utilisateur ou par une autre de ses
| caractéristiques dans une arborescence AD sans savoir a priori où il
| se trouve.
| Peut-on y arriver autrement qu'en parcourant toute l'arborescence?
| Merci de votre aide

Via une requêtre ldap récursive :

+++ Usage
cscript FindUser.vbs <login>

+++ Exemple
>cscript FindUser.vbs Administrateur

--- Coupez ici : FindUser.vbs---

Option Explicit

' déclaration des variables
Dim oCon, oCmd, oRs
Dim strUser

' lecture du login de l'utilisateur
strUser=WScript.Arguments(0)

' initialisation des objets
Set oCon=CreateObject("adodb.connection")
oCon.Open "Provider­sDSOObject"
Set oCmd=CreateObject("adodb.command")
oCmd.ActiveConnection=oCon

' définition de la requête ldap
oCmd.CommandText="<LDAP://" & GetObject("LDAP://RootDSE"). _
Get("defaultNamingContext") & ">;" & _
"(&(objectCategory=User)(sAMAccountName=" & strUser & "));" & _
"distinguishedname;subtree"

' exécution de la requête
set oRs=oCmd.Execute()

' affichage du dn de l'utilisateur
If Not oRs.EOF Then WScript.Echo oRs.Fields(0)

--- Coupez ici : FindUser.vbs ---

--
Gilles LAURENT
http://glsft.free.fr

Bonjour

Je voudrais pouvoir, à l'aide d'un script vbs, retrouver un utilisateur
par son nom d'utilisateur ou par une autre de ses caractéristiques dans
une arborescence AD sans savoir a priori où il se trouve.
Peut-on y arriver autrement qu'en parcourant toute l'arborescence?
Merci de votre aide

Avec adminpak.msi installé (gratuit) :

dsquery user -samid NomUtilisateur

--
Sylvain