[Resolvido]Inserir o Nome do PC local em um formulario e local do BD de dados

EU gostaria de inserir o nome do computador local em formulario, como por exemplo, "ROGIEL-PC". E o local onde esta salvo o meu banco de dados, por exemplo,"C:\Users\ROGIEL PEREIRA SILVA\Documents".

Rogiel vou enviar-lhe os módulos necessários, mas talvez seja melhor um exemplo para você perceber melhor. Aguarde um pouco.

Caro usuario Rogiel, parece-nos que ainda não percebeu, que deve procurar antes de abrir qualquer tópico.

Nas Salas de Códigos VBA e Repositorio de Exemplos, existe tudo o que você tem solicitado.

Não quer trabalho e quer tudo de mão beijada, ou quer que o fórum lhe dê a cana, o ensine a pescar e ainda lhe o peixe ?

A Administração do fórum, agradece que efectue uma busca antes de postar novamente, pois não é desse jeito que isto funciona.

Rogiel

O Administrador autorizou a colocação do exemplo após ter apreciado melhor que teria algumas dificuldades em implementar, pois implica 3 módulos de vba o que, para usuários menos experientes poderia ser penoso.

Pode fazer o Download

http://dl.dropbox.com/u/8157744/meuPC.rar

Vieira, respeitando o seu exemplo, veja agora com apenas 1/3 de linhas de código;

Sub ObtemNomeComputador()
Dim strNome As String
strNome = Environ$("computername")
End Sub


Sub ObtemNomeUtilizadorRede()
Dim strUser As String
strUser = Environ$("username")
End Sub


Public Function ObtemIP()
Dim strWMI As Object, strObjecto As Object, strItem
Set strWMI = GetObject("winmgmts:\\.\root\cimv2")
Set strObjecto = strWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each strItem In strObjecto
ObtemIP = strItem.IPAddress(0)
Exit Function
Next
End Function

Boa Ricardo, já vai para o meu repositório. Mais uma vez obrigado.

Utilizo bastante a função Environ$, mas esse código de obter o IP confesso que não conhecia.

Parabens, vivendo e aprendendo.

Vivendo e aprendendo... Também não conhecia esse código para obter o IP.
muito bom o exemplo!!