Teledyne LeCroy SAS_SATA Automation API manual User Manual

Page 88

Advertising
background image

Teledyne LeCroy

SASTrace Object

82

Automation API for Teledyne LeCroy SAS/SATA Protocol Suite

if ( SUCCEEDED ( trace->QueryInterface(

IID_ISASVerificationScript,

(void**)&vscript

) )

{
try
{
VS_RESULT result = vscript -

>RunVerificationScript("Test1");

if( result == PASSED )
{
::MessageBox( NULL, "Test verification 1 is passed

!!!",

"SASTracer client", MB_OK );
}
}
catch (_com_error& er)
{
if (er.Description().length() > 0)
::MessageBox( NULL, er.Description(), "SASTracer

client", MB_OK );

else
::MessageBox( NULL, er.ErrorMessage(), "SASTracer

client", MB_OK );

return 1;
}
}

else
{
::MessageBox( NULL, "Unable to get

ISASVerificationScript interface !!!",

_T("SASTracer client"), MB_OK );
return 1 ;
}

. . .

WSH:

Set Analyzer = WScript.CreateObject("LeCroy.SASTracer")

Set Trace = Analyzer.OpenFile( "C:\Some trace

files\some_trace.sas" )

Advertising