谁知道有什么vbs的整人代码吗？？

如果只是开玩笑用这个：
危害度：0
整人度：1
do
msgbox "你好！"
loop
这个稍微狠一点：
危害度：2
整人度：2
Set sh=CreateObject("WScript.Shell")
dim i,s,z,thn
z=array(4,5,16,32,48