Windows 10 CPU使用率の上限をVBScriptで変更したい

Question

経緯

『Windows 10　フルスキャン実行中CPU使用率の上限をVBScriptで変更したい』で質問させて頂きましたが、
要点が的確でなかったようですので質問を変更します。

やりたいこと

VBScriptで以下を実現させたいです。
0. CPU使用率の上限を80%に制限する。
0. McAfeeフルスキャンを起動する。
0. フルスキャンの実行を待ち合わせる。
0. CPU使用率上限を100%に戻す。

１と４それぞれをpowercfgコマンドをVBScriptから実行しているのですが、１が期待通りの結果となりません。

CPU使用率の上限を80%に制限するVBScript

Dim cmdString
Dim shellObj

Set shellObj = CreateObject("WScript.Shell")	'シェルオブジェクトを生成する

'==CPU使用率の最大を80%に下げる（ファン音対策）
cmdString = "powercfg /SETACVALUEINDEX SCHEME_BALANCED SUB_PROCESSOR PROCTHROTTLEMAX 80"
shellObj.Run(cmdString, 0, True)
'McAfeeフルスキャンを実行

'McAfeeフルスキャン完了を待ち合わせる。

２のMcAfeeフルスキャンが開始した頃合いでコンパネの電源設定で「最大のプロセッサの状態」は80%に
変更されているのですが、CPU使用率は80%を超えほぼ100%となりました。

試行（Sleepの挿入）

（根拠はないのですが）、CPU使用率の最大を80%に設定した直後に30秒Sleepを入れて再実行。

Dim cmdString
Dim shellObj

Set shellObj = CreateObject("WScript.Shell")	'シェルオブジェクトを生成する

'==CPU使用率の最大を80%に下げる
cmdString = "powercfg /SETACVALUEINDEX SCHEME_BALANCED SUB_PROCESSOR PROCTHROTTLEMAX 80"
shellObj.Run(cmdString, 0, True)

'30秒待ち合わせ
Wscript.Sleep 30000

'McAfeeフルスキャンを実行

'McAfeeフルスキャン完了を待ち合わせる。

コンパネの「最大のプロセッサの状態」は80%に変更され、CPU使用率も80%上限で推移し、うまくいったと
思われたのですが、別のPCで実行すると４台中２台でCPU使用率が100%まで上昇してしまいます。
使用率100%のPCにおいてもコンパネの「最大のプロセッサの状態」は80%と表示されています。
※本スクリプト実行直前までCPU使用率は10%未満でした。

確認事項

• powercfgコマンドでCPU上限を80%設定できたとしても、上限超えは起きうるものなのでしょうか？
• Sleep挿入によって一部PCで上限80%となったのはたまたまでしょうか？

先ほどは要領の得ない質問で、コメント頂いた方にご迷惑をお掛けしました。

お力添えの程よろしくお願い致します。

Comments

[Zuishin]

ファンは CPU 使用率ではなく温度をトリガーに動いていると思います。物理的に冷やしたらいいんじゃないでしょうか。逆に言えば、使用率を抑えても条件によってファンが動くでしょう。

[DreamTheater]

Zuishinさま
コメントありがとうございます。
ごもっともなのですが、冷却装置の購入については予算上の問題があり難しい状況です。
現在少なくともフルスキャン実行によるCPU使用率100%の状態で確実に全PCでファン音が
鳴り響いており、上限変更で一応効果が見込めることから、少しでも状況を改善したい次第です。

[Zuishin]

質問の主旨がよくわかりません。試作コードでうまくいくならそれをスケジューラーに登録すればいいんじゃないでしょうか。必ずファンを止められるわけではない理由は、すべての PC が同じ状態ではないからです。夏になればもっと厳しくなるでしょう。

[DreamTheater]

上限を80%設定しているにも関わらず、使用率100%まで上昇してしまう点を問題点としているのですが

[Zuishin]

上限は絶対ではありませんから。

[ttyp03]

コンパネの設定は80%に変更できているのでしょうか？できていないのならスクリプトの問題でしょうし、できているのにCPU使用率が80%を超えてしまうのはスクリプト云々の話ではないですし。まずは切り分けからでは。

[DreamTheater]

ttyp03さま
コンパネの設定は80%に変更できています。

Answer 1

自己解決しました。

	'==CPU使用率の最大を80%に下げる（ファン音対策）
	cmdString = "powercfg /SETACVALUEINDEX SCHEME_BALANCED SUB_PROCESSOR PROCTHROTTLEMAX 80"
	result = shellObj.Run(cmdString, 0, True)
	cmdString = "powercfg /SETACTIVE SCHEME_BALANCED"    '追加
	result = shellObj.Run(cmdString, 0, True)            '追加

powercfg /SETACVALUEINDEX SCHEME_BALANCED SUB_PROCESSOR PROCTHROTTLEMAX 80　
実行直後に
powercfg /SETACTIVE SCHEME_BALANCED
を実行することによって、CPU使用率上限が80%に制限できることが確認できました。

SCHEME_BALANCED　が当方PCの規定値だったので、/SETACTIVEは不要と思い込んでいました。