VB 現在のユーザーがAdministratorか確認する

現在のユーザーがAdministratorか確認する

以下の例では、現在プログラムを実行しているユーザーがWindowsのAdministratorsグループに属しているか調べる。

Dim Principal As Security.Principal.WindowsPrincipal

AppDomain.CurrentDomain.SetPrincipalPolicy(Security.Principal.PrincipalPolicy.WindowsPrincipal)
Principal = CType(Threading.Thread.CurrentPrincipal, Security.Principal.WindowsPrincipal)

If Principal.IsInRole(Security.Principal.WindowsBuiltInRole.Administrator) Then
MsgBox("Administratorです。")
Else
MsgBox("Administratorではありません。")
End If

注意！この例は認証モードにWindows認証を指定しているか、.NET Frameworkによる認証機能を使用していない場合にのみ正常に動作します。