@Echo off
:Ask
    set /p CHOICE=VLC to Dreambox - press "s" for stream, "r" for record en "d" for display: 
    IF %CHOICE% == s GOTO stream
    IF %CHOICE% == r GOTO record
    IF %CHOICE% == d GOTO display

goto ask

:display
start C:\progra~1\videolan\VLC0.8.5beta\vlc.exe %1
goto exit

:record
set MOVIESPATH=t:\
set CMDLIN=:sout=#transcode{vcodec=mp2v,vb=1024,width=704,height=576,acodec=mpga,ab=192,channels=2}:std{access=file,mux=ts,url='%MOVIESPATH%%~n1.ts'}
set message=Recording %~n1
goto execute

:stream
set CMDLIN=:sout=#transcode{vcodec=mp2v,vb=1024,width=704,height=576,acodec=mpga,ab=192,channels=2,audio-sync}:duplicate{dst=std{access=http,mux=ts,url=:9090/dboxstream}}
start C:\Progra~1\GnuWin32\bin\wget --user=root --password=dreambox -O - "http://192.168.1.116/cgi-bin/movieplayer.m3u?command=start&mrl=dummy.ts"
set message=Streaming %~n1
:execute
start C:\progra~1\videolan\VLC0.8.5beta\vlc.exe %1 %CMDLIN%

echo .
echo %message%
echo .
pause 

:exit