Exibir Usuário Local em um BD compartilhado em rede

Bom dia a todos da comunidade, estou com um probleminha chato, criei um BD que funciona em rede sendo compartilhado por vários usuários (Tabelas Back e Formulários Front), ele está funcionando bem. Eu criei uma rotina para que ele crie um arquivo de texto com o registro de uso (log), do tipo: Quem, em que máquina, que dia e hora e o quê acessou. Também funciona bem, só que ele só registra o nome e usuário do servidor da rede e não da máquina local, já tentei vários códigos e comandos, mas sempre me mostra a identificação do servidor (nome e usuário windows), como tenho no BD uma tela de login, ele registra o nome do usuário que logou no sistema, mas fica "furada" a identificação de em que máquina e usuário windows ele estava.

Eu uso esse código simples para exibir no cabeçalho do formulário as informações de usuário windows e maquina:
Private Sub Form_Load()

strCaption = "Computador: " & Environ("Computername")
strCaption = strCaption & " *** Usuário: " & Environ("UserName")
Me.Caption = strCaption

End Sub
Só que ele me mostra na verdade o nome do servidor de rede e do usuário windows do servidor de rede, e não o da máquina local em uso.

Eu estou usando esse outro código para a criação do arquivo TXT de log na máquina Servidor:
Private Sub Form_Close()
'Lê o arquivo LOG criado e posiciona o cursor em uma nova linha
Open "S:\RegLog\LogSIGPAS_" & Format(Date, "YYYY-MM") & ".log" For Append As #1

'acrescenta nova linha, logo após a última linha existente
Print #1, cbxLogin; ";"; Now; ";"; Environ("computername"); ";"; Environ("username"); ";"; Modulo
Close #1
End Sub

Ele cria uma linha com esses dados no arquivo TXT de log:
....
Admin;15/02/2016 08:14:15 ;SERVERSEMAS;Click;Exclusão de Registro RF
Admin;15/02/2016 08:15:40 ;SERVERSEMAS;Click;Ferramentas Adminstrativas
Admin;15/02/2016 08:17:28 ;SERVERSEMAS;Click;Ferramentas Adminstrativas
Admin;15/02/2016 08:50:40 ;SERVERSEMAS;Click;Ferramentas Adminstrativas
Admin;15/02/2016 08:52:48 ;SERVERSEMAS;Click;Prontuário Completo
Admin;15/02/2016 09:06:29 ;SERVERSEMAS;Click;Ferramentas Adminstrativas
....
Onde:
Admin é o nome do usuário que logou na minha tela inicial do sistema;
Segue a data e hora do acesso;
SERVERSEMAS é o nome do servidor da rede, esse é que eu gostaria que ele mostrasse o nome da máquina local do usuário;
Click é o nome do usuário Windows do servidor da rede, eu quero que ele mostre o nome do usuário logado no Windows local;
Depois ele mostra o módulo que o usuário acessou, essa está OK.

Alguma sugestão? Já queimei pestanas demais.

Ola;

Você está a utilizar variaveis de ambiente e ae é que está o problema.

Teste com variaveis de uso em rede;

Código:

Private Sub Form_Load()
Dim strUsuario$
Dim strMaquina$

strUsuario = CreateObject("wscript.network").UserName
strMaquina = CreateObject("wscript.network").ComputerName

    strCaption = "Computador: " & strMaquina
    strCaption = strCaption & " *** Usuário: " & strUsuario
Me.Caption = strCaption
End Sub

Nada feito, mesmo com esse código continua apresentando o nome do Computador Servidor da rede e não do Computador Local onde o usuário esta trabalhando (assim como o nome usuário Windows).

Private Sub Form_Load()
Dim strUsuario$
Dim strMaquina$

strUsuario = CreateObject("wscript.network").UserName
strMaquina = CreateObject("wscript.network").ComputerName

   strCaption = "Computador: " & strMaquina
   strCaption = strCaption & " *** Usuário: " & strUsuario
Me.Caption = strCaption
End Sub

Teria que trocar "wscript.network" por algo tipo "wscript.local" (isso existe?)??

Muito estranho.

O código que passei funciona em rede e faz o GET ao usuario e computador Local.

Testei aqui na rede da minha empresa e funcionou pleno, até porque já tinha testado em 2009.

Descobri o problema, o comando pega o nome do usuário do Windows, só que quando instalaram o Windows e pacote Office nos computadores daqui da prefeitura, colocaram o mesmo nome de usuário para todos os computadores, coisa de preguiçoso... Mereço.

Estou tendo que alterar o nome por meio do Regedit

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion
Chaves: RegisteredOrganization e RegisteredOwner.

Com isso funcionou, mas eu queria na verdade era que ele pegasse o nome do usuário Windows e não o nome do registro, ou seja, está acontecendo o seguinte: se a máquina tem 3 ou 4 usuários, ele armazena o mesmo nome que foi usado para o registro do Windows em todos eles.

um pitaco. olhe este exemplo do JPaulo

https://www.maximoaccess.com/t213-quem-introduziu-quem-alterou?highlight=introduziu

Olá pessoal, fiz o teste com este código para ver se puxava os dados aqui da minha maquina e funcionou.


Sou novata e tenho dificuldade em VBA

Estou construindo um bano de dados e gostaria que toda vez que o usuario salvasse o novo cadastro, o campo matriuca fosse preenchido automaticamente puxando pelo usuario "login da maquina em rede" na tabela, poderiam me auxiliar .

Quero armazenar apenas o login



desde ja agradeço,