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

Consulte-nos

⬛◼◾▪ Social Media ▪◾◼⬛

• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 

• VBA Specialist® • VBA Excel Specialist®

• VBA Access Specialist® • VBA Dashboards Specialist®

• VBA Infografics Specialist® • VBA Pharma Specialist® 

⬛◼◾▪ CONTATO ▪◾◼⬛

brazilsalesforceeffectiveness@gmail.com

VBA Excel - Conectando-se à distância através do IP

| Blog Office VBA | Blog Excel | Blog Access |

Talvez tenha se deparado com a necessidade de plugar-se a um Banco de Dados à distância, em outra rede, ou num servidor externo à rede que utiliza. Como fazer referência a ele utilizando uma conexão ODBC?

No exemplo a seguir temos a conexão a um banco MySQL. O código abaixo será útil nessa experiência, apenas certifique-se de utilizar a versão correta do Driver de ODBC.

Sub DeleteMySQLDatabase()

Dim Database_Name As String

Dim User_ID As String

Dim Password As String

Dim Cn As ADODB.Connection

Dim Server_Name As String

Dim SQLStr As String

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

Let Server_Name = Sheets(3).Range("B24").Value               ' IP number or servername

Let Database_Name = Sheets(3).Range("B21").Value             ' Name of database

Let User_ID = Sheets(3).Range("B25").Value                   ' ID user or username

Let Password = Sheets(3).Range("B23").Value                  ' Password

Let Tabellen = Sheets(3).Range("B22").Value                  ' Name of table to write to

Let auxilia = Sheets(1).Range("L16").Value

Let ID = Sheets(1).Cells(auxilia, "A").Value

Let SQLStr = "DELETE FROM " & Tabellen & " WHERE ID = '" & ID & "';"

Set Cn = New ADODB.Connection

Cn.Open "Driver={MySQL ODBC 3.51 Driver};Server=" & Server_Name & ";Database=" & Database_Name & _

";Uid=" & User_ID & ";Pwd=" & Password & ";"

Cn.Execute SQLStr

Set rs = Nothing

Cn.Close

Set Cn = Nothing

End Sub

Outros artigos:

O que é ODBC?

Reference

Tags: VBA, Excel, SQL, MySQL, ODBC, connect, Database, Banco de Dados, conexão, server, servidor, IP