Question

我必须在这里遗漏一些东西，或者我是瞎了或者我喝了太多咖啡。基本上，我正在尝试获取特定组中每个用户的用户名。然后我想获取这些用户名并将其传递给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

我收到此错误消息Object required: 'strUser' 为什么会这样？ strUser就在那里！如果我将片段更改为：

Set objGroup = GetObject(groupName)

For Each strUser in objGroup.Member
    Set objUser =  GetObject("LDAP://" & strUser)
    msgbox objUser.Name
Next

然后我在每个成员的消息框中得到结果CN=Doe John。

Answer 1

尝试

For Each strUser in objGroup.Members

不是会员而是会员* s *

Answer 2

本网站将告诉您比AD和VBS更多的信息：

http://www.computerperformance.co.uk/vbscript/vbscript_group_enumerate_members.htm

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

2 个答案: