[SOLVED] RegUpdateAllUsers does not update HKCU Default when run on Windows 8.1 professional #2
Description
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