тоящее время я работаю над одним запросом на миграцию, где нам нужно изменить фреймворк с 3.5 на 4.6.2. Здесь проблема заключается в том, что после изменения структуры ниже метод не показывает ожидаемый результат.My.User.IsInRole() всегда возвращает ложь.

If My.User.IsInRole(nlRole.InnerText) Then
   hasRole = True
   Exit For
End If

Кроме того, я проверил с кодом ниже:

Imports System.Security.Principal

Class PrincipalCheck
    Shared Function UserInRole(role As String) As Boolean
        Dim currPrincipal As New WindowsPrincipal(New WindowsIdentity(Environment.UserName))
        Return currPrincipal.IsInRole(role)
    End Function
End Class

Public Sub StartCheck()
   MsgBox(PrincipalCheck.UserInRole("MyDomain\MyGroup"))
End Sub

Но не повезло. Может кто-нибудь, пожалуйста, помогите мне с вышеуказанным вопросом.

Если вы ожидаете больше информации от моего конца, пожалуйста, дайте мне знать.