Dicas do OsmarJr
Nome de Usuário e/ou Computador
Função para pegar nome de usuário ou computador
Prá que complicar se dá prá facilitar?
Função simples para pegar o nome do usuário que está executando ou a máquina onde está sendo executado o aplicativo.
Private Declare Function api_GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function api_GetComputerName Lib "Kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function QuemUsa(UsuarioOuComputador As Byte) As String
'---------------------------------------------------------------------------------------
' Procedimento : QuemUsa
' Data e Hora : 27/01/05 09:40
' Autor : ACG Soft - Adaptação:Osmar José Correia Júnior
' O que faz : Devolve o nome do usuário ou do computador
' UsuarioOuComputador: 1=Usuário, Outro valor = Computador
'---------------------------------------------------------------------------------------
Dim NBuffer As String
Dim Buffsize As Long
Dim wOK As Long
Buffsize = 256
NBuffer = Space$(Buffsize)
If UsuarioOuComputador = 1 Then
wOK = api_GetUserName(NBuffer, Buffsize)
QuemUsa = Trim$(NBuffer)
Else
wOK = api_GetComputerName(NBuffer, Buffsize)
QuemUsa = Trim$(NBuffer)
End If
End Function