Masaüstünde oluşturduğunuz bir vbs dosyası sayesinde tek tıklama ile Cd-Rom u açabilirsiniz. Bunun için Yeni bir metin belgesi oluşturun. Aşağıdaki kodu yapıştırıp .vbs dosyası olarak kaydedin. Örn: CD-Rom-Kapama.vbs

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(d).Eject
set owmp = nothing
set colCDROMs = nothing
wscript.quit

.
.
.

.
.
.
.
.
.