This script will Disable User Account Control.(UAC) (VBScript)
| 'This script will Disable User Account Control 'On Error Resume Next Dim WSHShell Message = "This script will Enable User Account Control." & vbCR Message = Message & "After you run this script, you must Reboot for this to take effect." & vbCR & vbCR Message = Message & "If you do not have Administrator Privilege, this script will error out." & vbCr &vbCr Message = Message & "Continue?" X = MsgBox(Message, vbYesNo, "Paul's XP and Vista Tweaks") If X = 6 Then Set WSHShell = WScript.CreateObject("WScript.Shell") WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", 1, "REG_DWORD" MsgBox "UAC is now ENABLED" & vbCr & VbCr & "Don't forget to REBOOT!" & vbCr &_ "This script was downloaded from www.paulsxp.com", 64, "Done!" End If Set WshShell = Nothing |