iis - 使用 VB 脚本检查用户是否是 AD 组的成员

Question

我有以下脚本来确定当前用户是否是预定组的一部分。我可以使用 获取正确的用户名ADSystemInfo，但该objGroup.IsMember函数始终返回 true。即使没有要检查的组。

我正在使用 Internet Explorer 11，并且网站（IIS 8.5、Windows Server 2012 R2）设置为对用户进行身份验证，即。匿名身份验证已禁用。

<%   
  function IsAMemberOf(sGroupDN)
    IsAMemberOf = "N"
    on error resume next
    dim objGroup, objADSysInfo, strUserDN
   
    'https://technet.microsoft.com/en-us/library/ee198776.aspx
    Set objADSysInfo = CreateObject("ADSystemInfo")
    Set objGroup = GetObject("LDAP://" & sGroupDN & ",OU=MyTown,OU=MyDomain,DC=LOCAL")
    if not IsEmpty(objGroup) then
      if objGroup.IsMember("LDAP://" & objADSysInfo.UserName)Then
        ' The user is in the group so we can do things
        'response.write(Request.ServerVariables("AUTH_USER") & " is a member of " & sGroupDN & "<br>")
        IsAMemberOf = "Y"
      end if
    end if

    set objGroup = nothing
    set objADSysInfo = nothing
  end function
%>

接下来我可以尝试什么？