管理者権限の所在確認

注意

• このサイトの利用によって生じた損害については当方では責任を負いかねますのでご了承ください。

コード

                    '指定した権限を所持しているかどうか調べる
                    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