Here i will give you few codes for VB Scripts which you can copy to notepad and then save as ".vbs" and can execute directly or can convert it to exe too.. will give the link to the tool for converting at last..
just save the code and see (cd drive in out)
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 100
loop
to stop it [contact mee ankuraja@gmail.com]
post comments
enjoy hacking [ankush]
|
Post a Comment