How to enable port TCPIP with Louts Script?

HCL Domino Domino Forum
1

Hello, I want to enable the port TCPIP in local names.nsf. I open the location and click the button “save&exit” in names, then lotus notes works well. But it works bad when I enable the port by lotus scrpt. The code is :

Dim localnamedb As NotesDatabase

Dim localnameview	As NotesView

Dim localnamedoc	As NotesDocument



Set localnamedb	=New NotesDatabase("","names.nsf")

Set localnameview	=localnamedb.GetView("Locations")

Set localnamedoc	=localnameview.GetFirstDocument



While Not localnamedoc Is Nothing

	'ports

	Call localnamedoc.ReplaceItemValue("EnabledPorts","TCPIP")

	

	Call localnamedoc.ComputeWithForm(True,True)

	Call localnamedoc.Save(True,False)

	

	Set localnamedoc=localnameview.GetNextDocument(localnamedoc)

Wend

please help me , thanks