Private Function AdminPermissions() As Boolean
      Using p As New Process()
         p.StartInfo = New ProcessStartInfo With {
            .FileName = "cmd",
            .RedirectStandardInput = True,
            .RedirectStandardOutput = True,
            .CreateNoWindow = True,
            .UseShellExecute = False}
         p.Start()
         p.StandardInput.WriteLine("net user " & Environment.UserName)
         p.StandardInput.WriteLine("exit")
         Do
            Dim line = p.StandardOutput.ReadLine
            If line Is Nothing Then Return False
            If line.ToLower.Contains("administrator") Then Return True
         Loop
      End Using
   End Function