Cómo obtener la dirección IP local en VB

Defina el siguiente proceso para obtener la dirección IP local

Sub?GetMyIP()

Dim?strComputer?As?String

Dim?objWMI?As?Object

Dim?colIPAs?Object

Dim?IP?As?Object

Dim?IAs?Integer

strComputer?=?"."

Set?objWMI?=?GetObject("winmgmts://"?&?strComputer?&?"/root/cimv2")

Set?colIP?=?objWMI.ExecQuery?_

("Select?*?from?Win32_NetworkAdapterConfiguration?where?IPEnabled=TRUE")

Para?Cada?IP?In ?colIP

Si?No?EsNull(IP.IPAddress)?Entonces

Para?I?=?LBound(IP.IPAddress)?A?UBound(IP.IPAddress)

MsgBox?"IP?Dirección:"?&?IP.IPAddress(I)?&?Chr(10)?&?_

Siguiente

Fin ?Si

Siguiente

Fin?Sub