1.Na Tela inicial, insira um objeto Consulta (Query) com o nome de "ConsultaEquipamento".

2.Configure a Consulta para acessar a tabela ConfigEquipamento e retornar os campos Equipamento, Porta e IP.

3.Na Tela inicial, adicione um Botão de Comando. No evento Click deste objeto, insira o script a seguir.

Set porta = Application.GetObject("Driver1.[IO.Ethernet.MainPort]")
Set driver = Application.GetObject("Driver1")
'Acessa a tabela ConfigEquipamento
Set cs = Screen.Item("ConsultaEquipamento").GetADORecordset()
'Move o ponteiro para o último registro
cs.MoveLast
'Percorre toda tabela
For i = 1 To cs.RecordCount
  equip = cs.Fields("Equipamento").Value & "|" & equip
  'Move para o registro anterior
  cs.MovePrevious
Next
'Exibe o nome de todos os equipamentos registrados
op = Application.SelectMenu(equip)
'Move para o primeiro registro
cs.MoveFirst
For i = 1 To cs.RecordCount
  'Verifica se a linha da tabela contem o nome do CLP selecionado
  If i = op Then
    'Coloca o Driver no modo Offline
    driver.Write -1, 0, 0, 4, 0
    'Muda a porta TCP/IP
    porta.WriteEx cs.Fields("Porta").Value
    'Coloca o Driver no modo Online
    driver.Write -1, 0, 0, 4, 1
  End If
  cs.MoveNext
Next

4.Execute a aplicação e teste a nova funcionalidade.