VBScript: mailer не работает в LAN, VBScript: mailer не работает в LAN Опции

[wilderwind]

Короче, в *.HTA файл вставлен следующий код:

********************************************************

Dim objConf
Set objConf = CreateObject("CDO.Configuration")
Dim objFields
Set objFields = objConf.Fields

With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
.Update
End With

Dim objMsg
Set objMsg = CreateObject("CDO.Message")

On Error Resume Next

With objMsg
Set .Configuration = objConf
.To = "someBODY@yandex.ru"
.From = Request.Form.Item("txtEmail")
.Subject = "Message subject"
.TextBody = "Message text..."
.Send
End With

********************************************

Но в Интернет-кафе это не прокатывает: скрипт не видит smtp-сервер. ПАМАГИТЕЕЕЕЕ!!!!!!!!!!!!!!!!!!!!!!!