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
