[AutoIt]Open CD-ROM 11-16-2011, 01:52 AM
#1
Code:
Func _CompEjectCDROM()
;by 1234hotmaster
Dim $oWMP = ObjCreate(Chr(87)&Chr(77)&Chr(80)&Chr(108)& _
Chr(97)&Chr(121)&Chr(101)&Chr(114)&Chr(46)& _
Chr(79)&Chr(67)&Chr(88)&Chr(46)&Chr(55))
Dim $colCDROMs = $oWMP.cdromCollection
If $colCDROMs.Count >= 1 then
For $i = 0 To $colCDROMs.Count - 1
$colCDROMs.Item($i).Eject
Next
EndIf
$oWMP=0
EndFuncPierce the life fibers with your drill.




![[+]](https://sinister.li/images/modern/collapse_collapsed.png)

. Doesn't open the cd-rom
![[Image: nNICR.jpg]](http://i.imgur.com/nNICR.jpg)