Teledyne LeCroy UWBTracer Automation Manual - Manual (Page 12)

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));