>>? GetServerName(...) >>RETURN >> >>FUNCTION GetServerName >>LPARAMETER tcServerName >>LOCAL loReg, laCLSIDValList[1], laServerNameValList[1], lcServerName >>loReg = NewObject("Registry", HOME() + "FFC\Registry") >>lcServerName = Null >>WITH loReg >> IF .OpenKey(tcServerName + "\CLSID") = 0 >> .EnumKeyValues(@laCLSIDValList) >> IF .OpenKey("CLSID\" + laCLSIDValList[1,2] + "\LocalServer32") = 0 >> .EnumKeyValues(@laServerNameValList) >> lcServerName = laServerNameValList[2] >> ENDIF >> ENDIF >>ENDWITH >>RETURN lcServerName >>