WSHでメールを送信

質問

こんにちは
WSHでメールを送信したいのですが、エラーで実行できません。
XPだと実行できるのですが２００３Serverで実行するとエラーがでます。

実行時に引数として添付ファイル名（フルパス）を指定します。
# mailsend.vbs c:\backup_log.log

mailsend.vbs
--------------------------------------------------ここから
Set mail = CreateObject("CDO.Message")
mail.From = "mail-add@hoge.com"
mail.To = "mail-add@hoge.com"
mail.Subject = "backup_log"
mail.TextBody = "backup_log" & vbCrLf
smtpserver = "smtp.hoge.com"
attatch = WScript.Arguments(0)

schemas = "http://schemas.microsoft.com/cdo/configuration/"
mail.Configuration.Fields.Item(schemas&"sendusing") = 2
mail.Configuration.Fields.Item(schemas&"smtpserver") = smtpserver
mail.Configuration.Fields.Item(schemas&"smtpserverport") = 25
mail.Configuration.Fields.Update
mail.AddAttachment(attatch)

mail.Send
--------------------------------------------------ここまで

回答No.1

アプ（@skm36522）

CDO.Message.1エラー'80040213'
The transport failed to connect to the server.トランスポートは、サーバーへの接続に失敗しました。

このエラーかな?
SMTPサーバへの接続失敗だと思います。

構文自体におかしな箇所は見受けられませんが?
schemas = "http//～の行に shift-Jis以外の文字が2箇所、含まれているのが気になります。
私のコピペミスかな(気のせい?)。