VBSの作成 ディスク空き容量

質問

Set fso = CreateObject("Scripting.FileSystemObject")
Set src = fso.GetDrive("D:")
'WScript.Echo src.FreeSpace
あるドライブの容量が20Gを下回ってしまったときに、メールを送信するようスクリプトを作成しました。
メールアドレスはバッチへ設定し、cscriptでスクリプトを実行します。下記のように作成したのですが、ドライブの空き容量は取得できてもメールが送信されません。
スクリプト初心者でさっぱりわかりません。どなたがご教授お願いします。またスクリプトを理解することができる参考書やサイトがあれば共にご教授願います。

'WScript.Echo strMailBody
strMailBody = strMailBody & "空領域" & vbCrLf
intFreeSpace = int(src.FreeSpace / 1024 / 1024 / 1024 * 10) / 10

'WScript.Echo intFreeSpace
If src.FreeSpace < 20 Then

strMailBody = strMailBody & intFreeSpace & vbCrLf

End If

Call SendMail("MailTo")

Sub SendMail(strMailTo)
Set objEmail = CreateObject("CDO.Message")
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "****.***.***.co.jp"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.From = "***1@**.co.jp"
objEmail.To = strMailTo
strMailSubject = "[サーバ] Report"
objEmail.Subject = strMailSubject
objEmail.Textbody = strMailBody
objEmail.Send
Set objEmail = Nothing
WScript.Echo "*** 送信完了 *** mail to: " & strMailTo
End Sub

回答No.1

Donotrely

どこのSMTPサーバを使いますか？

部門内というか、イントラやLAN上のですか？インターネット上ですか？
インターネット上の場合は25番ポートが制限されている可能性があります。

あとはどこにサーバであってもID、パスワードが要る可能性がありますが、その辺はどうでしょうか？