Quote:

@echo off
cls
::This batch file uses SET features available in WINXP and later
::
::Expects ISO's or VIDEO_TS folders named as defined below to organized in folders
::by named media type (DVD, HD, BLUERAY) located in SourceDir. Searching multiple
::folders is possible by adding a sequence digit for the additional folder names (e.g. DVD1).
::
::Support for various Players and Virtual DVD emulation is using for playing ISO's
::Otherwise, expectation is that .IFO is associated with your player.
::
:: Players: PowerDVD8, WinDVD, Media PLayer. (The ordered list can located below)
:: The last program found is used, thus, Media Player currently takes
:: precedence
:: Virtual DVD
:: Emulation: Daemon Tools, Slysoft's Virtual CD
::
:: _1 DescriptionSideA
:: _2 profileid - this is usually the UPC code
:: _3 disc#
:: _4 slot# or collection#
:: _5 Title or Sort Title or Label Side A
:: _6 filepath
:: _7 mediatype = "DVD", "HD" or "BluRay"
:: _8 and thereafter - remainder of Location field
set count=0
:loop
setLocal EnableDelayedExpansion
shift
set /a count = count + 1
call set _%count%=%0
call :deQuote _%count%
if not ~%0~==~~ goto :loop
set count=0

echo.variables:
echo.%_1% %_2% %_3% %_4% %_5% %_6% %_7% %_8% %_9%

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::  CUSTOMIZATIONS HERE!
:: "DVD"        = if ISO images are used, set this to the Drive letter of the virtual Drive
::                (this is not required/used by daemon tools)
:: "SourceDir"  = must have trailing \
:: "Folder"    = if not blank, must have trailing \
:: "Filename"  = the name of the ISO or VIDEO_TS folder
:: "LastFolder" = The last search folder in the sequence: DVD, DVD1, DVD2, etc.
::                (this allows for searching multiple folders. If you only have one folder,
::                set it the same as "Folder")
set DVD=D:
set SourceDir=\\msi7309\
set Folder=%_7%\
set Filename=%_5%
set LastFolder=%_7%1\
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

call :FindProgram VirtualDrive vcdmount.exe
call :FindProgram VirtualDrive daemon.exe

call :FindProgram player powerdvd8.exe {drive}
call :FindProgram player windvd.exe    {drive}
call :FindProgram player vlc.exe    {drive}
call :FindProgram player wmplayer.exe  "/prefetch:4 /fullscreen /device:dvd "{drive}""

Set thisFolder=%Folder%
Set nextFolder=%Folder:~0,-1%1\
if ~%Folder:~-2%~==~1\~ set Set nextFolder=%Folder:~0,-2%2\
if not ~%player%~==~~ goto :FindVideo
echo Can't Locate DVD Video player
pause
exit

:FindVideo
if not exist "%SourceDir%%thisFolder%." goto NotFound
set iso="%SourceDir%%thisFolder%%Filename%.ISO"
if EXIST %iso% goto :iso
set Filename_=%Filename: =_%
set iso="%SourceDir%%thisFolder%%Filename_%.ISO"
if EXIST %iso% goto :iso
set Filename_=%Filename:~0,30%
set iso="%SourceDir%%thisFolder%%Filename_%.ISO"
if EXIST %iso% goto :iso
set Filename_=%Filename_: =_%
set iso="%SourceDir%%thisFolder%%Filename_%.ISO"
if EXIST %iso% goto :iso
set play="%SourceDir%%thisFolder%%Filename%\VIDEO_TS\VIDEO_TS.IFO"
if EXIST %play% goto :video
set play="%SourceDir%%thisFolder%%Filename_%\VIDEO_TS\VIDEO_TS.IFO"
if EXIST %play% goto :video
if ~%Folder%~==~~ goto :NotFound
if ~%thisFolder%~==~%LastFolder%~ goto :NotFound
Set thisFolder=%nextFolder%
set count=%thisFolder:~-2,1%
set /a count = count + 1
set nextFolder=%nextFolder:~0,-2%%count%\
goto :FindVideo

:NotFound
echo    * * * NOT FOUND * * *
echo      SourceDir = "%SourceDir%"
echo        Folder = "%Folder%"
echo Video Filename = "%Filename%"
pause
exit

:video
echo %play%
%play%
exit

:iso
Echo Mount ISO
if not ~%VirtualDrive%~==~~ goto :MountISO
echo Can't find Virtual Drive Application
pause
exit

:MountISO
Call :deQuote PlayerCommand
if /i ~%VirtualDriveProgram%~==~daemon.exe~  goto :daemon
if /i ~%VirtualDrive%Program~==~vcdmount.exe~ goto :vcdmount

:Daemon
%VirtualDrive% -get_letter 0
set /a ErrorLevel=%ErrorLevel%+1
set DVD="ABCDEFGHIJKLMNOPQRSTUVWXYZ
Call Set DVD=%%DVD:~%ErrorLevel%,1%%:
%VirtualDrive% -unmount 0
%VirtualDrive% -mount 0,%iso%
set PlayerCommand=!PlayerCommand:{drive}=%DVD%!
Call Set GoPlay=%Player% %PlayerCommand%
echo %GoPlay%
%GoPlay%
::I decided it's probably best to unmount the image...
%VirtualDrive% -unmount 0
exit

:vcdmount
set PlayerCommand=!PlayerCommand:{drive}=%DVD%!
%VirtualDrive% /d=0 /u
%VirtualDrive% /d=0 %iso%
Call Set GoPlay=%Player% %PlayerCommand%
echo %GoPlay%
%GoPlay%
%VirtualDrive% /d=0 /u
exit

:FindProgram
for /f "tokens=* delims= " %%z in ('attrib/s "%ProgramFiles%.\%2"') do (
set %1temp=%%z
)
call set test=!%1temp:~0,14!
if /i "%test%"=="File Not Found" goto :FindProgram1
call set %1="!%1temp:~11!"
set %1Program=%2
set %1Command=%3
:FindProgram1
goto :eof

:deQuote
set _deQuoteVar=%1
call set _deQuoteStr=%%!_deQuoteVar!%%
set _deQuoteStr=#@#%_deQuoteStr%#@#
set _deQuoteStr=%_deQuoteStr:"#@#=#@#%
set _deQuoteStr=%_deQuoteStr:#@#"=#@#%
set %_deQuoteVar%=%_deQuoteStr:~3,-3%
goto :eof

Quote:
call :FindProgram player wmplayer.exe  "/prefetch:4 /fullscreen /device:dvd "{drive}""

Quote:
REM call :FindProgram player wmplayer.exe  "/prefetch:4 /fullscreen /device:dvd "{drive}""

Quote:
call :FindProgram player powerdvd8.exe {drive}
call :FindProgram player windvd.exe    {drive}
call :FindProgram player wmplayer.exe  "/prefetch:4 /fullscreen /device:dvd "{drive}""

Quote:
call :FindProgram player powerdvd8.exe {drive}
call :FindProgram player windvd.exe    {drive}
call :FindProgram player wmplayer.exe  "/prefetch:4 /fullscreen /device:dvd "{drive}""
call :FindProgram player vlc.exe    {drive}