「知ったかブログ」

cpubusy.vbs　ってのを以前どこかの英語のサイトで見つけました。

WindowsでCPUを100％使い切ってみることができるスクリプトです。
仕事していると、サーバに高負荷な状況を作って負荷テストをかけることがたまにあります。ネットで調べると負荷ツールって大抵Apache関連のネットワーク負荷が多くて、CPU負荷だけをみると言う需要は余り一般的ではないみたいですね。

というわけでWindowsでCPUの無駄遣いしたい人向けなエントリーです。
マシンは熱くなるは、ファンはうるさく回るは、実行するとマシンが悲鳴を上げることがよく分かってとっても怖いです。とりあえず自己責任で。

あと地球環境にはとっても優しくないです。

Dim goal
Dim before
Dim x
Dim y
Dim i

goal = 1000000

Do While True
before = Timer
For i = 0 to goal
x = 0.000001
y = sin(x)
y = y + 0.00001
Next

y = y + 0.01

Loop

　この部分をノートパッドなどのテキストエディタにコピペして、ファイル名を「cpubusy.vbs」とでもします。あとは、このファイルをダブルクリックすると1スレッド分の負荷がかかります。

- 最初の状態 -




- cpubusy.vbsを一つ動かしたときの状態 -




- cpubusy.vbsを二つ動かしたときの状態 - CPU利用率が100% に成ってます



- cpubusy.vbsを二つ動かしたときの状態(続き) -　おなか一杯




止める時は「Ctrl-Alt-Delite」でタスクマネージャを起動して、プロセスタブからwscript.exeを強制終了します


- タスクマネージャ　プロセスタブ。 wscript.exeのCPU利用率が高いです -



- こんな警告メッセージが出ますが、当然YES -

---

　本当は仕事でお客に新しいマシンを入れるときに、すぐに簡単に使えて変なものインストールしない負荷ツールを探してたときに見つけたものを、。単純なsinの計算をループしてるだけのようですが、こんなものも作れない自分のダメダメさ加減を良く表しています。Windowsはよう解からん。
　各種ベンチマークツールは変なアプリを入れますが、それと比べれば単なるVBスクリプトのため問題は少ないと思います。
　
　ちなみに、当たり前ですがコア数以上は起動しないほうが良いです。最悪電源ブチッになります。
　
　またこのVBスクリプトではメモリを殆ど消費しないです。　誰かメモリも使うようなの作ってくれるとうれしいなあ。　
　

---

【関連記事】

• [63]: 【Linux小技】　Linuxマシンに単純にCPU負荷をかけるperlスクリプト