We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
groupDN = "CN=DL_Test002,OU=Groups,OU=Temp,DC=A,DC=global" WScript.Echo "Getting members of: " & groupDN Set objADObject = GetObject("LDAP://" & groupDN) Call LoadMembers(objADObject) Sub LoadMembers(ByVal ADObject) colstrMembers = ADObject.member If (IsEmpty(colstrMembers) = True) Then Exit sub End If If (TypeName(colstrMembers) = "String") Then colstrMembers = Replace(colstrMembers, "/", "\/") Set objGroup = GetObject("LDAP://" & colstrMembers) WScript.Echo " MEMBER of: " & ADObject.sAMAccountName & " > " & objGroup.sAMAccountName Call LoadMembers(objGroup) Exit Sub End If For j = 0 To UBound(colstrMembers) colstrMembers(j) = Replace(colstrMembers(j), "/", "\/") Set objGroup = GetObject("LDAP://" & colstrMembers(j)) WScript.Echo " member of: " & ADObject.sAMAccountName & " > " & objGroup.sAMAccountName Call LoadMembers(objGroup) Next End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Master DC completely died||15||66|
|powershell script to get user from Active directory an add them to a group||14||48|
|Can't ping new computer||17||48|
|Excel Macro: Correct Macro that creates tabs for each "AccountSku"||4||43|
Join the community of 500,000 technology professionals and ask your questions.