Decode Damaged Code 128 - VBScript
BarCode Reader SDK sample in VBScript demonstrating ‘Decode Damaged Code 128’
DecodeDamagedCode128.vbs
'*******************************************************************************************'
' '
' Download Free Evaluation Version From: https://bytescout.com/download/web-installer '
' '
' Also available as Web API! Get free API Key https://app.pdf.co/signup '
' '
' Copyright � 2017-2020 ByteScout, Inc. All rights reserved. '
' https://www.bytescout.com '
' https://www.pdf.co '
'*******************************************************************************************'
if (WScript.Arguments.Count < 1) Then
MsgBox "Run with the file name as the argument" & vbCRLF & vbCRLF & "DecodeDamagedCode128.vbs <InputFileName>"
WScript.Quit 0
End If
WScript.Echo "Reading barcode(s) from image " & WScript.Arguments(0)
Set reader = CreateObject("Bytescout.BarCodeReader.Reader")
reader.RegistrationName = "demo"
reader.RegistrationKey = "demo"
' Set barcode type to find
reader.BarcodeTypesToFind.Code128 = True
reader.ReadFromFile WScript.Arguments(0)
For i = 0 To reader.FoundCount - 1
' Write to console
WScript.Echo "Found barcode with type '" & reader.GetFoundBarcodeType(i) & "' and value '" & reader.GetFoundBarcodeValue(i) & "'"
Next
' Cleanup
Set reader = Nothing
run.bat
REM running from the command line
cscript.exe DecodeDamagedCode128.vbs corrupted_barcode_code128.png
pause