Disable UAC control
—Copy Source Code—
————————
‘This script will Disable User Account Control
‘On Error Resume Next
Dim WSHShell
Set WSHShell = WScript.CreateObject(“WScript.Shell”)
WshShell.RegWrite “HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ Policies\System\EnableLUA”, 0, “REG_DWORD”
MsgBox “UAC is now disable…” & vbCr & VbCr & “Don’t forget to REBOOT!” & vbCr &_
“
http://lair360.srhost.info”, 64, “Finish!”
Set WshShell = Nothing
————————
—End Source Code—
Enable UAC control
—Copy Source Code—
————————
‘This script will Enable User Account Control
On Error Resume Next
Dim WSHShell
Set WSHShell = WScript.CreateObject(“WScript.Shell”)
WshShell.RegWrite “HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ Policies\System\EnableLUA”, 1, “REG_DWORD”
MsgBox “UAC is now enable…” & vbCr & VbCr & “Don’t forget to REBOOT!” & vbCr &_
“
http://lair360.srhost.info”, 64, “Finish!”
Set WshShell = Nothing
————————
—End Source Code—