file = "C:\Work\Test\MFDisplay.rsdm" Set configurator = CreateObject("MicroFocus.RumbaConfigurator") Set profile = configurator.OpenSessionProfile(file) If Not profile Is Nothing Then Set overrides = profile.OverriddenParameters overrides.Port = 992 overrides.SSL = True Else MsgBox("Can't open file " + file) End If
file = "C:\Work\Test\MFDisplay.rsdm" Set configurator = CreateObject("MicroFocus.RumbaConfigurator") Set profile = configurator.OpenSessionProfile(file) If Not profile Is Nothing Then Set overrides = profile.OverriddenParameters overrides.Port = 2320 overrides.SSL = False overrides.DeviceName = "TCPD0010" Else MsgBox("Can't open file " + file) End If