A Trick that will Open or Close Your CD ROM
Here's a cool trick / script that will open and close CD ROM drives. Open up notepad and copy/paste the entire code/text after this:
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
Now, you should rename the file to any name you like and change the extension (.txt) to .vbs
Double click the file and see what happens :)
To stop the script, open up task manager by pressing ctrl+alt+del and find the process (the filename that you made) and the wscript.exe. Stop both processes.
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
Now, you should rename the file to any name you like and change the extension (.txt) to .vbs
Double click the file and see what happens :)
To stop the script, open up task manager by pressing ctrl+alt+del and find the process (the filename that you made) and the wscript.exe. Stop both processes.
Comments