تکه کد cd driver

سلام امروز می خواهیم به شما کدی رو بدیم که با اون cd driver رو می تونیم به هر زمانی که بخواهیم بازو بسته کنیم

این رو تو نتپد بنویسید

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 2000
loop

و با فرمت vbs ذخیره کنید

...darkness are coming