Что бы не путать администрирование и веб программирование, решил завести отдельный блог http://developer38.blogspot.com/
Заходите.
Заходите.
Set objEmail = CreateObject("CDO.Message")
set objConf = CreateObject("CDO.Configuration")
Set objFlds = objConf.Fields
With objFlds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mailserver"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
.Update
End With
Set wshshell = CreateObject("WScript.Shell")
Set objEmail.Configuration = objConf
objEmail.From = "backup@rublin.org.ua"
objEmail.To = "admin@rublin.org.ua"
objEmail.Subject = "Backup JOB"
objEmail.Textbody = "I am OK. See log in addattachment."
objEmail.Addattachment "\\sns\Backup\D\fullbackup.log"
objEmail.Send
http://www.spamhaus.org/query/bl?ip=1.1.1.1"Массовая" проверка в листах:
http://www.senderbase.org/senderbase_queries/detailip?search_string=1.1.1.1
http://support.clean-mx.de/clean-mx/publog?ip=1.1.1.1
http://www.spamcop.net/w3m?action=checkblock&ip=1.1.1.1
http://www.dnsbl.info/dnsbl-database-check.php
regsvr32 wuapi.dllпосле чего повторяем пункт 2.
regsvr32 wuaueng.dll
regsvr32 wuaueng1.dll
regsvr32 wucltui.dll
regsvr32 wups.dll
regsvr32 wups2.dll
regsvr32 wuweb.dll