$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