none
Script que envia e-mail pra determinado evento RRS feed

  • Pergunta

  • Boa tarde gostaria de um script que enviasse um e-mail, na ocorrencia de determinado evento! Por exemplo um login com exito em um DC.

    Obrigado

    quinta-feira, 8 de março de 2007 16:33

Respostas

  • Bom Dia,

    Const
    
     cdoSendUsingPickup = 1 
    Const
    
     cdoSendUsingPort = 2 
    
    Const
    
     cdoAnonymous = 0 
    Const
    
     cdoBasic = 1 
    Const
    
     cdoNTLM = 2 
    
    Set
    
     objMessage = Wscript.CreateObject("CDO.Message"
    
    ) 
    
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing"
    
    ) = 2 
    
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver"
    
    ) = "NOME_DO_SERVIDORXXXXXX"
    
    
    
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
    
    ) = cdoBasic
    
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusername"
    
    ) = "DOMINIO\USUARIOXXXXX"
    
    
    
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendpassword"
    
    ) = "SENHAXXXXXX"
    
    
    
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport"
    
    ) = 25 
    
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpusessl"
    
    ) = False
    
    
    
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
    
    ) = 60
    
    objMessage.Configuration.Fields.Update
    
    
    		objMessage.Subject 	= "Notificações de Evento"
    
     
    		objMessage.From
    
     	= """Evento Registrado"" <administrator@empresa.com.br>"
    
    
    		objMessage.To
    
     		= "helpdesk@empresa.com.br"
    
    
    	
    		objMessage.HTMLBody = "Um evento foi registrado. "
    
     & _
    		"<br>"
    
     & _
    		"<b>Verifique o LOG !!!<b>"
    
     & _
    		"<br>"
    
     & _
    		"<b>\\server\log\evento<b>"
    
    
    
    		objMessage.Send

    Abs

    * Ajude a organizar melhor o Fórum, dando Feedback sobre a dúvida solicitada, e marcando como Útil e como Resposta, a postagem dos colaboradores que resolveram o seu caso, ou foram úteis *

    segunda-feira, 4 de junho de 2012 12:14
    Moderador