WindowsサーバでCPU負荷テストをするとき使ってるVBSのツール。
ネットで拾ったプログラムですが元ソースが見つからず、自分用メモとして公開。
CPU負荷ツールの使い方
- ソースをコピーしてローカルに保存する。（cpu_panic.vbsなど）
- ダブルクリックで実行してメモリに負荷をかける。
- intLoopMax の値を適宜変更する。
- しばらくするとCPU負荷を開放する。（またはvbscriptのプロセスをkillする）
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
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負荷ツール解説
面倒なのでソースに書いちゃいました。
ソースが汚くなるから解説入れたくないけど、どの現場行っても「あ、これなんだっけか」みたいになるから。
そう難しいことでもないので、ひとまずこのまま公開する。
著作権について
冒頭にも書きましたが、ネットで拾ったモノをカスタマイズして自分用にしてあります。
もし見かけたらコメントにて教えていただけると幸いです。
当サイトのソースからの流用は商用利用以外著作権フリーで問題ありません。
