Pegar Usuário da Rede com excel

Na internet existe diversas formas de verificar o Usuário da rede no computador, então demonstro dois exemplos de uso

Segue abaixo código para Usuário da Rede / computador:

‘1ª Forma:

sub usuario()
   Computador = Environ("Computername")
   dominio = Environ("USERDOMAIN")
   user = Environ("USERNAME")

   msgbox "Computador: " & Computador
   msgbox "Dominio: " & dominio
   msgbox "Usuario: " & user
end sub

sub usuario()

Computador = Environ("Computername")

dominio = Environ("USERDOMAIN")

user = Environ("USERNAME")

msgbox "Computador: " & Computador

msgbox "Dominio: " & dominio

msgbox "Usuario: " & user

end sub

________________________________________________________________
‘2ª Forma:

sub UsuarioWindows()
   Set ObjNetwork = CreateObject("WScript.Network")
   GetUserN = ObjNetwork.UserName

   msgbox "O usuário do windows é: " & GetUserN
end sub

sub UsuarioWindows()

Set ObjNetwork = CreateObject("WScript.Network")

GetUserN = ObjNetwork.UserName

msgbox "O usuário do windows é: " & GetUserN

end sub

_______________________________________________________________

* Segue demonstração abaixo:

Pegar Usuário da Rede com excel

Segue abaixo código para Usuário da Rede / computador:

Pesquisar

Tags