【发布时间】:2020-06-30 20:05:08
【问题描述】:
在 Outlook 中,我创建了一个用户窗体,它从域中获取用户并显示他的 lastlogon、过期日期、组成员身份等。但是对于组成员身份,它只显示安全类型组,而不是所选用户的分发类型组。
我正在尝试同时获取(安全和通讯组),但不知道如何做到这一点。即使在我的大朋友谷歌的帮助下。
我猜 Objuser.Groups 是问题所在,但 .memberOf 或 .Members 似乎不起作用。
我究竟做错了什么?
代码截图:
Sub FindUser(Username As String)
Dim objGroup As Object
Dim Objuser As IADsUser
Set WSHnet = CreateObject("WScript.Network")
UserDomain = WSHnet.UserDomain
Set Objuser = GetObject("WinNT://" & UserDomain & "/" & Username & ",user")
For Each objGroup In Objuser.Groups
'!!at this part I only get the Security type groups, not the distribution groups!!
'Do things with the objGroup
Next
【问题讨论】:
标签: vba outlook active-directory