Ostatní – Script na vysouvání a zasouvání mechaniky

Pomocí tohoto dosáhneme toho, že se nám mechanika v PC bude vysouvat a zasouvat, samozřejmě lze také nastavit počet vysunutí mechaniky a to tak, že přidáme „For i = 0 to colCDROMs.Count – 1“

MsgBox „Zde zadej tvuj text“
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

poté uložte jako  xxx.vbs a pošlete známému na zkoušku 🙂