Buat yang suka ngerjain orang, silahkan dicoba script berikut. Script berikut akan membuka dan menutup CD ROM secara otomatis secara berulang-ulang.
Silahkan dicoba, copas scriptnya ke notepad, save as dengan ekstensi .vbs lalu jalankan ..
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
cara menyimpannya ..
save as kemudian pilih type save as dengan all files , nama filenya terserah yang penting file dengan ekstensi .vbs ..
contoh : sistem.vbs
Labels: Script
comment closed