[Easi--]

It does not work...

I've tried the following:

Code

Private Sub aa()
      Dim wp = New WindowsPrincipal(WindowsIdentity.GetCurrent())
      If wp.IsInRole(WindowsBuiltInRole.Administrator) Then
      MessageBox.Show("Admin!")
      Else
      MessageBox.Show("Other User")
      End If
    End Sub

OS is Win 8.1.

Returns "Other User" although I have administrator rights.

[imi-tat0r]

It does not work...

I've tried the following:

Code

Private Sub aa()
      Dim wp = New WindowsPrincipal(WindowsIdentity.GetCurrent())
      If wp.IsInRole(WindowsBuiltInRole.Administrator) Then
      MessageBox.Show("Admin!")
      Else
      MessageBox.Show("Other User")
      End If
    End Sub

OS is Win 8.1.

Returns "Other User" although I have administrator rights.

Try starting it as Administrator (right click -> start as Administrator)
If you have UAC activated windows still uses "Usermode"

[He B TeMy]

It does not work...

I've tried the following:

Code

Private Sub aa()
      Dim wp = New WindowsPrincipal(WindowsIdentity.GetCurrent())
      If wp.IsInRole(WindowsBuiltInRole.Administrator) Then
      MessageBox.Show("Admin!")
      Else
      MessageBox.Show("Other User")
      End If
    End Sub

OS is Win 8.1.

Returns "Other User" although I have administrator rights.

That code doesn't check if the current account logged to windows has admin privileges, that checks if your application has them.