? 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