[SOLVED] RegUpdateAllUsers does not update HKCU Default when run on Windows 8.1 professional

[mjs6161970]

I Have a solution to run this in Windows 8.1 You can add the following lines and force the script to run as administrator (notice the extra s so that the other wshshell does not overwrite it) :

add this immediately after on error resume next :

Dim WshsShell, objsshell
Set WshsShell = WScript.CreateObject("WScript.Shell")
If WScript.Arguments.length = 0 Then
Set ObjsShell = CreateObject("Shell.Application")
ObjsShell.ShellExecute "wscript.exe", """" & _
WScript.ScriptFullName & """" &_
" RunAsAdministrator", , "runas", 1
Else

add this AFTER Processing Complete but BEFORE wscript.quit(0) :

End if