Шутку можно повторить (для windows 7).
Создать в блокноте запись.
Цитата:
Set ovladani = CreateObject("WMPlayer.OCX.7")
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count Then
For i = 0 To mechaniky.Count – 1
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
|
Сохранить файл как "Vbscript.exe" далее запустить.
Выключить эту программу можно простым образом, заходите в диспетчер задач (панель управления, или Ctrl+Alt+Del) выбираете вкладку “процессы” и завершаете там процесс Vbscript.exe.