Sistema retorna informações do computador, usuário, server, máquina
Saberexcel - dicas microsoft excel vba

Essa macro do aplicativo microsoft excel vba retorna informações do seu computador, usuário, nome da máquina,
login,

Sub PCInformacao()

Dim msg

msg = "UserName" & vbTab & Environ$("username") & vbNewLine _
& "UserProfile" & vbTab & Environ("UserProfile") & vbNewLine _
& "Computador #" & vbTab & Environ$("ComputerName") & vbNewLine _
& "Login servidor" & vbTab & Environ$("Logonserver") & vbNewLine _
& "Dominio usuario " & vbTab & Environ$("UserDomain")
MsgBox msg, vbInformation, "Saberexcel - o site das macros"

End Sub

'Essa macro do aplicativo microsoft excel vba, retorna do usuário
'esta logado na máquina.

Sub Retorna_Logon_Nome()
Dim info_login As Object
Dim Nome_Login As Variant

Set info_login = CreateObject("WScript.Network")

Nome_Login = "Login Name = " & info_login.UserName

MsgBox Nome_Login, vbInformation, "Saberexcel - o site das macros"

End Sub


 

 

 

 

Compre com segurança e garantia na maior loja do país Lojas Submarino