ini sih buat iseng2 aja
buka notepad copy script ini
Code:
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
Next'cdrom
end if
seperti biasa save as, terserah deh kasih nama apa..asal file type nya *.VBS
setelah beres...coba deh klik file yang tadi di save
SELAMAT MENCOBA...
Selasa, 22 Desember 2009
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar