WindowsのCPU負荷テストツールをVBSで自作する

WindowsサーバでCPU負荷テストをするとき使ってるVBSのツール。

ネットで拾ったプログラムですが元ソースが見つからず、自分用メモとして公開。

CPU負荷ツールの使い方

1. ソースをコピーしてローカルに保存する。（cpu_panic.vbsなど）
2. ダブルクリックで実行してメモリに負荷をかける。
3. intLoopMax の値を適宜変更する。
4. しばらくするとCPU負荷を開放する。（またはvbscriptのプロセスをkillする）

Option Explicit

Dim dbrSinX 'CPUにSin計算させる(X)
Dim dbrSinY 'CPUにSin計算させる(Y)
Dim intLoopCnt 'ループカウンタ
Dim intLoopMax 'ループカウンタ上限

intLoopMax = 1000000

Do While True
    For intLoopCnt = 0 to intLoopMax
    dbrSinX = 0.000001
    dbrSinY = sin(dbrSinX)
    dbrSinY = dbrSinY + 0.00001
    Next

dbrSinY = dbrSinY + 0.01

Loop

CPU負荷ツール解説

面倒なのでソースに書いちゃいました。

ソースが汚くなるから解説入れたくないけど、どの現場行っても「あ、これなんだっけか」みたいになるから。

そう難しいことでもないので、ひとまずこのまま公開する。

著作権について

冒頭にも書きましたが、ネットで拾ったモノをカスタマイズして自分用にしてあります。

もし見かけたらコメントにて教えていただけると幸いです。

当サイトのソースからの流用は商用利用以外著作権フリーで問題ありません。