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
Consulte-nos
⬛◼◾▪ CONTATO ▪◾◼⬛
Nenhum comentário:
Postar um comentário