Red de conocimiento informático - Material del sitio web - Cómo obtener la dirección IP local en VB

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