Encontrando usuário logado e nome do PC

[Macêdo]

Coloque no Form:

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Enum eModeLocal
emlUsername = 0
emlPCName = 1
End Enum

Public Function LocalStationInfo(bMode As eModeLocal) As String
Dim Buffer As String
Const MAX_COMPUTERNAME_LENGTH = 31
Const UNLEN = 256

If bMode = emlPCName Then
Buffer = Space(MAX_COMPUTERNAME_LENGTH + 1)
GetComputerName Buffer, Len(Buffer)
LocalStationInfo = Buffer
End If

If bMode = emlUsername Then
Buffer = Space(0)
Buffer = Space(UNLEN + 1)
GetUserName Buffer, Len(Buffer)
LocalStationInfo = Buffer
End If
End Function

Agora ponha uma StatusBar e insira dois Panels e coloque o seguinte codigo no Load do Form:

Private Sub Form_Load()
StatusBar1.Panels(1).Text = "Usuário Logado: " + (LocalStationInfo(emlUsername))
StatusBar1.Panels(2).Text = "Acessando Programa da estação : " + (LocalStationInfo(emlPCName))
End Sub

Beleza ?

[Flechaus]

O nome do pc tudo bem, mas o nome do usuário é o nome de usuário do windows certo?

Se for, isso tem um uso restrito, pois não está vinculado a usuários que possam ser cadastrados em um sistema de banco de dados.