Al ejecutar el script creado con este código, se expulsa o abre la bandeja de la unidad o las unidades ópticas de CDROM o DVDROM instaladas en tu PC y las cierra consecutivamente sin detenerse, continua de esta forma hasta que se reinicie la PC o se detenga el proceso wscript.exe como se indicó.
El codigo:
El codigo:
[Tienes que estar registrado y conectado para ver esa imagen]
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
Mar Dic 11, 2012 10:52 pm por Joao Paulo C
» XP x 64 bits completo 1 link
Jue Nov 29, 2012 11:00 pm por luisbario
» "Cala Boca"
Jue Jul 05, 2012 12:57 pm por Administrador
» CORINTHIANS 2 - BOCA 0
Jue Jul 05, 2012 12:51 pm por Administrador
» Madotate_2.02.02(dar vista 3d vista a xp)
Miér Jul 04, 2012 11:11 pm por Administrador
» Desktop Icon Toy
Miér Jul 04, 2012 10:58 pm por Administrador
» Pack efectos
Mar Jul 03, 2012 11:19 am por Administrador
» Ejemplo de un video
Mar Jul 03, 2012 9:06 am por Administrador
» 10 posibles síntomas para saber si tu PC está infectado
Mar Jul 03, 2012 9:02 am por Administrador
» Cambiar la dirección IP de un equipo de estática a dinámica y viceversa
Mar Jul 03, 2012 8:59 am por Administrador