|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Redes/Comunicações)
|
|
 |
Título da Dica: Retorna o nome do usuário logado
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Public Function sUserID() As String
Dim sBuffer As String
Dim lSize As Long
sBuffer = Space$(255)
lSize = Len(sBuffer)
GetUserName sBuffer, lSize
If lSize > 0 Then
sUserID = Left$(sBuffer, lSize - 1)
End If
End Function
Private Sub Form_Load()
MsgBox "O usuário logado na rede é: " & sUserID, vbInformation
End Sub
|
|
|
|
|
