ログインユーザーが組み込みの管理者アカウントであるかどうかを確認したいのですが、次のようなコードがたくさんあります。
If My.User.IsInRole("BUILTIN\Administrators") Then : MsgBox(True) : End If
or
If My.User.IsInRole("Administrators") Then : MsgBox(True) : End If
またはこれ
Private Function _SECTION_IV_IsUserAdministrator() As Boolean
Dim identity As WindowsIdentity = WindowsIdentity.GetCurrent()
Dim principal = New WindowsPrincipal(identity)
Return principal.IsInRole(WindowsBuiltInRole.Administrator)
End Function
しかし、このコードの問題は、通常のアカウントでログインして管理者としてアプリを実行すると、ユーザーがチェックされ、管理者アカウントであると表示されることです!!