Teledyne LeCroy UWBTracer Automation Manual - Manual (Page 56)

LeCroy UWBTracer Automation API Reference Manual Manual Version 3.02
52
Example
C++: // In this example, use wrapper functions provided by #import directive.
//
IuwbTrace3*
trace;
. . .
IUwbVerificationScript* vscript = NULL;
if (SUCCEEDED (trace->QueryInterface( IID_IUwbVerificationScript, (void**)&vscript))
{
try
{
VS_RESULT result = vscript ->RunVerificationScript("Test1");
if(result == PASSED)
{
::MessageBox( NULL, "Test verification 1 is passed !!!", "UwbAnalyzer client", MB_OK );
}
}
catch (_com_error& er)
{
if (er.Description().length() > 0)
::MessageBox(NULL, er.Description(), "UwbAnalyzer client", MB_OK);
else
::MessageBox(NULL, er.ErrorMessage(), "UwbAnalyzer client", MB_OK);
return 1;
}
}
else
{
::MessageBox(NULL, "Unable to get IUwbVerificationScript interface !!!",
_T("UwbAnalyzer client"), MB_OK);
return 1 ;
}
. . .
WSH:
Set Analyzer = WScript.CreateObject("CATC.UWBAnalyzer")
Set Trace = Analyzer.OpenFile("C:\Some trace files\some_trace.Uwb")
Dim Result
Result = Trace.RunVerificationScript("Test1")
If Result = 1 Then
Msgbox "PASSED"
Else
Msgbox "FAILED"
End If
MsgBox("Done")