Windows 10 關閉 UAC 的 VBS

If WScript.Arguments.Named.Exists("elevated") = False Then
  CreateObject("Shell.Application").ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ /elevated", "", "runas", 1
  WScript.Quit
End If


Dim myShell, KEY, v, itemtype

Set myShell = CreateObject("WScript.Shell")
KEY = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA"
itemtype = "REG_DWORD"
v = "0"
myShell.RegWrite KEY, v, itemtype

MsgBox "EnableLUA has been set to 0.", 4096,"Finished"