Free Trial
Web API version
Licensing
Request A Quote
HAVE QUESTIONS OR NEED HELP? SUBMIT THE SUPPORT REQUEST FORM or write email to SUPPORT@BYTESCOUT.COM
Decode Damaged Code 128 | VBScript
DecodeDamagedCode128.vbs:
VB
'*******************************************************************************************' ' ' ' 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