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

我必须在这里丢失某些东西，否则我会失明或者咖啡过多。基本上，我试图获得每个用户在特定组我AD的用户名。然后，我想取这些用户名并将其传递给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。

来源

2010-11-04 Kenny Bones