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
bunu bir metin belgesine yapıştırın uzantısını .vbs olarak kaydedin işlem tamam gerisini bilgisayara bırakın 🙂
çok güzel 1 şeymiş hocam 🙂 vay be …
bu bebek de sizin mi çok merak ettim 😀
Yok, bende bitane var 😀
Şu an yapabilir misiniz hocam? Bence hala geç sayılmaz 🙂
Bizim labdaki tüm makinaları toplasak Mustafa’ya yetmez galiba.)
hahahah vbs kodu şu isteyenlere 🙂
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
bunu bir metin belgesine yapıştırın uzantısını .vbs olarak kaydedin işlem tamam gerisini bilgisayara bırakın 🙂
Hee unutmadan bunu sonlandırmak için görev yöneticinizden wscript.exe yi sonlandırmanız gerek yoksa devamlı açılır kapanır xD