VBScriptでsleepソート

gistfile1.txt

' test.vbs
Set wshell = CreateObject("WScript.Shell")

Set args = WScript.Arguments
For i=0 to args.Count - 1
	wshell.Run "wscript test2.vbs " & args(i), 0, False
Next

'test2.vbs
Dim val
val = WScript.Arguments(0)

WScript.Sleep(val * 500)
WScript.Echo(val)

'実行
cscript test.vbs 5 2 1 4 3

'結果
メッセージボックスが1, 2, 3, 4, 5の順であがってくるはず。
（Sleepが短いとソートに成功しません。。）