file = <path to existing session profile or profile type>
Set configurator = CreateObject("MicroFocus.RumbaConfigurator")
Set profile = configurator.OpenSessionProfile(file)
If Not profile Is Nothing Then
Set overrides = profile.OverriddenParameters
overrides.HostName = <Name of host>
overrides.Port = <Port>
overrides.SSL = True
overrides.DeviceName = <name of device>
Set SSLoverrides = profile.SSLOverriddenParameters
SSLoverrides.RequireStrictServerAuthentication = True
SSLoverrides.EnforceValidityDates = True
SSLoverrides.ExplicitSSL = False
SSLoverrides.RequireTrustedChain = True
SSLoverrides.ClientCertificateName = <Name of certificate>
SSLoverrides.InteractiveMode = True
Set ConnectionOverrides = profile.OverriddenConnectionParameters
ConnectionOverrides.SendKeepAlive = 2
ConnectionOverrides.KeepAliveNOPInterval = 1000
Set PlusOverrides = profile.OverriddenPlusParameters
PlusOverrides.AutoComplete = False
PlusOverrides.SpellCheck = False
PlusOverrides.HyperlinksDetectWebAddresses = False
PlusOverrides.HyperlinksDetectEmailAddresses = False
PlusOverrides.HyperlinksDetectFileAddresses = 0
Set APIOverrides = profile.OverriddenAPIParameters
APIOverrides.ShortName = "V"
APIOverrides.MultipleSessions = False
Set EditOverrides = profile.OverriddenEditParameters
EditOverrides.TypeAhead = True
EditOverrides.KeyboardAutoReset = True
EditOverrides.DoubleClickAction = 0
EditOverrides.WordWrap = True
EditOverrides.PCInsertMode = False
EditOverrides.PasteInsert = False
EditOverrides.ParsingCutCopy = 1
EditOverrides.MoveCursorAfterPaste = False
Set LightPenOverrides = profile.OverriddenLightPenParameters
LightPenOverrides.LightPen = 0
MsgBox("Done")
Else
MsgBox("Can't open file " + file)
End If