CPUへ負荷をかけるスクリプト

概要†

性能試験などでCPU負荷をかける必要がある場合に使用するスクリプト。
シングルスレッドで動作するため、複数CPU（コア）の環境では、個数分の多重起動が必要となる。

cpubusy.vbs

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