[VB.NET] 現在のログインユーザが管理者権限かをチェックする

現在のログインユーザが管理者権限かをチェックするには。。。

Imports System.Security.Principal

Private Function IsAdministrator() As Boolean

　　' 現在の Windows ユーザを表す WindowsIndentity オブジェクトを取得
　　Dim Identity As WindowsIdentity = indowsIdentity.GetCurrent()
　　' ロールを評価するための WindowsPrincipal オブジェクトを
　　' WindowsIdentity オブジェクトから作成します
　　Dim principal As New WindowsPrincipal(Identity)

　　If principal.IsInRole(WindowsBuiltInRole.Administrator) Then
　　　　Return True
　　Else
　　　　Return False
　　End If
End Function