Visual Basic - Como obtengo direccion IP del PC actual?

Como puedo rescatar direccion IP, Nombre Usuario desde el equipo que estoy usando?

Existe un control que se llama Winsock y lo puedes encontrar en la lista de componentes del proyecto en VB. Este te permite ver el IP y otra informacion, pero no creo que te permita ver el usuario. Dale un vistazo a ese control, puede ser util para ti.

para agarrar el username llama la la funcion API GetUserName()
ie:

Option Explicit

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()
Dim Nombre As String

Nombre = Space$(255)
Call GetUserName(Nombre, 255)
Call MsgBox("Username=" & Nombre)
End Sub

Para qué la respuesta del username?

Como puedo rescatar direccion IP, Nombre Usuario desde el equipo que estoy usando?

por si no lesiste la pregunta.

En un módulo .bas declaras:
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Public Function LoginRed(ByVal red As String)
' Dim strBuffer As String
Dim lSize As Long
Dim lRes As Long
strBuffer = String(256, Chr$(0))
lSize = Len(strBuffer)
lRes = GetUserName(strBuffer, lSize)
If lRes And lSize Then
strBuffer = left$(strBuffer, InStr(strBuffer, Chr$(0)) - 1)
Else
strBuffer = ""
End If
' Label1.Caption = strBuffer
End Function

Public Function NombrePc(x As String)
Dim buffer As String, estado As Long
buffer = String$(255, " ")
estado = GetComputerName(buffer, 255)
If estado <> 0 Then
nPc = left(buffer, 255)
End If
End Function

Y en el formulario que te interese:

Private Sub MiDereccionIP_Click()
Dim dirip$, nomPc$, red$
dirip = GetIPAddress
nomPc = NombrePc(nPc)
red = LoginRed(strBuffer)
red = strBuffer
If Trim(dirip) = "" Then
MsgBox "Dirección IP no encontrada", vbInformation, "No hay Datos"
Else
MsgBox "Datos y usuario de este ordenador:" & vbCrLf & "Dirección IP: " & dirip & Chr(13) & Chr(13) & "Nombre del ordenador: " & nPc, vbInformation, " USUARIO: " & red
End If
End Sub

Un Saludo.

Lo anterior te da la dirección IP, el nombre del PC y el login del usuario que ha entrado en sesión.

Saludos
Pere