'This script will prompt for new relay URL and relay port
'If you want to change the key, find the line below k = MyArrayKSecond(0) and change it to k = "YourKeyHere"

'ScreenConnect Service Name in v3.0 - ScreenConnect Guest Service (...)
'ScreenConnect Service Name in v3.1 - ScreenConnect Guest Client (...)
'ScreenConnect Service Name in v3.2 - ScreenConnect Client (...)

If WScript.Arguments.Named.Exists("elevated") = False Then
	'Launch the script again as administrator
	CreateObject("Shell.Application").ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ /elevated", "", "runas", 1
	WScript.Quit
Else
	'Change the working directory from the system32 folder back to the script's folder.
	Set oShell = CreateObject("WScript.Shell")
	oShell.CurrentDirectory = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
End If

strComputer = "."  'could be any computer, not just the local one '
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name LIKE '%ScreenConnect%'")
dim temp
dim OriginalImagePath
For Each objService in colServiceList
temp = objService.DisplayName
next

const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

strKeyPath = "SYSTEM\CurrentControlSet\services\" & temp
strValueName = "ImagePath"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
OriginalImagePath = strValue
'Wscript.Echo OriginalImagePath
'Find Y
Dim MyArrayYFirst
Dim MyArrayYSecond
Dim y 
Dim orig
MyArrayYFirst = Split(OriginalImagePath, "y=", -1, 1)
MyArrayYSecond = Split(MyArrayYFirst(1), "&", -1, 1)
orig = MyArrayYFirst(0)
y = MyArrayYSecond(0)
'Wscript.Echo "orig"
'Wscript.Echo orig
'Wscript.Echo "y"
'Wscript.Echo y
'Find H
Dim MyArrayHFirst
Dim MyArrayHSecond
Dim h 
MyArrayHFirst = Split(OriginalImagePath, "h=", -1, 1)
MyArrayHSecond = Split(MyArrayHFirst(1), "&", -1, 1)
Dim newrelayurl
newrelayurl = InputBox("Enter new ScreenConnect Relay URL", ,MyArrayHSecond(0))
If newrelayurl = "" Then
Wscript.Echo "You entered nothing in the input box...quitting now"
wscript.quit
Else
h = newrelayurl
End If
'Wscript.Echo "h"
'Wscript.Echo h
'Find P
Dim MyArrayPFirst
Dim MyArrayPSecond
Dim p 
MyArrayPFirst = Split(OriginalImagePath, "p=", -1, 1)
MyArrayPSecond = Split(MyArrayPFirst(1), "&", -1, 1)
Dim newrelayport
newrelayport = InputBox("Enter new ScreenConnect Relay Port", ,MyArrayPSecond(0))
If newrelayport = "" Then
Wscript.Echo "You entered nothing in the input box...quitting now"
wscript.quit
Else
p = newrelayport
End If
'Wscript.Echo "p"
'Wscript.Echo p
'Find K
Dim MyArrayKFirst
Dim MyArrayKSecond
Dim k 
MyArrayKFirst = Split(OriginalImagePath, "k=", -1, 1)
MyArrayKSecond = Split(MyArrayKFirst(1), "&", -1, 1)
k = MyArrayKSecond(0)
'Wscript.Echo "k"
'Wscript.Echo k
'Find T
Dim MyArrayTFirst
Dim MyArrayTSecond
Dim t 
MyArrayTFirst = Split(OriginalImagePath, "t=", -1, 1)
MyArrayTSecond = Split(MyArrayTFirst(1), "&", -1, 1)
t = Replace(MyArrayTSecond(0), """","")
'Wscript.Echo "t"
'Wscript.Echo t

newpathname = orig & "y=" & y & "&h=" & h & "&p=" & p & "&k=" & k & "&t=" & t & """"

'Wscript.Echo "newpathname"
'Wscript.Echo newpathname

strKeyPath = "SYSTEM\CurrentControlSet\services\" & temp
strValueName = "ImagePath"
strValue = newpathname
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

For Each objService in colServiceList
objService.StopService()
WSCript.Sleep 15000
objService.StartService()
next