Consulta LDAP de usuarios y dominios

18/08/2003 - 19:43 por Salva | Informe spam
Hola
tengo un dominio nativo en w2000 y muchos subdominios
(tambien w2000)
Mi servidor exchange 2000 esta en el dominio padre y
necesito sacar mediante un script vbs todos los buzones
con su cuenta de ususario asociada.

P ej.

JohnDoe@mydomain.com - ROOTDOMAIN\user1

tengo esto

Dim adsRootDSE

Set adsRootDSE = GetObject("GC://RootDSE")
strADsPath = "GC://" & adsRootDSE.Get
("rootDomainNamingContext")
Set adsRootDSE = Nothing

Dim connADO As New ADODB.Connection
connADO.Provider = "ADsDSOObject"
connADO.Open
Dim strQuery

strQuery = "select cn,sAMAccountName,mail, ADsPath from '"
& strADsPath & "' where objectClass = 'user' "


Dim rsADO As New ADODB.Recordset
Dim recADO As New ADODB.Record

rsADO.Open strQuery, connADO

MsgBox rsADO.Fields("cn").Value & " - " & rsADO.Fields
("sAMAccountName").Value & " - " & rsADO.Fields
("Mail").Value & " - " & rsADO.Fields("ADsPath").Value





Como podeis ver, saco el ADsPath, pero no se como poder
sacar el nombre de usuario del tipo DOMAIN\user.

Alguien me puede echar una mano?
Gracias

Salva
 

Leer las respuestas

#1 Carlos Dinapoli [arg]
18/08/2003 - 20:35 | Informe spam
Fijate en este Link a ver si encontras informacion que necesitas

http://www.microsoft.com/technet/tr.../scriptcen
ter/default.asp
"Salva" wrote in message
news:001a01c365b0$46922c20$
Hola
tengo un dominio nativo en w2000 y muchos subdominios
(tambien w2000)
Mi servidor exchange 2000 esta en el dominio padre y
necesito sacar mediante un script vbs todos los buzones
con su cuenta de ususario asociada.

P ej.

- ROOTDOMAIN\user1

tengo esto

Dim adsRootDSE

Set adsRootDSE = GetObject("GC://RootDSE")
strADsPath = "GC://" & adsRootDSE.Get
("rootDomainNamingContext")
Set adsRootDSE = Nothing

Dim connADO As New ADODB.Connection
connADO.Provider = "ADsDSOObject"
connADO.Open
Dim strQuery

strQuery = "select cn,sAMAccountName,mail, ADsPath from '"
& strADsPath & "' where objectClass = 'user' "


Dim rsADO As New ADODB.Recordset
Dim recADO As New ADODB.Record

rsADO.Open strQuery, connADO

MsgBox rsADO.Fields("cn").Value & " - " & rsADO.Fields
("sAMAccountName").Value & " - " & rsADO.Fields
("Mail").Value & " - " & rsADO.Fields("ADsPath").Value





Como podeis ver, saco el ADsPath, pero no se como poder
sacar el nombre de usuario del tipo DOMAIN\user.

Alguien me puede echar una mano?
Gracias

Salva

Preguntas similares