Written by Jarno Elonen <elonen@iki.fi>, jan 2010, released into the Public Domain
The following VB script uses the Enosoft DV Processor (on Windows) to convert/reset the aspect ratio flag of all .AVI files from 4:3 to 16:9 in the directory where the script is executed (losslessly, without any recompression). It writes the modified files to a subdirectory "out/", which must exist.
' Batch VB script to change aspect ratio of AVI DV files to 16:9 ' using Enosoft DV Processor (in Windows). ' The script processes all .AVI files in the execution directory ' and makes 16:9 copies into folder ".\out" (that must exist). ' ' Written by Jarno Elonen <elonen@iki.fi>, 20010-01. ' Released into the Public Domain. Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(".") Set files = folder.Files For each folderIdx In files If InStr(folderIdx.Name, ".avi") > 0 Then Dim App Set App = CreateObject("EnoDVProcessor.EnoDV2DVApplication.1") App.Visible = True App.Caption = "Setting AR 16:9 for " & folderIdx.Name App.AVIInputDisableSeeking = True App.EmbeddedEnable = True App.InputAsFile = fso.GetAbsolutePathName(folderIdx.Name) App.SetOutputAsFile fso.GetAbsolutePathName("out\" + folderIdx.Name), False, True App.EmbeddedAspectRatioEnable = True App.SetEmbeddedAspectRatioConfig False, 2 ' IEC16x9FullFormat App.AVIInputDisableSeeking = True App.EmbeddedEnable = True ' start processing App.RunProcessor ' wait for the processor to stop by polling the graph state every few seconds Do Until App.ProcessorGraphState = 0 WScript.Sleep 1000 Loop App.Quit End If Next