MacroFacili: Indirizzo IP del PC

Una funzione che restituisce l'indirizzo IP locale del computer accedendo direttamente al modulo di Windows.

Function My_IP() As String
  Dim objWMIService As Object, IPConfigSet As Variant, IPConfig As Variant

  Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration")

  For Each IPConfig In IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then
      My_IP = IPConfig.IPAddress(0)
    End If
  Next
End Function

L'esempio completo é scaricabile da questo link: Es302.xlsm (a questo link le info per attivare le macro se risultano bloccate)

Gli esempi contenuti nel sito sono per uso personale, non é consentito l'uso professionale, commerciale o la riproduzione senza autorizzazione.

Per dubbi o domande potete scriverci a domande@macrofacili.it, sulla nostra pagina FB MacroFacili.it o sul gruppo FB Excel, macro e formule.