VBA - Capturando Usuário da Rede

VBA - Capturando Usuário da Rede

Acabou de criar um projeto para sua empresa e agora é hora de definir quem vai acessar, ou quem pode ver o que, automatizar um formulário... enfim as possibilidades são tantas. Só falta o código para capturar algumas informações do usuário na rede.

Com o Código VBA abaixo é possível capturar o nome do Computador na rede, Domínio e o usuário.

Sub usuario()
   Computador = Environ("Computername")
   Dominio = Environ("USERDOMAIN")
   Nome_Usuario = Environ("USERNAME")

   Cells(1, 1).Value = "Computador: " & Computador
   Cells(2, 1).Value = "Dominio: " & Dominio 
   Cells(3, 1).Value = "Usuario: " & Nome_Usuario 
End Sub

Um outro código para capturar os dados pelo windows; Aqui vamos capturar apenas o nome do login da máquina;

Sub Usuario_Windows()
   Set ObjNetwork = CreateObject("WScript.Network")
   GetUserN = ObjNetwork.UserName

   MsgBox "O usuário windows é: " & GetUserN
End Sub