Code:
IsAdmin function:
Checking if the app has privileges:
IsAdmin function:
Private Function IsAdministrator() As Boolean Try Dim user As WindowsIdentity = WindowsIdentity.GetCurrent() Dim principal As WindowsPrincipal = New WindowsPrincipal(user) Return principal.IsInRole(WindowsBuiltInRole.Administrator) Catch ex As Exception Return False End Try End Function
Checking if the app has privileges:
If (IsAdministrator()) Then MessageBox.Show("the application is running as admin") Else MessageBox.Show("the application is not running as admin") End If
Restarting the app as admin:
If (IsAdministrator()) Then Return If (MessageBox.Show("do you want to restart the application to get admin privileges?", "", MessageBoxButtons.YesNo) = DialogResult.Yes) Then Dim p As New Process() p.StartInfo.FileName = Application.ExecutablePath p.StartInfo.Verb = "runas" p.Start() Process.GetCurrentProcess().Kill() End If