Teledyne LeCroy USB Analyzer Automation Manual - Manual (Page 28)

Teledyne LeCroy Automation API Reference Manual for USBTracer, USB Advisor, and Voyager USB Protocol
Suite
28
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:
<OBJECT
RUNAT=Server
ID = Analyzer
CLASSID = "clsid:136D64A4-3CD5-4b41-974A-C7039E3FC292"
>
</OBJECT>
...<INPUT TYPE=TEXT VALUE="" NAME="PathToScript"> ...
...<INPUT TYPE=BUTTON VALUE="" NAME="BtnStartUSB3Generaion"> ...
<SCRIPT LANGUAGE="VBScript">
<!--
Sub BtnStartUSB3Generaion_OnClick
On Error Resume Next
Analyzer.StartUsb3Generation PathToScript.value
If Err.Number <> 0 Then
MsgBox Err.Number & ":" & Err.Description
End If
End Sub
-->
</SCRIPT>