Saber la dirección IP usando VBA en Microsoft Excel

Escrito por Administrador

15 de abril de 2024

Hoy vamos a ver cómo saber la dirección IP usando VBA en Microsoft Excel.

Para ello he creado un ejemplo muy sencillo, en el que obtendremos dicha información al pulsar un botón.

saber-usuarios-conectados-base-datos

A continuación os muestro el código necesario,

Private Sub ip()

Dim strComputer As String
Dim objWMI As Object
Dim colIP As Object
Dim ip As Object
Dim i As Integer
Dim ipserver As String

ipserver = ""
strComputer = "."

Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colIP = objWMI.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each ip In colIP

If Not IsNull(ip.IPAddress) Then

For i = LBound(ip.IPAddress) To UBound(ip.IPAddress)

ipserver = ip.IPAddress(i)
MsgBox ip.IPAddress(i), vbInformation, ip.Description(i)

Next
End If

Next

End Sub

Al pulsar el botón, aparecerá un msgbox con la dirección IP,

saber-usuarios-conectados-base-datos

Espero que este post te haya servido para saber cómo obtener la dirección IP usando VBA en Microsoft Excel. Descárgate el archivo de ejemplo y practica.

Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.

Hasta la próxima.

Si te ha servido y quieres donar





Descarga el archivo del ejemplo

0 comentarios

Enviar un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Últimas publicaciones

Categorías

julio 2024
LMXJVSD
1234567
891011121314
15161718192021
22232425262728
293031 

Contacto