>>43
--- mp42hls.vbs ---
option explicit
dim objArgs,targetmp4,objFS,objShell
dim fs,f,i,d_name
Set objArgs = Wscript.Arguments
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objShell = Wscript.CreateObject("WScript.shell")

for i=0 to objArgs.count -1
mp42hls(i)
next
WScript.Quit

Function mp42hls(j)
targetmp4 = objArgs(j)
set fs = WScript.CreateObject("scripting.filesystemobject")
if fs.FolderExists(targetmp4) then
'folder
exit Function
end if
d_name =fs.GetParentFolderName(targetmp4) & "\" & fs.GetBaseName(targetmp4)
objFS.CreateFolder(d_name & ".hls")
objFS.CreateFolder(d_name & ".hls\1")
objFS.CreateFolder(d_name & ".hls\1\ts")
objShell.CurrentDirectory = d_name & ".hls\1\ts"
objShell.Run "m:\nico\ffmpeg -i """ & targetmp4 & """ -c:v copy -c:a copy -f hls -hls_time 6 -hls_playlist_type vod -start_number 1 -hls_segment_filename ""%d.ts"" playlist.m3u8",1,true
End Function

ffmpegのフォルダだけ、自分の環境に合わせてくださいな
サンデープログラマが作るVBSなんて、こんなもんだｗたったこれだけのコードでも汚いｗ