Спасибо большое, начало получаться Вот, что вышло.
#import "F:\PROGRA~1\TrafInsp\tiregtlb.dll" no_namespace named_guids
...
CLSID CLSID_TrafInsp;
IID IID_TrafInspAdmin;
_variant_t State;
CLSIDFromProgID(LPCOLESTR("TrafInsp.TrafInspAdmin"), &CLSID_TrafInsp);// Возвращает CLSID для заданного ProgID
IIDFromString( LPOLESTR("TrafInsp.TrafInspAdmin"),&IID_TrafInspAdmin );

CComPtr<ITrafInspAdmin> pTrafInspAdmin; // это если интерфейс называется ITrafInspAdmin, иначе нужно поправить
COSERVERINFO csServerInfo = {0L, LPWSTR(ServerName) /* должно быть char* */, 0, 0};
MULTI_QI mqResults = {&IID_TrafInspAdmin, NULL, 0};
HRESULT hr = CoCreateInstanceEx(CLSID_TrafInsp, NULL, CLSCTX_ALL, &csServerInfo, 1, &mqResults);
if (hr!=S_OK)
{
AfxMessageBox(LPCTSTR("Error"));
return;
}
pTrafInspAdmin.Attach((ITrafInspAdmin*)mqResults.pItf);
hr = pTrafInspAdmin->APILogon(APIPass);
буду разбираться дальше.