Excel planilha retorna dados do computador e usuario

'Esta macro do aplicativo Microsoft excel vba, retorna informações do computador, usuario, nome da maquina, dominio, etc...
Sub PCInformation()
Dim msg
msg = "UserName" & vbTab & Environ$("username") & vbNewLine _
      & "UserProfile" & vbTab & Environ("UserProfile") & vbNewLine _
      & "Computer" & vbTab & Environ$("ComputerName") & vbNewLine _
      & "Logon Server" & vbTab & Environ$("Logonserver") & vbNewLine _
      & "UserDomain" & vbTab & Environ$("UserDomain")
MsgBox msg, , "Ambiente de variaveis - saberexcel"
End Sub

' - - - - - - - - - - - - - - - - - - -
Este macro também retorna no usuario logado.
Sub Retorna_Logon_Nome()
Dim wshNetwork As Object
Dim LogonName As Variant
Set wshNetwork = CreateObject("WScript.Network")
LogonName = "Logon Name = " & wshNetwork.UserName
MsgBox LogonName
End Sub
' - - - - - - - - - - - - - - - - - - -

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

Tags: