Caros amigos,
gostaria de saber se é possível descobrir o nome do computador do usuário que está efetuando o login no banco de dados, para que eu possa armazená-lo em uma tabela.


Um abraço,
Walter Luiz

Olá,
O q eu uso para guardar o usuario
currentuser()...

Qualquer duvida me envie e-mail, me explicando melhor o q vc quer realmente.

desculpa Waltinho,
pensei que era o usuario, mas se vc quer guardar o nome da maquina é o seguinte:


Dim LonRetorno As Long
Dim computador As String

computador = Space(30)
LonRetorno = GetComputerName(computador, 50)
computador = Trim(computador)
CampoTab = computador


Acho q agora vai dar certo....

Caro amigo, a função currentuser()nme retorna Admin eu gostaria de uma função que3 me retornasse o nome do micro de quem está efetuando o login.
EX.:
PCINFO (NOME DO MEU MICRO)
PCRECEPCAO (MICRO DA RECEPÇÃO)
ETC..

Estou usando a sua função abaixo e está me retornando
Sub ou Function não definida
-----------------------

Dim LonRetorno As Long
Dim computador As String

computador = Space(30)
LonRetorno = GetComputerName(computador, 50)
computador = Trim(computador)
CampoTab = computador


Obrigado pela atenção!

Coloque no início do módulo em que você tem a função fornecida pelo Zacher:

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

Waltinho
Verifique seu e-mail