VB. List the userID from group (Domain Admins set as Primary group)

[epremyan karapet]

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.

[epremyan karapet]

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