Автозапуск видео с CD/DVD в работающем windows.

[zepete]

Для этого я использую mplayer.exe, который занимет только 20МБ и 3 текстовых файла.
1. Autorun.inf, в нем ничего интересного нет, он запускает autorun.bat, ибо напрямую скрипт vbs запустить правильно не получается.

[autorun]
open=autorun.bat
icon=cdrom.ico

2. autorun.bat

@echo off
cd knoppix
player.vbs

3. knoppix\player.vbs - аналог player.sh из предыдущего поста

'********************************************************************************
'* скрипт запуска проигрываниЯ видео файлов в windows при помощи mplayer
'*
'* автор zepete.livejournal.com
'* 15 февралЯ 2015 года
'********************************************************************************
function GetTempFileName()
 dim tempfolder  : set tempfolder=FSO.GetSpecialFolder(2)
 GetTempFileName=tempfolder.path&"\"&FSO.GetTempName()
end function

Sub BubbleSort(pvarArray)
    Dim i, iMax, varSwap, blnSwapped    
    iMax = UBound(pvarArray) - 1
    Do
        blnSwapped = False
        For i = 0 To iMax
            If pvarArray(i) > pvarArray(i + 1) Then
                varSwap = pvarArray(i)
                pvarArray(i) = pvarArray(i + 1)
                pvarArray(i + 1) = varSwap
                blnSwapped = True
            End If
        Next
        iMax = iMax - 1
    Loop Until Not blnSwapped
End Sub

function mplayer(folder,cmdline)
 mplayer_keys="-loop 0 -ontop -fs -fixed-vo -quiet -msglevel all=-1"
 mplayer=false
 if WshShell.Run("cmd /C ""cd "&folder&" && "&WorkDir&"\mplayer.exe "&mplayer_keys&" "&cmdline&"""",3,true)=0 then
  mplayer=true
 end if
end function

sFolder="\audio_video"
sDVDFolder="\VIDEO_TS"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
WorkDir=WshShell.CurrentDirectory

' поиск папки audio_video
if FSO.FolderExists(sFolder) then
 if mplayer(sFolder, "*.*")=false then
  MsgBox "Ошибка проигрывания audio_video"
  WScript.Quit 1
 end if
 WScript.Quit 0
end if

' поиск папки VIDEO_TS
if FSO.FolderExists(sDVDFolder) then
 if mplayer(sDVDFolder,"-dvd-device . dvd://")=false then
  MsgBox "Ошибка проигрывания VIDEO_TS"
  WScript.Quit 1
 end if
 WScript.Quit 0
end if

'поиск файла iso в корневом каталоге
sfFolder=FSO.GetAbsolutePathName("\")
set hFolder = FSO.GetFolder(sfFolder)
For Each File In hFolder.Files
    if UCase(FSO.GetExtensionName(File))=UCase("iso") then
  if mplayer("\","-dvd-device "&File&" dvd://")=false then
   MsgBox "Ошибка проигрывания файла iso"
   WScript.Quit 1
  end if
  WScript.Quit 0
 end if
Next

'поиск файлов, которые возможно воспроизвести

dim objRegExpV: Set objRegExpV = CreateObject("VBScript.RegExp")
objRegExpV.Pattern = UCase("264|3gp|3g2|3gp2|3gpp|3gpp2|3p2|asf|avi|avchd|bsf|"_
 &"dv|h264|hdmov|irf|jts|kmv|k3g|m15|m1v|m21|m2a|m2v|m75|mp21|mp2v|mp4v|mpe|mpeg|mpeg1|"_
 &"mpg|mpv|mpv2|mj2|mjp|mkv|mpeg4|mk3d|m4e|mjpg|mov|moov|movie|mqv|mts|nut|nuv|ogm|ogv|"_
 &"pva|qt|qtch|qtm|rts|rmd|rm|rv|rms|rmvb|roq|ssm|ts|vcd|viv|vivo|vob|webm|wm|wmv|wtv|"_
 &"y4m|flv")
dim objRegExpA: Set objRegExpA = CreateObject("VBScript.RegExp")
objRegExpA.Pattern = UCase("3ga|aac|ac3|act|mka|mp3|m4a|m4b|mpc|m1a|mp1|mp2|"_
 &"mpa|mpga|mpu|mogg|oga|ogg|spx|pcm|r1m|ra|ram|rax|rmj|rmx|rvx|wma|wav")
Count=hFolder.Files.Count
dim vfiles() : redim vfiles(Count)
vcount=0
For Each File In hFolder.Files
    if objRegExpV.Test(UCase(FSO.GetExtensionName(File)))=true then
  vfiles(vcount)=File : vcount=vcount+1
 end if
Next
dim afiles() : redim afiles(Count)
acount=0
For Each File In hFolder.Files
    if objRegExpA.Test(UCase(FSO.GetExtensionName(File)))=true then
  afiles(acount)=File : acount=acount+1
 end if
Next
BubbleSort vfiles : BubbleSort afiles
tmpFile=GetTempFileName()
set htmpFile=FSO.CreateTextFile(tmpFile)
For i=0 to vcount-1
 htmpFile.WriteLine(vfiles(count-i))
Next
For i=0 to acount-1
 htmpFile.WriteLine(afiles(count-i))
Next
htmpFile.Close
MsgBox tmpFile
if mplayer("/"," -playlist "&tmpFile)=false then
 MsgBox "Ошибка проигрывания списка файлов из корневого каталога"
 WScript.Quit 1
end if
WScript.Quit 0