[zion87]

Код:

@Echo Off
:: Anonymous, 2011
Cls
Title Ping2Host

:: Logging
Set Logging=true
:: Timeout on seconds
Set Timeout=2

Echo.
Set /P Host= Enter IP or hostname: ^> 
Cls&Set Total=0&Set Succes=0&Set Fail=0&Set Status=Not checked yet&Set StartTime=[%date% - %time:~-0,8%]
Set /A Sleep=(Timeout-1)*1000
If %Logging%==true (Set LogFile="%~n0.log") Else (Set LogFile=nul)
Echo.>>%LogFile%&Echo Started at %StartTime%>>%LogFile%
:ShowStats
Call :Stats
.\nc.exe wait %Sleep%
Ping -n 1 -w 1000 -l 1024 %Host%>nul
If %ErrorLevel% GTR 0 (
Set /A Fail+=1
If Not "%Status%"=="Offline" (Echo %date% - %time:~-0,8% ^>^> %Host% is offline>>%LogFile%)
Set Status=Offline
Title Offline [%Host%] - Ping2Host
) Else (
Set /A Succes+=1
If Not "%Status%"=="Online" (Echo %date% - %time:~-0,8% ^>^> %Host% is active>>%LogFile%)
Set Status=Online
Title Online [%Host%] - Ping2Host
)
GoTo ShowStats

:Stats
Cls
Echo.
Echo Started at: %StartTime%
Echo.
Echo Target: %Host%
Echo Online: %Succes% times, Offline: %Fail% times
Echo Current status: [%date% - %time:~-0,8%] - %Status%
Echo.
If "%Status%"=="Offline" goto :mail
Exit /B

:mail
blat.exe -install smtp.mail.ru вашеМыло@mail.ru 0 25 вашеМыло@mail.ru парольМыла
blat.exe -to вашеМыло@mail.ru -subject "Тема" -body "телоПисьма" -attach "%LogFile%"
Exit

[l0rd888]

Спасибо вам огромное.