static HRESULT GetValue(const MSXML2::IXMLDOMElementPtr& rpTestEvent, const _bstr_t& rValueName, long& rValue)
{
HRESULT hr = S_OK ;
MSXML2::IXMLDOMNodePtr pNode ;
BSTR bstrValue = 0 ;
if ( (S_OK == (hr = rpTestEvent->selectSingleNode(rValueName, &pNode)))
&& SUCCEEDED(hr = pNode->get_text(&bstrValue))
)
{
_bstr_t Value(bstrValue, false) ;
rValue = _wtol(Value) ;
}
if (S_FALSE == hr)
hr = E_FAIL ;
return hr ;
}
