start cmd as administrator / sortcut

VNote 2017.11.17 14:47:04 *: Dim psi As New ProcessStartInfo()
psi.Verb = "runas" ' runas = Run As Administrator
psi.FileName = "cmd.exe"
psi.Arguments = "/c mklink C:\aa\2.txt C:\aa\Server\2.txt"
Try
Process.Start(psi)
Catch
End Try