Teledyne LeCroy UWBTracer Automation Manual - Manual (Page 85)

LeCroy UWBTracer Automation API Reference Manual Manual Version 3.02
81
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.UWBAnalyzer", RemoteServer.value
)
if Not Analyzer Is Nothing Then
window.status = "UWBTracer connected"
else
msg = "Unable to connect to UWBTracer"
MsgBox msg, vbCritical
window.status = msg
End If
End Sub
-->
</SCRIPT>
WSH:
' Create LeCroy analyzer adapter first..
Set AnalyzerAdapter = WScript.CreateObject("CATC.AnalyzerAdapter", "Analyzer_")
RemoteServer = "EVEREST"
Set Analyzer = AnalyzerAdapter.CreateObject("CATC.UWBAnalyzer", RemoteServer)
Analyzer.StartRecording ( Analyzer.ApplicationFolder & "my.rec" )
...