Cd-Rom'unuzu Script İle Açın

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
	colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ' cdrom
End If

Buyrun exe'ye dönüştürdüm

Eline sağlık bir derlenmesi kalmıştı gerek yoktu vbs olarak ta çalışıyor yinede sağolasın

Tam ben de bunu soracaktım

hepiniz soracakmışınız sorunda rahatlıyın

şu exe yazılımcılığa hayranım ya öğrenmek lazım

yaptım dvd actı cd rom basıyom basıyom gelmiyordu yene gelmedi

Senin cd-rom'a ne pascal ne vb yardim edebilir hacı sen en iyisi değiştir

dostum herkez aynı soruyo soruyor cevap veriyorum diğer mesaj yazanda yine aynı soruyu soruyor anlamadım gitti

Nasıl kapatacağız bu CD/DVD'yi bir script ile?
ittirmeden, bas tuşu zorda kalıyor