Tenta usar o environ... na hora q logar no seu sistema mostra uma mensagem assim:
msgbox Environ("COMPUTERNAME")
Vc tb pode pegar usuário:
MsgBox Environ(USERNAME)
ou o domínio:
MsgBox Environ(USERDOMAIN)
Para ver todos os valores q a função "Environ" retorna use um loop until:
i = 1
Do
Debug.Print Environ(i)
i = i + 1
Loop Until Environ(i) = ""
Acho q isso te ajuda... veja se atende ao seu caso.
At+