Se trata de una pequeña aplicacion que permite acceder a las direcciones IP Privadas, Publica y Fisica (MAC Address).
Codigo:
Form1
Imports System.Net
Imports System.Net.NetworkInformation
Imports System.Net.Sockets
Imports System.Text.Encoding
Imports NetFwTypeLib
Public Class Form1
Dim PROPIEDADES As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties()
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Button1.Enabled = False
'IP PUBLICA
TextBox1.Text = ""
Dim IPPUBLICA As String
Dim ip As New WebClient
TextBox1.Text = TextBox1.Text & "IP PUBLICA (OBTENIDA A TRAVES DE: http://checkip.dyndns.org/)" & vbCrLf & vbCrLf
IPPUBLICA = ip.DownloadString("http://checkip.dyndns.org/").Replace("<html><head><title>Current IP Check</title></head><body>Current IP Address: ", "").Replace("</body></html>", "") & vbCrLf
TextBox1.Text = TextBox1.Text & IPPUBLICA & vbCrLf
'IP PRIVADAS
Dim DIRECCIONESIPV4 As New ArrayList
Dim DIRECCIONESIPV6 As New ArrayList
Dim DIRECCIONES As UnicastIPAddressInformationCollection = PROPIEDADES.GetUnicastAddresses
TextBox1.Text = TextBox1.Text & "DIRECCIONES UNICAST EQUIPO LOCAL " & vbCrLf & vbCrLf
For Each DIRECCION In DIRECCIONES
If DIRECCION.Address.IsIPv6Teredo() = True Then
TextBox1.Text = TextBox1.Text & DIRECCION.Address.ToString & " : " & DIRECCION.Address.AddressFamily.ToString & " TEREDO " & vbCrLf & vbCrLf
ElseIf DIRECCION.Address.ToString.Contains(":") Then
DIRECCIONESIPV6.Add(DIRECCION.Address.ToString)
Else
DIRECCIONESIPV4.Add(DIRECCION.Address.ToString)
End If
Next
If DIRECCIONESIPV4.Count > 0 Then
TextBox1.Text = TextBox1.Text & "DIRECCIONES IPv4:" & vbCrLf & vbCrLf
For I = 0 To DIRECCIONESIPV4.Count - 1
If DIRECCIONESIPV4(I).ToString.Contains("169.254.") Then
TextBox1.Text = TextBox1.Text & DIRECCIONESIPV4(I) & " DHCP" & vbCrLf & vbCrLf
Else
TextBox1.Text = TextBox1.Text & DIRECCIONESIPV4(I) & vbCrLf & vbCrLf
End If
Next
End If
If DIRECCIONESIPV6.Count > 0 Then
TextBox1.Text = TextBox1.Text & "DIRECCIONES IPv6:" & vbCrLf & vbCrLf
For I = 0 To DIRECCIONESIPV4.Count - 1
TextBox1.Text = TextBox1.Text & DIRECCIONESIPV6(I) & vbCrLf & vbCrLf
Next
End If
TextBox1.Text = TextBox1.Text & vbCrLf
'INTERFACES
Dim INTERFACES As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
TextBox1.Text = TextBox1.Text & "INFORMACION DE LAS INTERFACES DE : " & PROPIEDADES.HostName & PROPIEDADES.DomainName & vbCrLf & vbCrLf
If INTERFACES.Count < 1 Then
TextBox1.Text = TextBox1.Text & "NO HAY INTERFACES " & vbCrLf & vbCrLf
Else
TextBox1.Text = TextBox1.Text & "NUMERO DE INTERFACES: " & INTERFACES.Count & vbCrLf & vbCrLf
For Each INTERFAZ In INTERFACES
TextBox1.Text = TextBox1.Text & INTERFAZ.Description & " Tipo: " & INTERFAZ.NetworkInterfaceType & vbCrLf
TextBox1.Text = TextBox1.Text & INTERFAZ.GetPhysicalAddress().ToString & vbCrLf & vbCrLf
Next
End If
End Sub
End Class
Acceder a la IP del Ordenador con Visual Basic (VB.NET)
Codigo:
Form1
Imports System.Net.NetworkInformation
Imports System.Net
Imports System.Net.Sockets
Public Class Form1
Private Sub ButtonIP_Click(sender As System.Object, e As System.EventArgs) Handles ButtonIP.Click
Label1.Text = ""
Dim MI_HOST As String
MI_HOST = Dns.GetHostName()
Dim MIS_IP As IPAddress() = Dns.GetHostAddresses(MI_HOST)
' SI DESACTIVAMOS EL COMENTARIO VEREMOS EL NOMBRE DE NUESTRO ORDENADOR
'Label1.Text = Label1.Text & MI_HOST & vbCrLf
For I = 0 To MIS_IP.Length - 1
Label1.Text = Label1.Text & MIS_IP(I).ToString & vbCrLf
Next
End Sub
End Class
Puedes hacer un programa para poder acceder a la dirección ip de una impresora de red hp y ver su configuración interna
ResponderEliminarHola: Lo lamento. No dispongo de ninguna impresora de red y no podria hacer pruebas. Saludos.
Eliminar