Codigo:
1.
Set objADSystemInfo = CreateObject("ADSystemInfo")
'Utilizador que esta a utilizar
strUserDN = objADSystemInfo.UserName
Set objUser = GetObject("LDAP://" & strUserDN)
For Each strGroup in objUser.Groups
'Listagem dos grupos
winmsgbox(strGroup.Name)
Next
'Listagem do Email
winmsgbox(objUser.mail)
2.
Dim conn, cmd, rs, temp, ldapPath
ldapPath = "caminho"
Set conn = CreateObject("ADODB.Connection")
Set cmd = CreateObject("ADODB.Command")
conn.provider = "adsdsoobject"
conn.open "active directory provider"
cmd.activeconnection = conn
cmd.commandtext = "
Set rs = cmd.Execute
Do Until rs.eof
winmsgbox(rs.fields("name") & vbTab & rs.fields("cn") & vbTab & rs.fields("distinguishedname"))
rs.movenext
Loop
No comments:
Post a Comment