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:
1 2 3 4 5 6 7 8 9 10 11 12 |
sub usuario() Computador = Environ("Computername") dominio = Environ("USERDOMAIN") user = Environ("USERNAME") msgbox "Computador: " & Computador msgbox "Dominio: " & dominio msgbox "Usuario: " & user end sub |
________________________________________________________________
‘2ª Forma:
1 2 3 4 5 6 7 8 9 |
sub UsuarioWindows() Set ObjNetwork = CreateObject("WScript.Network") GetUserN = ObjNetwork.UserName msgbox "O usuário do windows é: " & GetUserN end sub |
_______________________________________________________________
* Segue demonstração abaixo: