Algunos creo que, menos de ser un truco ingenioso, no hay ningún uso práctico positivo para expedir correo electrónico desde un script, pero imaginemos el subsiguiente decorado:
Tiene un servidor crítico para la empresa llamado «ImpServ01» que debe estar acondicionado a toda costa. La subsiguiente secuencia de comandos se puede configurar para que se ejecute cada cinco minutos para repasar la disponibilidad del servidor y enviarle un correo electrónico si el servidor deja de estar acondicionado. Este ejemplo utiliza un servidor SMTP llamado «SMTP.YourDomain.com» y envía correo desde «ImpServ01@YourDomain.com» a «Admin@TuDominio.com«.
Opción explícita
Dim strComputer
Dim colPingStatus
Dim objPingStatus
Dim objMessage
strComputer = «ImpSrv01»
Establecer colPingStatus = GetObject («winmgmts: {impersonationLevel = impersonate}»). ExecQuery («SELECT * FROM Win32_PingStatus WHERE address = ‘» & strComputer & «‘»)
Para cada objPingStatus en colPingStatus
Si IsNull (objPingStatus.StatusCode) u objPingStatus.StatusCode 0 Entonces
Establecer objMessage = CreateObject («CDO.Message»)
objMessage.From = strComputer & «@ YourDomain.com»
objMessage.To = «Admin@YourDomain.com»
objMessage.Subject = strComputer & «no está acondicionado»
objMessage.Textbody = strComputer & «ya no es accesible a través de la red».
objMessage.Configuration.Fields.Item («http://schemas.microsoft.com/cdo/configuration/sendusing») = 2
objMessage.Configuration.Fields.Item («http://schemas.microsoft.com/cdo/configuration/smtpserver») = «SMTP.YourDomain.com»
objMessage.Configuration.Fields.Item («http://schemas.microsoft.com/cdo/configuration/smtpserverport») = 25
objMessage.Configuration.Fields.Update
objMessage.Send
Terminara si
próximo
Establecer colPingStatus = Nothing
Establecer objMessage = Ausencia
Para adjuntar un archivo al correo electrónico agregue la subsiguiente trayecto:
objMessage.AddAttachment «SomeDocument.doc»
Comentarios recientes