нужен скрипт для отправки IP на имейл - Компьютерный форум OSzone.net

Нашел в инетернете vbs скипт который отошлет ipconfig на почту

Код:

Set WshShell = CreateObject("WScript.Shell") 

WshShell.Run "cmd.exe /c ipconfig > C:\ip.txt", 0, false 



WScript.Sleep (500)



Set S = CreateObject("Wscript.Shell")

set FSO=createobject("scripting.filesystemobject")

Call SendPost("smtp.почта.ru","логин_кому_отправляется@почта.ru","от_кого_отправляется@почта.ru","Тема_письма","текст_письма")

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")="от_кого_отправляется"

Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="Пароль_от_почты"

Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.почта.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

но он не работает пишет ошибку
строка: 26
символ:1
Ошибка: Транспорту не удалось подключиться к серверу
код: 80040213
Источник : CDO.message.1
помогите разобраться
P.S.может это тоже имеет значение у меня Win7x64 на XP этот скрипт не пробовал