vb.net查看是否有管理员权限
作者:小编
更新时间:2023-08-09
点击数:
Imports System.Security.Principal Dim identity = WindowsIdentity.GetCurrent() Dim principal = new WindowsPrincipal(identity) Dim isElevated as Boolean = principal.IsInRole(WindowsBuiltInRole.Administrator) If isElevated Then MessageBox.Show("Is Admin") End If
Imports System.IO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try File.Create("c://test.txt") MessageBox.Show("Is Admin") File.Delete("c://test.txt") Catch ex As Exception If ex.ToString.Contains("denied") Then MessageBox.Show("Is Not Admin") End If End Try End Sub End Class