{"id":18093,"date":"2026-10-19T11:10:39","date_gmt":"2026-10-19T14:10:39","guid":{"rendered":"https:\/\/kb.elipse.com.br\/?p=18093"},"modified":"2026-10-19T16:19:05","modified_gmt":"2026-10-19T19:19:05","slug":"inventario-de-ips-e-portas-dos-drivers-de-comunicacao","status":"publish","type":"post","link":"https:\/\/kb.elipse.com.br\/en\/inventario-de-ips-e-portas-dos-drivers-de-comunicacao\/","title":{"rendered":"Invent\u00e1rio de IPs e portas dos drivers de comunica\u00e7\u00e3o."},"content":{"rendered":"
\n
\n

Como percorrer todos os drivers de um Dom\u00ednio pelo E3 Studio e exportar em CSV o endere\u00e7o de rede configurado em cada um, sem alterar o projeto.<\/p>\n<\/div>\n<\/div>\n

\n
\n

1.<\/span> Introdu\u00e7\u00e3o<\/h2>\n

Em aplica\u00e7\u00f5es com muitos drivers de comunica\u00e7\u00e3o, descobrir para onde cada um aponta significa abrir a configura\u00e7\u00e3o de driver em driver e anotar o endere\u00e7o. Em uma auditoria de rede, uma migra\u00e7\u00e3o de faixa de IP ou a documenta\u00e7\u00e3o de uma planta herdada, isso consome horas.<\/p>\n

O E3 Studio permite automatizar esse levantamento por script, gerando um CSV com uma linha por driver. O procedimento \u00e9 somente de leitura: n\u00e3o cria Tags, n\u00e3o ativa a comunica\u00e7\u00e3o e n\u00e3o altera o projeto.<\/p>\n<\/section>\n

\n

2.<\/span> O que o script faz<\/h2>\n

O script executa quatro passos:<\/p>\n

    \n
  1. Enumera o Dom\u00ednio.<\/strong> Application.ListFiles()<\/code> retorna uma cole\u00e7\u00e3o com todos os objetos do Dom\u00ednio. Esse m\u00e9todo pertence ao objeto E3StudioApplication<\/code> e n\u00e3o est\u00e1 dispon\u00edvel em tempo de execu\u00e7\u00e3o \u2014 o levantamento \u00e9 feito em tempo de configura\u00e7\u00e3o.<\/li>\n
  2. Identifica os drivers por sondagem.<\/strong> Em vez de filtrar pelo nome da classe, o la\u00e7o tenta ler ExtraConfig<\/code>, EndPointURL<\/code> e ServerMachine<\/code> em cada objeto sob On Error Resume Next<\/code>. Telas, Viewers e Servidores de Dados n\u00e3o t\u00eam essas propriedades, geram erro 438 e s\u00e3o descartados. O On Error Resume Next<\/code> \u00e9 obrigat\u00f3rio: sem ele, o script para no primeiro objeto que n\u00e3o \u00e9 driver.<\/li>\n
  3. Extrai IP e porta.<\/strong> No IODriver<\/code>, percorre o vetor de ExtraConfig<\/code> procurando qualquer chave terminada em MainIP<\/code> ou MainPort<\/code> \u2014 assim funciona mesmo quando o protocolo usa outro prefixo. No UaDriver<\/code>, quebra a EndPointURL<\/code> em host e porta. No OPCDriver<\/code>, l\u00ea o ServerMachine<\/code> direto.<\/li>\n
  4. Grava o CSV.<\/strong> Uma linha por driver, com ponto e v\u00edrgula como separador, em C:\\Temp\\Drivers_IP_Porta.csv<\/code>.<\/li>\n<\/ol>\n

    Aten\u00e7\u00e3o.<\/strong> No IODriver<\/code> o endere\u00e7o n\u00e3o \u00e9 uma propriedade nomeada: protocolo, meio f\u00edsico, IP e porta ficam na janela Configura\u00e7\u00e3o…<\/strong>, aberta com o bot\u00e3o direito sobre o driver. O acesso por script \u00e9 a propriedade ExtraConfig<\/code>, do tipo variant e escondida<\/strong> \u2014 ela n\u00e3o aparece no AppBrowser nem na Lista de Propriedades do E3 Studio.<\/p><\/blockquote>\n

    \n
    ' Relatorio Driver;IP;Porta de todos os drivers do Dominio - Elipse E3\r\n' Cole no CustomConfig de um XControl e execute com botao-direito -> \"Configuracao...\".\r\n' Design-time, somente leitura: nao cria Tag, nao ativa driver, nao altera o projeto.\r\n\r\nConst ARQ = \"C:\\Temp\\Drivers_IP_Porta.csv\"\r\n\r\nDim fso, f, col, obj, drv, cfg, j, sNome, sIP, sPorta, sChave, sRest, p, n\r\n\r\nSet fso = CreateObject(\"Scripting.FileSystemObject\")\r\nIf Not fso.FolderExists(fso.GetParentFolderName(ARQ)) Then fso.CreateFolder fso.GetParentFolderName(ARQ)\r\nSet f = fso.CreateTextFile(ARQ, True)\r\nf.WriteLine \"Driver;IP;Porta\"\r\nn = 0\r\n\r\n' OERN obrigatorio: Telas\/Viewers\/DataServers nao tem as propriedades sondadas\r\n' abaixo e dariam erro 438 (800A01B6). Aqui eles sao apenas ignorados.\r\nOn Error Resume Next\r\n\r\nSet col = Application.ListFiles()   ' todos os objetos do Dominio (so existe no Studio)\r\nIf Err.Number <> 0 Then MsgBox \"ListFiles falhou: \" & Err.Description : f.Close : Exit Sub\r\n\r\nFor Each obj In col\r\n    sIP = \"\" : sPorta = \"\" : Err.Clear\r\n\r\n    sNome = obj.PathName\r\n    If Err.Number <> 0 Then Err.Clear : sNome = obj.Name\r\n    Err.Clear\r\n\r\n    ' IODriver: o IP nao e propriedade nomeada, mora na propriedade oculta\r\n    ' ExtraConfig - array VARIANT de pares chave\/valor da janela \"Configuracao...\".\r\n    cfg = obj.ExtraConfig\r\n    If Err.Number <> 0 Then          ' fallback: re-obtem o objeto real pelo caminho\r\n        Err.Clear\r\n        Set drv = Application.GetObject(sNome)\r\n        If Err.Number = 0 Then cfg = drv.ExtraConfig\r\n    End If\r\n\r\n    If Err.Number = 0 And IsArray(cfg) Then\r\n        For j = 0 To UBound(cfg) - 1\r\n            sChave = CStr(cfg(j))\r\n            If Err.Number <> 0 Then Err.Clear : sChave = \"\"\r\n            If sIP = \"\" And Right(sChave, 6) = \"MainIP\" Then sIP = CStr(cfg(j + 1))\r\n            If sPorta = \"\" And Right(sChave, 8) = \"MainPort\" Then sPorta = CStr(cfg(j + 1))\r\n            If Err.Number <> 0 Then Err.Clear\r\n        Next\r\n    End If\r\n    Err.Clear\r\n\r\n    ' UaDriver: quebra a EndPointURL (opc.tcp:\/\/host:porta\/caminho) em host + porta\r\n    sRest = obj.EndPointURL\r\n    If Err.Number = 0 Then\r\n        p = InStr(sRest, \":\/\/\") : If p > 0 Then sRest = Mid(sRest, p + 3)\r\n        p = InStr(sRest, \"\/\")   : If p > 0 Then sRest = Left(sRest, p - 1)\r\n        p = InStrRev(sRest, \":\")\r\n        If p > 0 Then\r\n            sIP = Left(sRest, p - 1) : sPorta = Mid(sRest, p + 1)\r\n        Else\r\n            sIP = sRest\r\n        End If\r\n    End If\r\n    Err.Clear\r\n\r\n    ' OPCDriver: DCOM nao usa porta fixa, so o nome\/IP da maquina\r\n    sRest = obj.ServerMachine\r\n    If Err.Number = 0 Then sIP = sRest\r\n    Err.Clear\r\n\r\n    If sIP <> \"\" Or sPorta <> \"\" Then\r\n        f.WriteLine sNome & \";\" & sIP & \";\" & sPorta\r\n        n = n + 1\r\n    End If\r\nNext\r\n\r\nf.Close\r\nMsgBox \"Gerado: \" & ARQ & vbCrLf & \"Drivers no relatorio: \" & n<\/pre>\n<\/div>\n<\/section>\n
    \n
    3.<\/span> Como executar e resultado<\/h2>\n
    O script roda no contexto de configura\u00e7\u00e3o, hospedado no evento CustomConfig<\/code> de um ElipseX:<\/p>\n
      \n
    1. No E3 Studio, crie (ou abra) um XControl no projeto.<\/li>\n
    2. Cole o c\u00f3digo no evento CustomConfig<\/code>. O corpo do CustomConfig<\/code> \u00e9 escrito sem declarar Sub<\/code> ou Function<\/code>.<\/li>\n
    3. Salve o projeto.<\/li>\n
    4. Na \u00e1rvore do Studio, clique com o bot\u00e3o direito sobre o XControl e escolha Configura\u00e7\u00e3o…<\/strong>.<\/li>\n<\/ol>\n
      Ao final, uma caixa de mensagem informa o caminho do CSV e quantos drivers entraram no relat\u00f3rio. O arquivo abre direto no Excel em configura\u00e7\u00e3o regional pt-BR:<\/p>\n
      \n
      <\/i><\/i><\/i> Drivers_IP_Porta.csv<\/div>\n
      Driver;IP;Porta\r\nComunicacao.DrvModbus;192.168.0.10;502\r\nComunicacao.DrvCLP2;192.168.0.11;502\r\nComunicacao.DrvOpcUa;servidor-ua;4840\r\nComunicacao.DrvOpcDa;\\\\ESTACAO01;<\/pre>\n<\/div>\n
      A coluna Porta fica vazia nos drivers OPC DA: a comunica\u00e7\u00e3o \u00e9 feita por DCOM, que n\u00e3o usa uma porta fixa configurada no objeto.<\/p>\n
      Drivers seriais n\u00e3o entram no relat\u00f3rio.<\/strong> A condi\u00e7\u00e3o final do la\u00e7o s\u00f3 grava a linha quando h\u00e1 IP ou porta, e um driver configurado para meio f\u00edsico serial n\u00e3o tem MainIP<\/code>. Para list\u00e1-los mesmo assim, remova a condi\u00e7\u00e3o e deixe as colunas em branco.<\/p><\/blockquote>\n<\/section>\n
      <\/section>\n