.vbs koji otvara cd drive

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


Kliknite na File --> Save As --> (tamo gde pise)"Save as type" odaberete "All Files" date ime "name" kakvo zelite i sacuvajte ga sa extenzijom .vbs na primer "name.vbs"
dvokliknete na isti,CD/DVD ROM ce poceti da se otvara i zatvara u odredjenom vremenskom periodu...

Kako da ponistite ucinak?

CTRL-->ALT-->>DELETE-->>Task Manager-->>Processes nadjite proces "wscript.exe" -->> "ubijte" proces(end process) i to je to!

Dim LOGOUT as Integer

Google -> Tuts