こちらもブログに書いていたものを転載することにしました。
ワンライナーと言っても、cscriptはファイルしか受け取ってくれませんけど。
それにワンライナーにしても標準出力に「WScript.echo」は長すぎる気がします。
z=array("ズン","ドコ"):k="":do:randomize:r=Int(2*Rnd):WScript.echo z(r):k=k&z(r):loop until right(k,10)="ズンズンズンズンドコ":WScript.echo "キ・ヨ・シ！"
変数宣言の強制なんかしないようにしてるので短くできてますが、やらない方がいい気がします。