Redes - Obtener IP con Visual Basic

Hola a Todos.
Resulta que necesito hacer una aplicación en Visula dentro de una red Corporativa, esta aplicación solo debe ejecutarse una sola vez por cada equipo u o usuario dentro de la red. Por ello e pensado tomar la IP de ese usuario y validar que no la pueda usar nuevamente a través de la IP.
Eso es lo que no se hacer con Visual Basic
Muchisimas Gracias de Antemano

Una alternativa puede ser esta

Crea un proyecto e incluye el control WinSock y un Command Button.... y luego pones el código:

Private Sub Command1_Click()

Winsock1.RemoteHost = Winsock1.LocalHostName
MsgBox Winsock1.LocalIP

End Sub

Y con esto debe mostrarte la IP local de la máquina en que estas trabajando

Lo siguiente que debieras hacer es guardar la IP en alguna base de datos para poder realizar una consulta y ver si ya fue accesada ese día

Muchas Gracias por la respuesta.
Ya habia resuelto mi situación utilizando un modulo y colocando en el el siguiente codigo:
'Obtener Usuario Actual
Function GetUserName()

Dim InfoNT
Set InfoNT = CreateObject("WinNTSystemInfo")
GetUserName = InfoNT.UserName

End Function

'Obtener nombre del dominio
Function GetDomainName()

Dim InfoNT
Set InfoNT = CreateObject("WinNTSystemInfo")
GetDomainName = LCase(InfoNT.DomainName)

End Function
'Obtener nombre del ordenador
Function GetComputerName()

Dim InfoNT
Set InfoNT = CreateObject("WinNTSystemInfo")
GetComputerName = LCase(InfoNT.ComputerName)

End Function
Lo dejo como una contribución para quienes como yo en ese momento, necesiten obtener estos datos del equipo en la red.
Muchisimas Gracias de nuevo