• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

teckV

[vbscript] Administar com VBScript WSH p4

1 mensagem neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora