UAC Enable / Disable Code

[coRe_cuLT]

Hi,

kann mir bitte wer einen Code geben, damit man UAC Enable / Disbablen kann.

Habe alles Fertig, alle Butons nur der Code fehlt mir.

Hab hier etwas gefunden:

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—

aber der geht iwie nicht.

hoffe ihr könnt mir helfen.