Data Sheet

Teledyne LeCroy Automation API Reference Manual for USBTracer, USB Advisor, and Voyager USB Protocol
Suite
143
Example
VBScript:
</HEAD>
<OBJECT id=AnalyzerAdapter
classid=clsid:A0CB5386-38BA-4970-8782-3D1B707C3E5F>
</OBJECT>
...
<input type="button" value="Connect" name="BtnConnect">
<INPUT NAME="RemoteServer">
<SCRIPT LANGUAGE="VBScript">
<!--
Sub BtnConnect_onclick
On Error Resume Next
Set Analyzer = AnalyzerAdapter.CreateObject("CATC.USBTracer", RemoteServer.value)
if Not Analyzer Is Nothing Then
window.status = "USBTracer connected"
else
msg = "Unable to connect to USBTracer"
MsgBox msg, vbCritical
window.status = msg
End If
End Sub
-->
</SCRIPT>
WSH:
' Create CATC analyzer adapter first.
Set AnalyzerAdapter = WScript.CreateObject("CATC.AnalyzerAdapter", "Analyzer_")
RemoteServer = "EVEREST"
Set Analyzer = AnalyzerAdapter.CreateObject("CATC.USBTracer", RemoteServer)
Analyzer.StartRecording ( Analyzer.ApplicationFolder & "my.rec" )
...