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/s … = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/s … = "****.***.***.co.jp"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/s … = 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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) VBA メール送信済で実行されるはずが、実行されない時があります。 2 2023/02/02 14:05
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) FileSearch2007に変わる構文について 1 2022/12/16 16:57
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したい 1 2023/07/04 16:40
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- MySQL php テーブルを作れない 2 2022/11/17 18:22
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBスクリプト---アプリの終了に...
-
wakwakでhpを製作しています。
-
PowerShellでのエラー出力の読...
-
アプリケーションのフリーズを...
-
独学でCGIの勉強
-
サイトに訪れた人のIPアドレ...
-
おみくじの
-
FileMaker Go 12 for iPho
-
携帯電話の着メロ設定(再登録)
-
レジストリの設定をすぐに反映...
-
承認機能のあるメーリングリスト
-
コンピュータ名判別について
-
自作ホームページ
-
画像が大きくされるホームページ
-
VBSの作成 ディスク空き容量
-
借金時計のようなCGIが欲しいの...
-
CGIスクリプト フリーで探...
-
予約システム(空き状況の確認...
-
お勧めのアクセス解析
-
あなたの「こんなCGIが欲しいな...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PowerShellでのエラー出力の読...
-
VBスクリプト---アプリの終了に...
-
レジストリの設定をすぐに反映...
-
PRO-FACE タッチパネル
-
ジョブ名、ステップ名の取得方...
-
アプリケーションのフリーズを...
-
複数フォルダを整列して表示vbs
-
5chなどでスクリプト連投などで...
-
EXCEL VBA : PDFファイルを1つ...
-
jQueryを使ってドラムロールを...
-
イラストレーター、縦中横のシ...
-
スタートアップ(シャットダウン...
-
キーエンスのPLCでのスクリプト...
-
シナリオスクリプトとは?
-
ページにJavaScriptを埋め込む...
-
サーバーからクライアントのMAC...
-
エンドレスバトルのスクリプト配布
-
ホームページにブラウザから書...
-
aspへPOST時のエラー(405)
-
VB.NETでVBスクリプトを作るに...
おすすめ情報