✔ Programação GLOBAL®: PIECE OF CAKE

PIECE OF CAKE - Obtendo Endereço IP

Monitorar as estações onde a aplicação que desenvolvemos está executando requer analisarmos o Nº do IP da máquina onde está processando.

Este código ajuda a recuperar essa informação.

Function GetIPAddress()
' © 2007-20 Alefe & Bete Processamento de Dados LTDA - ME, except where noted, all rights reserved.
' Author: André Bernardes
' Contact: andreluizbernardess@gmail.com | https://goo.gl/EUMbSe/
' Description: Retorna IP

Const strComputer As String = "." ' Nome do computador. O "." representa o computador local
Dim objWMIService, IPConfigSet, IPConfig, IPAddress, i
Dim strIPAddress As String

' Conectando-se ao serviço WMI
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

' Obter todos os adaptadores de rede habilitados para TCP / IP
Set IPConfigSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

' Obter todos os endereços IP associados a esses adaptadores
For Each IPConfig In IPConfigSet
Let IPAddress = IPConfig.IPAddress
If Not IsNull(IPAddress) Then
Let strIPAddress = strIPAddress & Join(IPAddress, ", ")
End If
Next

Let GetIPAddress = strIPAddress
End Function

#A&A #PIECEOFCAKE #POC #VBA #IP #Address