$Port = 12

$Pwd = "1234"

 

$bcreader = CreateObject("BCP5Ctrl.BCP5Controller")
?? @error
$open = $bcreader.OpenBCP($Pwd,$Port)
? $open

debug on
$text = $bcreader.DownloadData

; If $Port or $Pwd is wrong it displays "Device did not open", else it displays "Communication failed to establish."
 

$nul = $bcreader.EraseData
; Even though I get a "Communication failed...", (on the "DownloadData") it erases all data in the scanner.
; Which indicates that the comm. is in fact working?

 
$close = $bcreader.CloseBCP

Dim bcReader 
Dim port
Dim password
Dim text

port = 12
password = "1234"

Set bcReader = CreateObject("BCP5Ctrl.BCP5Controller")

bcReader.OpenBCP password, port

WScript.Echo "Opened = " & bcReader.Opened

text = bcReader.DownloadData()

WScript.Echo "text = " & text

bcReader.CloseBCP

Break On

$BCPController = CreateObject("BCPWrapper.BCPController")

$rv = $BCPController.OpenBCP("COM12", "1234")

$text = $BCPController.UploadData()

?"text = " + $text

$BCPController.Close

Exit 0

Break On

$BCPController = CreateObject("BCPWrapper.BCPController")

$bool = $BCPController.Open("COM12", "1234")

$text = $BCPController.UploadData()

?"text = " + $text

$bool = $BCPController.EraseData

$BCPController.Close

Exit 0