Teledyne LeCroy USB Analyzer Automation Manual User Manual

Page 28

Teledyne LeCroy Automation API Reference Manual for USBTracer, USB Advisor, and Voyager USB Protocol
Suite

Example

WSH (1):

See Automation\wsh\Usb3Exerciser.vbs

WSH(2):

Set Analyzer = WScript.CreateObject("CATC.UsbTracer", "Analyzer_")

' Tell the USB 3.0 Voyager Exerciser to start generation.
Analyzer. StartUsb3Generation CurrentDir & " \Input\Usb3ScriptExample.usb3g"

Dim doneGeneration
doneGeneration = 0

' Repeat Generation 49 more times.
For RepeatCount = 1 To 49

Do While doneGeneration = 0

WScript.Sleep 100

Loop
Analyzer.StartUsb3Generation
DoneGeneration = 0

Next

' Release the analyzer.
WScript.DisconnectObject Analyzer

' WScript.Echo "USBAnalyzer object has been disconnected."
Set Analyzer = Nothing

' WScript.Echo "Quitting WScript..."
WScript.Quit

' Handler of the event fired when recorded trace is created
' (after recording and uploading).
'
Sub Analyzer_OnStatusReport(ByVal subsystem, ByVal state, ByVal percent_done )
On Error Resume Next
if state = 400 Then
doneGeneration = 1
WScript.Echo "Generation finished"
End If
End Sub

VBScript:

... ...
... ...