デバッグの時はこれをよく使ってます
Top > VBScript > WScript.StdOut.Write
Dim rndNum:rndNum = 0 rndNum = INT(5 * Rnd + 1) WScript.StdOut.Write rndNum