Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Puedes hacerlo con el componente winsock lo activas con el nombre Microsoft Winsock Control 6.0, una vez hecho pones el siguiente codigo, para tu PC. Private Sub Form_Load() Dim MiIP Dim NomPC MiIP = Winsock1.LocalIP NomPC = Winsock1.LocalHostName MsgBox "IP: " + CStr(MiIP) + Chr(13) + "Name PC: " + NomPC, vbInformation End Sub