vbsで作ったプログラムのcpu使用率が高い

Question

vbsを使って、特定のプロブラムの使用に制限時間を設けて、時間が経ったら終了させるプログラムを作りました。起動中のプログラムの一覧の取得はこちらのサイトを参考にしました。このプログラムは常駐させるつもりなのですが、普段持ち歩くあまりノートパソコン(プロセッサ:atom x5-Z8350)ではcpuの使用率が高くなってしまうことで悩んでいます。仕方ないのでしょうか？

Option Explicit

'アプリが起動中の場合を1、起動していない時を0とした
Dim AppState
AppState = 0

Dim TargetClass

'使用時間を制限したいプログラム
Dim TARGET_PROCESS_SET
Dim TARGET_PROCESS
TARGET_PROCESS_SET = Array("notepad.exe","Hacknet.exe","MiniMetro.exe","PapersPlease.exe","reprisaluniverse.exe","Epistory.exe")

'WMIにて使用する各種オブジェクトを定義・生成する。
Dim oClassSet
Dim oClass
Dim oLocator
Dim oService
 
'ローカルコンピュータに接続する。
Set oLocator = WScript.CreateObject("WbemScripting.SWbemLocator")
Set oService = oLocator.ConnectServer

'アプリの起動を確認するまでスキャンを繰り返す
While AppState = 0
	'クエリー条件をWQLにて指定する。
	Set oClassSet = oService.ExecQuery("Select * From Win32_Process")
	'現在起動中のアプリケーションの中にTARGET_PROCESS_SETで指定したアプリケーションが存在した場合スキャンを抜け出す
	For Each oClass In oClassSet
		For Each TARGET_PROCESS In TARGET_PROCESS_SET
    			If TARGET_PROCESS = oClass.Description Then
		 		Set TargetClass = oClass
        			AppState = 1
				Exit For
				Exit For
    			End If

		Next
	Next
Wend

'アプリの起動から90分経過したら強制終了する
Dim StrTime
StrTime = now

'90分経つまで処理を停止させる
While DateDiff("m",StrTime,now) < 90
Wend

TargetClass.terminate
Msgbox "時間になりました"

'使用した各種オブジェクトを後片付けする。
Set oClassSet = Nothing
Set oClass = Nothing
Set oService = Nothing
Set oLocator = Nothing

Answer 1

時間を待つのにビジーループを使っているからですね。WScript.Sleep を使ってください。

Comments

[takumi3]

確かに待機時間にcpu使用率が高くなっています。sleepを使ってみます。しかし、アプリスキャンの段階でもcpu使用率が高いほうなんですよね。

[Zuishin]

ずっとスキャンしているからでしょう。一度スキャンする毎に 100 ミリ秒待つようにしてください。それでも使用率が高ければ、もっと間隔を空けてください。