Descobrir nome do computador em VBA

Descobrir nome do computadorSaiba como é possível desenvolver sistemas completos em Microsoft Access 2007. Faça já um curso online completo de access 2007.

Descobrir o nome do computador que esta rodando o código pode ser muito útil no VBA. É possível fechar determinadas funções do programa, para que somente determinados computadores tenham acesso, já que em uma rede, por exemplo, os nomes não podem ser duplicados.

O comando para pegar o nome do computador só funciona em computador com Windows XP ou superior.

Comando para capturar nome do computador em VBA

O comando que pega o nome do computador é:

Environ(“ComputerName”)

Exemplo de uso para comando Environ

Dim nome_pc As String

nome_pc = Environ(“ComputerName”)

If nome_pc <> “PCP” And nome_pc <> “INFORMATICA” Then

MsgBox “Função não disponível para este computador (” & nome_pc & “)”

exit sub

End If

Download do código em TXT

Baixe aqui o código deste artigo em formato txt.

Tem alguma dúvida quanto a implementação deste código? Deixe um comentário, e compartilhe este artigo nas redes sociais!

Autor: Matheus Pellizzaro

Matheus é formado em sistemas de Informação pela UDESC, desenvolve sistemas e páginas de internet para empresas e pessoas físicas nas "horas vagas". Maiores detalhes em www.tecnozen.com.br