No módulo:
'Windows API's - pega o nome da estação
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
na entrada principal do programa(sub main)
lngI = GetComputerName(strP$, Len(strP$)) 'Tenta pegar o nome da estação
If lngI > 0 Then 'Ok! pega o mome da estação
strNomeEstacao$ = Left$(strP$, InStr(strP$ + Chr$(0), Chr$(0)) - 1)
Else 'O windows não sabe quem é!!!
strNomeEstacao$ = ""
End If
If Len(strNomeEstacao$) = 0 Then 'ainda não tem o nome da estação
If Len(strNomeEstacao$) = 0 Then 'se não conseguiu
If strNomeEstacao$ = "" Then 'não informou a estação...
End 'então não pode entrar no sistema.
End If 'então não pode entrar no sistema.
End If
End If
