‘vbscript
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = “.”
Set objReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\” & _
    strComputer & “rootdefault:StdRegProv”)

objReg.SetDwordValue HKEY_LOCAL_MACHINE,”SOFTWAREMicrosoftWindowsCurrentVersionPoliciesSystem”,”EnableLUA”,1