Teledyne LeCroy SAS_SATA Automation API manual - Manual (Page 67)

Automation API for Teledyne LeCroy SAS/SATA Protocol Suite 61
SASTrace Object Teledyne LeCroy
{
sas_trace->ExportToText( file_name, packet_from,
packet_to );
}
catch (_com_error& er)
{
if (er.Description().length() > 0)
::MessageBox( NULL, er.Description(), _T("SASTracer
client"), MB_OK );
else
::MessageBox( NULL, er.ErrorMessage(), _T("SASTracer
client"), MB_OK );
return 1;
}
Example 2
TestFileName = "MultiOpenClose"
On Error Resume Next
result = 1 ' pass
'###########################################
'Create STATS to report the results.
Set MySTATS = WScript.CreateObject("LECROY.STATS")
If Err.Number <> 0 Then
WScript.Echo "STATS Creation Failed"
WScript.Quit
ELSE
MySTATS.ReportText (TestFileName & " Started...")
MySTATS.ReportText(
"STATS Automation object is created" )
End If
'############################################
'Create Analyzer object.
Set Analyzer = WScript.CreateObject(
"LECROY.SASAnalyzer" )
If Err.Number <> 0 Then
MySTATS.ReportError Err.number, Err.Description
result = 2 ' fail
End If
MySTATS.ReportText ( "Analyzer is created successfully" )
'#############################################
' First
' Trace file path
ProjectPath = MySTATS.GetProjectPath
Set SASTracer =
Analyzer.OpenFile(ProjectPath & "Cascading-3 Board.scs")
If Err.Number <> 0 Then
MySTATS.ReportError Err.number, Err.Description
result = 2 ' fail
Else
MySTATS.ReportText ("Sample file is opened")