Jump to content
Sign in to follow this  
teckV

[vbscript] Administar com VBScript WSH p4

Recommended Posts

teckV

Continuando este tema vou agora mostrar com se pode retornar dados da AD (Active Directory) usando o protocolo de directorio LDAP.

este script segue na continuação dos outros. No anterior tinhamos uma rotina para sacar dados de config de um file tipo app.conf.

nesse file coloca-se o caminho paraos grupos sobre os quais se querem listar os membros. Serve para listar todos os computadores no grupo SUS, para udates sobre sus.

OU´s (Unidades Organizacionais da AD) servem para organizar o directório AD. OU Servidores, OU Postos, etc

Na rotina de config carrega-se a array arrLDAPou() com os caminhos dos diversos grupos sobre os quais se quer listar os membros.

Também serve para listar utilizadores em determinados grupos, tipo Administrators, Special Users, etc. basta mudar os path LDAP no file de conf

De seguida carrega a array  retLDAPHosts() com as listagens retornadas da query LDAP à AD (Active Directory)

'-------------------- Retorna os hosts em LDAP

---------------------------

private sub getLDAPsus()

Dim strMember, strDNSDomain, strContainer

Dim objGroup, objRootDSE

Dim arrMemberOf

i=0

ii=0

'----- Ligar ao AD ---------  arrLDAPou(0)

Set objRootDSE = GetObject("LDAP://RootDSE")

strDNSDomain = objRootDSE.Get("DefaultNamingContext")

for each strLDAPq in arrLDAPou

  strContainer = strLDAPq

  Set objGroup = GetObject ("LDAP://"& strContainer & strDNSDomain)

  objGroup.getInfo

  arrMemberOf = objGroup.GetEx("member")

  For Each strMember in arrMemberOf

    redim preserve retLDAPHosts(i+1)

    strName = split(strMember,",",-1,1)

    strDName = split(strName(0),"=",-1,1)

    retLDAPHosts(i) = strDName(1)

    i=i+1

  Next

next

end sub

teckV

more and more

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.