Option Explicit x86Win32ScriptingElevate() Dim strPath Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") strPath = SelectFolder( "" ) If strPath = vbNull Then WScript.Echo "Cancelled" Else 'WScript.Echo "Selected Folder: """ & strPath & """" 'strPath = Replace(strPath,"\","\\") & "\" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online Third Dawn\", "" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online Third Dawn\", "" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online Third Dawn\", "" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online Third Dawn\", "" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online Third Dawn\", "" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online\", "" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online\", "" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online\", "" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online\", "" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online\", "" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online Third Dawn\1.0\ExePath", strPath & "\uotd.exe", "REG_SZ" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online Third Dawn\1.0\InstCDPath", strPath & "\", "REG_SZ" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online Third Dawn\1.0\PatchExePath", strPath & "\uopatch.exe", "REG_SZ" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online Third Dawn\1.0\StartExePath", strPath & "\uo.exe", "REG_SZ" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online Third Dawn\1.0\Upgraded", "Yes", "REG_SZ" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online\1.0\ExePath", strPath & "\client.exe", "REG_SZ" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online\1.0\InstCDPath", strPath & "\", "REG_SZ" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online\1.0\PatchExePath", strPath & "\uopatch.exe", "REG_SZ" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online\1.0\StartExePath", strPath & "\uo.exe", "REG_SZ" WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Origin Worlds Online\Ultima Online\1.0\Upgraded", "Yes", "REG_SZ" Msgbox("Complete!") End If Function SelectFolder( myStartFolder ) Dim objFolder, objItem, objShell On Error Resume Next SelectFolder = vbNull Set objShell = CreateObject( "Shell.Application" ) Set objFolder = objShell.BrowseForFolder( 0, "Please select your Sylvan Heart folder.", 0, myStartFolder ) If IsObject( objfolder ) Then SelectFolder = objFolder.Self.Path Set objFolder = Nothing Set objshell = Nothing On Error Goto 0 End Function Function x86Win32ScriptingElevate() Dim VBSExe, Tst, TxtArg, i If wscript.arguments.named.exists("elevated") = True then Exit function Dim Args : Set Args = Wscript.Arguments For i = 0 to Args.Count - 1 TxtArg = TxtArg & " " & Args( i ) Next TxtArg = Trim( TxtArg ) VBSExe = UCase( WScript.FullName ) Tst = Replace( VBSExe, "\SYSTEM32\", "\SYSWOW64\" ) If CreateObject("Scripting.FileSystemObject").FileExists( Tst ) Then VBSExe = Tst Tst = createobject("Shell.Application").ShellExecute( """" & VBSExe & """", """" & wscript.scriptfullname & """ " & TxtArg & " /elevated", "", "runas", 1 ) WScript.Quit( Tst ) End Function