管理者権限の所在確認

注意事項

このサイト内で公開していることがらについて

使用や利用によるいかなる損失に対しても責任を負いませんのでご了承ください。

著作物に関する著作権について

原則としてすべて運営者(EponaLab)にあります。

ソースコード

'指定した権限を所持しているかどうか調べる
wp.IsInRole(System.Security.Principal.WindowsBuiltInRole.Administrator)
                

使用例

Function IsAdministrator() as Boolean
    '現在のユーザーを表すWindowsIdentityオブジェクトを取得する
    Dim wi As System.Security.Principal.WindowsIdentity
    wi = System.Security.Principal.WindowsIdentity.GetCurrent()
    'WindowsPrincipalオブジェクトを作成する
    Dim wp As New System.Security.Principal.WindowsPrincipal(wi)
    'Administratorsグループに属しているか調べる
    Return wp.IsInRole(System.Security.Principal.WindowsBuiltInRole.Administrator)
End Function