ByteScout Barcode Reader SDK – VBScript – Read Barcode From Webcam or Scanner

Home
/
Articles
/
ByteScout Barcode Reader SDK – VBScript – Read Barcode From Webcam or Scanner

printable version:
ByteScout-BarCode-Reader-SDK-VBScript-Read-Barcode-From-Webcam-or-Scanner.pdf

How to read barcode from webcam or scanner in VBScript using ByteScout BarCode Reader SDK

This code in VBScript shows how to read barcode from webcam or scanner with this how to tutorial

Source code documentation samples provide quick and easy way to add a required functionality into your application. ByteScout BarCode Reader SDK is the SDK for barcode decoding. Can read all popular types from Code 128, GS1, UPC and Code 39 to QR Code, Datamatrix, PDF417. Images, pdf, TIF images and live web camera are supported as input. Designed to handle documents with noise and defects. Includes optional splitter and merger for pdf and tiff based on barcodes. Batch mode is optimized for high performance with multiple threads. Decoded values can be exported to XML, JSON, CSV or into custom data format. It can be used to read barcode from webcam or scanner using VBScript.

You will save a lot of time on writing and testing code as you may just take the VBScript code from ByteScout BarCode Reader SDK for read barcode from webcam or scanner below and use it in your application. Follow the instructions from the scratch to work and copy the VBScript code. Use of ByteScout BarCode Reader SDK in VBScript is also explained in the documentation included along with the product.

ByteScout BarCode Reader SDK free trial version is available on our website. VBScript and other programming languages are supported.

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

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

AcquireImagesFromWebCam.vbs

      Set wia = CreateObject("Bytescout.BarCodeReader.WIAImageScanner")

wia.OutputFileNameTemplate = "BarCodeReader-scanned"
wia.OutputFolder = "." ' set output folder to current folder
wia.OutputImageFormat = 1 ' = WiaImageFormatType.PNG
wia.ImageQuality = 131072 ' = 0x00020000 = WiaImageBias.MaximizeQuality
wia.ImageIntent = 0 ' = WiaImageIntent.UnspecifiedIntent
wia.ShowDeviceSelectionDialog = True

If wia.Acquire() Then ' acquire images from device
	
	outputFiles = wia.OutputFilesCOM ' get names of acquire image files
	Msgbox outputFiles(0) ' display first file name 
	
End If

Set wia = Nothing