Visual Basic - LOGGIN ?

Hola amigos... quisiera saber como puedo identificar la terminal que está ejecutando la aplicación.
En clipper esta función se llama NETNAME() pero en VB6 como hago ?
Gracias !!!

Hola si es verdad en clipper hay esa funcion pero en vb6 tienes que seguir estos pasos

todo esto lo pones en un modulo

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

Function sGetComputerName() As String
Dim sBuffer As String
Dim lBufSize As Long
Dim lStatus As Long

lBufSize = 255
sBuffer = String$(lBufSize, " ")
lStatus = GetComputerName(sBuffer, lBufSize)
sGetComputerName = ""
If lStatus <> 0 Then
sGetComputerName = Left(sBuffer, lBufSize)
End If

y desde tu aplicación pones esta instruccion en el LOAD

LLabel26 = UCase(sGetComputerName)

espero que te sirva

Germán Romo
Quito-Ecuador

Esta forma es mas corta que la del compañero y funciona perfectamente, espero que te sirva.
- En el formulario donde quieras obtener el nombre de usuario.En General:

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

En objetos del Formulario:
Private Sub Usuario()
Dim sBuffer As String
Dim lSize As Long
sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
wUsuario = Left$(sBuffer, lSize)
Else
wUsuario = "Usuario No Registrado"
End If
End Sub