ByteScout Image To Video SDK – VBScript – Replace Audio In Existing Video

Home
/
Articles
/
ByteScout Image To Video SDK – VBScript – Replace Audio In Existing Video

printable version:
ByteScout-Image-To-Video-SDK-VBScript-Replace-Audio-In-Existing-Video.pdf

How to replace audio in existing video in VBScript using ByteScout Image To Video SDK

This code in VBScript shows how to replace audio in existing video with this how to tutorial

Learn how to replace audio in existing video in VBScript with this source code sample. What is ByteScout Image To Video SDK? It is the software development kit that can take a set of images and generate video slide show from them. Includes built-in support for 100+ of 2-D and 3-D slide transitions effects. Supports output in WMV, AVI, WEBM video formats. It can help you to replace audio in existing video in your VBScript application.

VBScript code samples for VBScript developers help to speed up coding of your application when using ByteScout Image To Video SDK. Just copy and paste the code into your VBScript application’s code and follow the instruction. Test VBScript sample code examples whether they respond your needs and requirements for the project.

Trial version of ByteScout Image To Video SDK is available for free. Source code samples are included to help you with your VBScript app.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

ReplaceAudio.vbs

      ' Create an instance of BytescoutImageToVideo.ImageToVideo ActiveX object
Set converter = CreateObject("BytescoutImageToVideo.ImageToVideo")

' Activate the component
converter.RegistrationName = "demo"
converter.RegistrationKey = "demo"

' converter.SetLogFile "log.txt"

' set input video file
converter.InputVideoFileName = "input.wmv"

' set input audio file
converter.ExternalAudioTrackFromFileName = "11k16bitpcm.wav"

' Set output video file name
converter.OutputVideoFileName = "ReplacedAudio.wmv"

' Run the conversion
converter.RunAndWait()

MsgBox "ReplacedAudio.wmv is ready. Script will try to open the video in default media player"

' Open result in default media player
Set shell = CreateObject("WScript.Shell")
shell.Run "ReplacedAudio.wmv", 1, false
Set shell = Nothing

Set converter = Nothing