Wednesday 14 November 2012

Notepad Trick to Open and close CD/DVD Drive



  • Open Notepad.
  • Copy and paste the code given below in the notepad.
Set oWMP = CreateObject(“WMPlayer.OCX.7?)
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
  • Save it as “hassan.VBS”.
  • Now double click on "hassan.VBS"  and you watch what happens.


No comments:

Post a Comment