Friday, 17 January 2014

Play game with DVD writer

Play game with DVD writer

Copy the following code in note pad and save it with extension sujith.vbs

just try thisonce

'code start from here:-

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

'code end from here

to end it go to taskmanager then

processes tab then end the wscript


0 comments:

Post a Comment