VBS - Open CD/DVD Drive

This is a VBS file that will open the cd/dvd drive of the computer the script is run on. This could be used if your drive open/close button is broken, or just to mess with someone. :)

1. Open notepad.
2. Type:

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

3. Save as .vbs.