AD：组没有primaryGroupToken属性

Question

我需要更改用户的主要组，因此我可以将其从当前组中删除。但我的组没有属性“primaryGroupToken”，我需要这个属性才能更改用户的主要组。以下是属性编辑器的屏幕截图：

显然，我的代码没有任何反应：

Dim domainGroup As New DirectoryEntry("LDAP://our.domain/CN=Domain Users,CN=Users,DC=our,DC=domain")
Dim domainGroupGroupToken As String = domainGroup.Properties("primaryGroupToken").Value.ToString()

有没有办法手动设置它？或者我的代码有问题吗？提前谢谢。

Answer 1

这是一个计算属性。从here窃取，您只需在访问该属性之前添加对RefreshCache的调用：

Dim domainGroup As New DirectoryEntry("LDAP://our.domain/CN=Domain Users,CN=Users,DC=our,DC=domain")
domainGroup.RefreshCache(New String() {"primaryGroupToken"})
Dim domainGroupGroupToken As String = domainGroup.Properties("primaryGroupToken").Value.ToString()

（未经测试，我的VB有点生锈）