ＷＳＨで、１分ごとにプログラムを実行

質問

ＷＳＨで、１分ごとにプログラムを実行する書き方を伝授してください。

(例）
メモ帳を起動し、終了する。
以上を１分ごとに繰り返す。

＃ＷＳＨで動かしたいプログラムがあるが、ＷＳＨの素人からの質問です。

回答No.1

taka_tetsu · ベストアンサー

Dim wsh
Set wsh = WScript.CreateObject("WScript.Shell")
Do
wsh.Run "notepad.exe"
WScript.Sleep 60000

Dim Process
For Each Process In GetObject _
("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
("select * from Win32_Process where Name='notepad.exe'")
Process.Terminate
Next
Loop

＃自分で起動したのかどうか判断せずに、
起動しているnotepad.exeをすべて強制終了しています。

終了は、タスクマネージャからwscript.exeを強制終了させてください。

お礼

回答ありがとうございました。
質問した後、こうして繰り返しにすると終りはどうするんだろうと思っていたら

>終了は、タスクマネージャからwscript.exeを強制終了させてください。

これで理解できました。

活用させていただきます。

回答No.2

taka_tetsu

注意点を忘れてました。

WMI使っちゃったんで、標準ではWin2000、WinXP、Windows Server限定ということで。