Dim user As System.Security.Principal.IIdentity = System.Security.Principal.WindowsIdentity.GetCurrent()
Dim principal As New System.Security.Principal.WindowsPrincipal(CType(user, System.Security.Principal.WindowsIdentity))
If principal.IsInRole(System.Security.Principal.WindowsBuiltInRole.Administrator) Then
MsgBox("Admin Account", MsgBoxStyle.Information)
Else
MsgBox("Normal Account", MsgBoxStyle.Information)
End If