VB. List the userID from group (Domain Admins set as Primary group)
Hello everyone. I have the following case: when I trying to collect all userIDs from the specific group Domain Admins, then the UserID which have been set as Primary Group for Domain Admins not listening:
VB Script code:
Option Explicit
Dim objRootLDAP, objGroup, objUser, objOU, objmemberOf
Dim strOU, strGroup, strDNSDomain, strLDAP, strList, strUser
Set objRootLDAP = GetObject("LDAP://RootDSE")
strDNSDomain = objRootLDAP.Get("DefaultNamingContext")
strGroup ="cn=Domain Admins,"
strOU ="CN=Users,"
strLDAP ="LDAP://" & strGroup & strOU & strDNSDomain
Set objGroup = GetObject(strLDAP)
For Each strUser in objGroup.Member
Set objUser = GetObject("LDAP://" & strUser)
strList = strList & objUser.CN & vbcr
Next
WScript.Echo "Users for " & strGroup & vbCr & strList
WScript.Quit
But when the Primary group for the UserID have been set to Domain Users then the UserID collecting with the code above.
I welcome any suggestions.
Thank you.
Re: VB. List the userID from group (Domain Admins set as Primary group)
I have found the issue: LDAP did not listening the Primary Group. So I have used the WinNT:
Option Explicit
Dim objRootLDAP, objGroup
Dim strOU, strGroup, strDNSDomain, strNT, strList, strUser
strDNSDomain = "CASE1"
strGroup = "Domain Admins"
strNT ="WinNT://" & strDNSDomain & "/" & strGroup
Set objGroup = GetObject(strNT)
For Each strUser in objGroup.Members
strList = strList & strUser.Name & vbcr
Next
WScript.Echo "Users for " & strGroup & ":" & vbCr & strList
WScript.Quit