Vbscript 从特定组中的所有用户获取用户名

Vbscript 从特定组中的所有用户获取用户名,vbscript,active-directory,Vbscript,Active Directory,我一定是错过了什么,或者我瞎了,或者我喝了太多咖啡。 基本上,我试图获取特定组中每个用户的用户名。 然后我想获取这些用户名并将其传递给powershell脚本。但这是另一种情况。这对你们来说可能是一个快速的胜利 Dim groupName groupName = "LDAP://CN=groupname,OU=MailGroups,OU=Exchange,OU=MainContainer,DC=MyDomain,DC=com" Set objGroup = GetObject(groupName

我一定是错过了什么,或者我瞎了,或者我喝了太多咖啡。 基本上,我试图获取特定组中每个用户的用户名。 然后我想获取这些用户名并将其传递给powershell脚本。但这是另一种情况。这对你们来说可能是一个快速的胜利

Dim groupName
groupName = "LDAP://CN=groupname,OU=MailGroups,OU=Exchange,OU=MainContainer,DC=MyDomain,DC=com"
Set objGroup = GetObject(groupName)

For Each strUser in objGroup.Member
    Set objUser =  GetObject("LDAP://" & strUser.UserName)
Next
我得到了这个错误消息
objectrequired:“strUser”
为什么会这样?斯特拉瑟就在那里! 如果我将代码段稍微更改为:

Set objGroup = GetObject(groupName)

For Each strUser in objGroup.Member
    Set objUser =  GetObject("LDAP://" & strUser)
    msgbox objUser.Name
Next
然后我在每个成员的消息框中得到结果

试试看

For Each strUser in objGroup.Members

不是会员而是会员*s*

本网站将告诉您有关广告和VBS的更多信息:


Hmm,我仍然收到一条错误消息:参数数量错误或属性分配无效。这是第14行,字符5。这意味着行“Set objUser=GetObject”(“LDAP://”&strUser)