beautypg.com

Teledyne LeCroy UWBTracer Automation Manual User Manual

Page 12

background image

LeCroy

UWBTracer Automation API Reference Manual

Manual Version 3.02

8

Example


WSH:

CurrentDir = Left(WScript.ScriptFullName, InstrRev(WScript.ScriptFullName, "\"))
Set Analyzer = WScript.CreateObject("CATC.UwbAnalyzer")
SwVersion = Analyzer.GetVersion(0)
BEVersion = Analyzer.GetVersion(1)
FwVersion = Analyzer.GetVersion(2)
MsgBox "Software:" & CStr(SwVersion) & ", BusEngine:" & CStr(BEVersion) & ", Firmware:" &
CStr(FwVersion)

C++:

HRESULT hr;
IUwbAnalyzer* poUwbAnalyzer;

// create UwbAnalyzer object
if ( FAILED( CoCreateInstance(

CLSID_UwbAnalyzer,
NULL, CLSCTX_SERVER,
IID_IUwbAnalyzer,
(LPVOID *)&poUwbAnalyzer ) )
return;


WORD sw_version;
try
{

sw_version = m_poAnalyzer->GetVersion( ANALYZERVERSION_SOFTWARE );

}
catch (_com_error& er)
{

if (er.Description().length() > 0)

::MessageBox( NULL, er.Description(), _T("UwbAnalyzer client"), MB_OK );

else

::MessageBox( NULL, er.ErrorMessage(), _T("UwbAnalyzer client"), MB_OK );

return 1;

}

TCHAR buffer[20];
_stprintf(buffer, _T("Software version:%X.%X"), HIBYTE(sw_version), LOBYTE(sw_version));