Скрипт автоматической проверки SMTP через telnet

13/04/2011 admin News, Windows, 0

Нужно было часто проверять отправку писем через локальный SMTP (в процессе настройки 🙂 ) – получился такой вот скриптец на vbs:

Set oShell = WScript.CreateObject(“WScript.Shell”)
oShell.Run “telnet.exe 192.168.0.1 25”
WScript.Sleep 1000
oShell.SendKeys “helo TEST” & chr(13)
WScript.Sleep 1000
oShell.SendKeys “mail from:vasya.pupkin@gmail.com” & chr(13)
WScript.Sleep 1000
oShell.SendKeys “rcpt to:kolya.pupkin@local.com” & chr(13)
WScript.Sleep 20000
oShell.SendKeys “data” & chr(13)
WScript.Sleep 1000
oShell.SendKeys “test” & chr(13)
WScript.Sleep 1000
oShell.SendKeys “.” & chr(13)
WScript.Sleep 1000
oShell.SendKeys “quit” & chr(13)

SharePoint 2010 backup MPD5 + IP logging