ヘッダー

VB.NET2002対応 VB.NET2003対応 VB2005対応

 

Visual Basic 中学校 > VB.NET サンプル >

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

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

VB.NET2002対応 VB.NET2003対応 VB2005対応

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による認証機能を使用していない場合にのみ正常に動作します。