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