Detectar IP y Nombre del Computador

[2Fast To You]

Hola Amigos

Bueno, me gustaría saber como puedo hacer para Detectar en VB la IP y el Nombre del Computador. Y despues ponerlo en un TextBox

Saludos

[jrp01]

Para saber el IP es asi:

inserta un control winsock en tu proyecto desde componentes,lo pones en tu form y haz doble click en tu winsock y pones la siguinte instruccion

text1=winsock.localIp


Para el nombre de la PC:

En un boton:
Private Sub Command1_Click()
Dim nPC As String
Dim buffer As String
Dim estado As Long
buffer = String$(255, " ")
estado = GetComputerName(buffer, 255)
If estado <> 0 Then
nPC = Left(buffer, 255)
End If
MsgBox "Nombre de la Computadora: " & nPC
End Sub

En un modulo:
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Saludos

[2Fast To You]

Amigo

El nombre de la PC funciona pero el de LA IP no

Saludos

[jrp01]

Aver pon un boton y un text y en el boton le pones:

text1=winsock.localIp

Si no funciona me dices

[2Fast To You]

No, me tira un Erro diciendo

Se requiere un Objeto

Saludos

[2Fast To You]

listo

ya esta

Era el nombre del Winsock

Saludos