Es una gran pregunta que de hecho ya me he hecho yo alguna vez. Es más, me la dejé apuntada porque es muy interesante sobre todo cuando llegas a un sitio y quieres ver de un vistazo del volumen de usuarios del que estás hablando de una manera muy sencilla.
Te dejo aquí el código. Lo guardas como .vbs y lo ejecutas en el servidor. Sólo tienes que sustituir donde pone DOMINIOEJEMPLO, por tu dominio, y donde pone LOCAL, pues según sea tu dominio. Es decir, si tu dominio es pepe.local, pues pones en uno PEPE y
en el otro LOCAL. Si es pepe.com, pues PEPE y COM, creo que se entiende. Lo ejecutas y listo:
Const Ads_Scope_SubTree = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = Ads_Scope_SubTree
objCommand.CommandText = _
"Select Name From 'LDAP://DC = DOMINIOEJEMPLO, DC = LOCAL' Where objectCategory = 'Person'"
Set objRecordSet = objCommand.Execute
MsgBox "Tienes un total de : " & objRecordSet.RecordCount & " usuarios"
Espero que te sirva. Si es así, márcalo como respuesta, ok?
Eclat2K |
www.2ksystems.com | Mantenimiento informático y Diseño web |
@eclat2k
Colobora con el foro: Si la respuesta es de utilidad para resolver tu duda/problema, usa la opción "Marcar como repuesta". Otros usuarios con dudas similares -en un futuro- lo agradecerán.
