Teledyne LeCroy UWBTracer Automation Manual - Manual (Page 24)

LeCroy UWBTracer Automation API Reference Manual Manual Version 3.02
20
Example
WSH (1):
See Automation\wsh\UWBAnalyzer_Gen.vbs
WSH(2):
Set Analyzer = WScript.CreateObject("CATC.UWBAnalyzer", "Analyzer_")
'Tell the CATC UWB analyzer to start generation.
Analyzer.StartGeneration CurrentDir & "example.uwbg"
Dim doneGeneration
doneGeneration = 0
'Repeat Generation 49 more times.
For RepeatCount = 1 To 49
Do While doneGeneration = 0
WScript.Sleep 100
Loop
Analyzer.StartGeneration
DoneGeneration = 0
Next
'Release the analyzer.
WScript.DisconnectObject Analyzer
'WScript.Echo "UWBAnalyzer object has been disconnected."
Set Analyzer = Nothing
'WScript.Echo "Quiting 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:7A4ECA40-E668-11D4-9B7C-000102566088"
>
</OBJECT>
...<INPUT TYPE=TEXT VALUE="" NAME="PathToScript"> ...
...<INPUT TYPE=BUTTON VALUE="" NAME="BtnStartGeneraion"> ...
<SCRIPT LANGUAGE="VBScript">
<!--
Sub BtnStartGeneraion_OnClick
On Error Resume Next
Analyzer.StartGeneration PathToScript.value
If Err.Number <> 0 Then
MsgBox Err.Number & ":" & Err.Description
End If
End Sub
-->
</SCRIPT>