從特定羣組中的所有用戶獲取用戶名

我必須在這裏丟失某些東西，否則我會失明或者咖啡過多。基本上，我試圖獲得每個用戶在特定組我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