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