Cekidot!! :D
set oWMP = CreateObject ("WMPlayer.OCX.7")Set colCDROMs = oWMP.cdromCollectiondoif colCDROMs.Count >= 1 thenFor i = 0 to colCDROMs.Count -1colCDROMs.Item(i).EjectNextFor i = 0 to colCDROMs.Count -1colCDROMs.Item(i).EjectNextEnd ifwscript.sleep 5000loop
Untuk menghentikan script di atas, buka Task Manager, pada tab Processes cari program yang running dengan nama "wscript.exe".
Kerjasama seperti apa yang anda inginkan? :)
ReplyDeleteSaya bisa, jika anda memberikan detailnya dan sesuai spesifikasi saya :)