Script care deschide CD-romul

Vreti sa faceti o gluma prietenilor ...copiati codul de mai jos intr-un fisier txt salvati-l cu extensia *.vbs

MsgBox "Salut!Crezi in fantome?"
msgbox "Nici eu...Dar totusi..."
msgbox "Cine iti deschide CD-Romul ?"
Set ovladani = CreateObject("WMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count Then
For i = 0 To mechaniky.Count - 1
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
Next
End If
MsgBox "Brrrrr...scary no? :)"

Acesta va face ca CD-romul sa se dechida de 2 ori daca vreti sa se deschida de mai multe ori trebuie decat sa adaugati mai mult linii "mechaniky.Item(i).Eject" (fara ghilimele).
   Puteti modifica mesajele care sa apara pe ecran dupa imaginatie ;)