none
Mostrar IP externo ao acessar remotamente uma maquina RRS feed

  • Pergunta

  • 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

     

    quarta-feira, 1 de dezembro de 2010 14:00