むじん島

文才のないWebプログラマがなにかする

毎週月曜日にVBScriptを発動させる



毎週月曜日に報告書を書かないといけなくなってしまったので、
せっかくなので簡単なシステム化をすることにしました。

とはいっても、タスクスケジューラで管理するのも面倒なので、
月曜日を判定するVBScriptで代用することにしました。

使い方

Option Explicit

If Weekday(Now, vbMonday) = 1 Then
   WScript.Echo "月曜日です。"
Else
   WScript.Echo "月曜日ではないです。"
End If

上記のコードをテキストエディタに貼り付け「monday.vbs」の名前で保存します。
作成した「monday.vbs」をダブルクリックすると、月曜日判定アラートが出ます。

Echoの部分を置き換えてWindowsのスタートアップフォルダに置けば、
毎週月曜日に起動するVBScriptの出来上がりです。

応用すると、色々な事ができそうですね!