jueves, 20 de mayo de 2010

Buscar Usuarios por Grupo en Active Directory

Hace algún tiempo necesitaba un pequeño script para detectar usuarios dentro de mi grupo wireless en Active Directory, asi que me di la tarea de investigar un poco en como lograrlo, así pude crear el siguiente script el cual pueden modificarlo para ver los usuarios que pertenecen a un grupo X.

Lo que hace es crear un archivo txt para guardar los resultados (en el mismo directorio donde esta el script), verifica los usuarios de un grupo y los datos a grabar son SAM Account, Name y displayName.

On Error Resume Next

Const DOMAINGROUP = "LDAP://cn=Wireless, cn=Users, dc=midominio,dc=dom"
Const GROUPHEADER = "<-= GROUP Wireless =->"
Const GROUPFOOTER = "====================="

doYourJob

openFile

Private Sub doYourJob()
Set objGroup = GetObject _
(DOMAINGROUP)
''objGroup.GetInfo

Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("memberswifi.txt", True)

file.Writeline GROUPHEADER

For each objMember in objGroup.Members
file.Writeline "[---------------------------]"
file.Writeline objMember.SAMAccountName
file.Writeline objMember.Name
file.Writeline objMember.displayName
Next
file.Writeline GROUPFOOTER
file.Close
End Sub

Private Sub openFile()
Const WIN_STYLE = 4
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "notepad.exe c:memberswifi.txt", WIN_STYLE
End Sub


Graban este archivo con extensión vbs y listo.

Espero les sea de utilidad.