Preciso acrescentar o no codigo abaixo o ip de onde veio o acesso. Observei que no log de eventos ele é mostrado
Segue o Codigo
Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).
Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM
Set objMessage = CreateObject("CDO.Message")
Set objNetwork = wscript.CreateObject("wscript.network")
Set ObjShell = wscript.createobject("wscript.shell")
Set WshNetwork = CreateObject("WScript.Network")
Set oADSystemInfo = CreateObject("ADSystemInfo")
Set oADsUser = GetObject("LDAP://" & oADSystemInfo.UserName)
usuario = oADsUser.FullName
Set Sh = CreateObject("WScript.Shell")
sys = Sh.ExpandEnvironmentStrings("%CLIENTNAME%")
'Corpo do E-mail
Body = ""
Body = Body & "-----------------------------------------------------" & vbcrlf
Body = Body & "Usuario........................: " & oADsUser.FullName & vbcrlf
Body = Body & "Computador.....................: " & (WshNetwork.ComputerName) & vbcrlf
Body = Body & "De onde logou..................: " & Sh.ExpandEnvironmentStrings("%CLIENTNAME%") & vbcrlf
Body = Body & "Quando.........................: " & date & " " & time & vbcrlf
Body = Body & "Dominio........................: " & (WshNetwork.UserDomain) & vbcrlf
Body = Body & "-----------------------------------------------------" & vbcrlf
Set objNetwork = wscript.CreateObject("wscript.network")
Set objMessage = CreateObject("CDO.Message")
'Cabeçalho do E-mail
objMessage.Subject = Subject & " +++ " & (WshNetwork.UserName) & "@" & (WshNetwork.UserDomain) & " logou em " & (WshNetwork.ComputerName)
objMessage.From = "logon@domio.com.br"
objMessage.To = "adm@dominio.com.br"
objMessage.TextBody = Body
'Seleciona se o tipo de envio é SMTP ou via Exchange (Pick-up)
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Servidor SMTP (se for o Caso)
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.domino.com.br"
'Tipo de autenticação
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'Usuario do e-mail
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "usuario"
'Senha do e-mail
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"
'Porta de envio (25 é a padrão)
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'Autenticação SSL
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
'Tempo de espera do envio
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
objMessage.Send
