Bypass UAC
Publicado: 18 Feb 2015, 23:30
If IsAdmin() Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "EnableLUA", "REG_DWORD", "0")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Policies\System", "EnableLUA", "REG_DWORD", "0")
; Your application code here.
Else
While 1
If ShellExecute(@ScriptName, "", "", "runas") Then Exit
WEnd
EndIf