• Facebook
  • Google
  • RSS
Excel e Vba
  • Home
  • Primeiros Passos
  • Exercicios VBA
  • Torne-se Membro
  • Contato
  • Sobre
Escolha uma Página

Pegar Usuário da Rede com excel

Códigos Prontos

Facebook0
Google+0
Twitter0
LinkedIn0

 

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

 

Usuário da Rede

 

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

‘1ª Forma:

Visual Basic
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:

Visual Basic
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:

 

Pesquisar

Tags

Abrir Com Vba Access Alertas e Avisos Aplicativos Vba Aprender Vba Artigos Banco De Dados Com Vba Classes Vba Colunas Computador Conceitos Copiar Com Vba Células Data Com Vba Diretorio Email Com Vba Erro Vba Excluindo Com Vba Formularios Funções Fórmulas Com Vba Impressao Interface Com Vba Internet Com Vba Linhas ListBox Com VBA Login Com Vba Matriz Mensagem Com Vba Menu Módulo Vba Planilha Salvar Segmentação de Dados Senha Com Vba Tabela dinamica Tempo Testar Com Vba Texto Usuário Com Vba Vba Automático Vba Mais Rápido

Excel e Vba

Categorias

  • Artigos VBA
  • Códigos Avançados
  • Códigos Desempenho
  • Códigos Design
  • Códigos Detonados
  • Códigos Prontos
  • Primeiros Passos

Páginas

  • Atualizações do Site
  • Contato
  • Exercicios VBA
  • Politica de Privacidade
  • Sobre
  • Torne-se Membro
  • Facebook
  • Google
  • RSS

Projetado por Elegant Themes | Desenvolvido por WordPress