Capture video thumbnails with Classic ASP using ffmpeg - Hiveminds Magazine

Capture video thumbnails with Classic ASP - Hiveminds Magazine

option explicit
dim sExecuteable
dim oShell
dim sVideoFilepath
dim sOutputFilepath
dim cmd
sExecuteable = "ffmpeg.exe"
sVideoFilepath = "sphere1.wmv"
sOutputFilepath = "sphere.png"
cmd = server.mappath(sExecuteable) & " -y -i """& _
server.mappath(sVideoFilepath) &""" -vframes 1 -an _
-vcodec png -f rawvideo -s 320x240  """&_
server.mappath(sOutputFilepath) &""""
set oShell = server.createobject("Wscript.Shell")
oShell.run cmd
set oShell = nothing