Leer Directorio Activo

On Fri, 15 Apr 2005 10:33:08 -0600, "César Laínez"
wrote:

Hola amigos, quisiera saber como puedo hacer para obtener los datos de un
usuario en el Directorio Activo de WinNT 2000, por ejemplo tengo al usuario
jperez pero necesito saber su Full Name

Puedes usar Active Directory Service Interfaces (ADSI). Hay
información en MSDN.
http://www.microsoft.com/windows200...ilinks.asp
http://www.microsoft.com/technet/tr...2kadsi.asp
http://www.15seconds.com/issue/pv980316.htm
http://www.15seconds.com/issue/020130.htm


Básicamente tienes que conectarte usando la siguiente notación:
WinNT:[//ComputerName,computer]
o
WinNT:[//DomainName[/ObjectName[, className]]]


DIMENSION aUsers[1]
cDominio = "MiDominio" && reemplazar por el tuyo
oADSI = GetObject("WinNT://" + cDominio)
oADSI.Filter = "aUsers"
For Each member In oADSI
? member.Name
Next

o:

clear
DIMENSION aUsers[1]
thiscomputer = "MiDominio" && reemplazar por el tuyo
oADSI = GetObject("WinNT://"+ thiscomputer)
oADSI.Filter = "aUsers"

for each usr in oADSI
if usr.class = "User"
gpx = usr.Groups
usrgrp = ''
for each usrx in gpx
usrgrp = usrgrp + usrx.name + ","
endfor
? usr.name + " (" + usrgrp + ")"
endif
endfor


* domain info:
oADSI = GetObject("WinNT:")
For Each oDomain in oADSI
? oDomain.Name
Next

RELEASE oADSI


Tienes un buen ejemplo de código en el Wiki:
http://fox.wikis.com/wc.dll?Wiki~AccessControlLists

Rick Strahl también escribió algo sobre ADSI y VFP en su uso para
configurar IIS.
http://www.west-wind.com/presentati...Config.htm

Ejemplos:
http://www.15seconds.com/issue/020130.htm

Wrox tiene un buen libro: ADSI ASP Programmer's Reference (ISBN
186100169X). Este es en ASP/CBS pero es fácil de entender y traducir a
VFP.

Ver:
http://support.microsoft.com/defaul...-US;195848
http://support.microsoft.com/defaul...-US;197947
http://support.microsoft.com/defaul...-US;197948
http://support.microsoft.com/defaul...-US;190741
http://support.microsoft.com/defaul...-US;192300
http://support.microsoft.com/defaul...-US;192580
http://support.microsoft.com/defaul...-US;192766




Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(address munged with ROT-13)

Blog: http://www.bloglines.com/blog/AlexFeldstein
Website: http://feldstein.net