Vista - error CDO.Message - VBScript

hi,

to see if I can help.
I have the following script that until a few days ago it worked correctly.
Has not touched any of the settings in Exchange 2003 SP2 or in the Antispam
/ antivirus.

Gives me the error: 80040212 transport lost its connection to the server to
30 seconds to execute.

He continued to test and to my surprise, I realized that if I run the
script, 2.3, or more times in a row, it works correctly, but if you run only
once, giving this error.

What could be due to?. thanks.

Exchange 2003 SP2

#######################################################
'Vbscript starts here
strSmartHost = "10.0.100.1" 'sets the name of the SMTP relay server
strSMTPPort = "25" 'sets the port used for SMTP traffic
strFromAddr = "user1@xxxxxx" 'sets the address alarm e-mails are sent
from
strToAddr = "user2@xxxxxx" 'sets the address alarm e-mails are sent to

SET objEmail = CreateObject("CDO.Message")

strSubject = "SendMail"
Set objNetwork = WScript.CreateObject("WScript.Network")
strComputerName = objNetwork.ComputerName
strSubject = strSubject

strTextBody = ""
Call SendEmail(strFromAddr,strToAddr,strSubject, strTextBody)

SUB SendEmail(varFrom, varTO, varSubject, varTextBody)
objEmail.From = varFrom
objEmail.To = varTo
objEmail.Subject = varSubject
objEmail.TextBody = varTextBody
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHostobjEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = strSMTPPort objEmail.Configuration.Fields.UpdateobjEmail.SendEND SUB#######################################################