You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
470 lines
14 KiB
470 lines
14 KiB
//+---------------------------------------------------------------------------
|
|
//
|
|
// Microsoft Windows
|
|
// Copyright (C) Microsoft Corporation, 1998.
|
|
//
|
|
// File: boscomp.cpp
|
|
//
|
|
// Contents: DllMain
|
|
//
|
|
// Notes: modified from windows\setup\winnt32\apmupgrd.cpp by wnelson
|
|
//
|
|
// Author: wnelson 2 Apr 99
|
|
//
|
|
// ShaoYin 9 Sep 99 revised, add support for Exchange Server
|
|
//
|
|
//----------------------------------------------------------------------------
|
|
|
|
#include <winnt32.h>
|
|
#include "boscomp.h"
|
|
#include "resource.h"
|
|
|
|
HINSTANCE g_hinst;
|
|
|
|
// help text files
|
|
TCHAR szErrorHTM[] = TEXT("compdata\\boserror.htm");
|
|
TCHAR szErrorTXT[] = TEXT("compdata\\boserror.txt");
|
|
|
|
// help text files (Exchange Server)
|
|
TCHAR szExchangeHTM[] = TEXT("compdata\\exchange.htm");
|
|
TCHAR szExchangeTXT[] = TEXT("compdata\\exchange.txt");
|
|
|
|
|
|
// bos/sbs 4.5 reg keys, value names, and possible values
|
|
const TCHAR szBosKey[] = TEXT("Software\\Microsoft\\Backoffice");
|
|
const TCHAR szFamilyIdKey[] = TEXT("FamilyID");
|
|
const TCHAR szBosFamilyId[] = TEXT("8D4BCD88-3236-11d2-AB4E-00C04FB1799F");
|
|
const TCHAR szSbsFamilyId[] = TEXT("EE2D3727-33C0-11d2-AB50-00C04FB1799F");
|
|
const TCHAR szSuiteVersionKey[] = TEXT("SuiteVersion");
|
|
const TCHAR szSuiteNameKey[] = TEXT("SuiteName");
|
|
const TCHAR sz45Version[] = TEXT("4.5");
|
|
const TCHAR szBosName[] = TEXT("BackOffice Server");
|
|
const TCHAR szSbsName[] = TEXT("Small Business Server");
|
|
|
|
// sbs 4.0x reg keys, value names, and values
|
|
const TCHAR szSbsKey[] = TEXT("Software\\Microsoft\\Small Business");
|
|
const TCHAR szSbsVersionKey[] = TEXT("Version");
|
|
const TCHAR szSbs40AVersion[] = TEXT("4.0a");
|
|
const TCHAR szProductOptionsKey[] = TEXT("System\\CurrentControlSet\\Control\\ProductOptions");
|
|
//const TCHAR szProductOptionsKey[] = TEXT("software\\test");
|
|
const TCHAR szProductSuiteKey[] = TEXT("ProductSuite");
|
|
const TCHAR szSbsProductSuiteValue[] = TEXT("Small Business");
|
|
const TCHAR szSbsRestrictedProductSuiteValue[] = TEXT("Small Business(Restricted)");
|
|
|
|
// bos 4.0 version
|
|
TCHAR szBos40VersionKey[] = TEXT("Version");
|
|
TCHAR szBos40Version[] = TEXT("4.0");
|
|
|
|
// bos 2.5 key
|
|
TCHAR szBos25Key[] = TEXT("2.5");
|
|
|
|
|
|
|
|
// Exchange 5.5 reg keys, value names.
|
|
const TCHAR szExchangeKey[] = TEXT("Software\\Microsoft\\Exchange\\Setup");
|
|
const TCHAR szExchangeVerKey[] = TEXT("NewestBuild");
|
|
const DWORD dwExchangeVer55 = 0x7a8;
|
|
|
|
// Exchange 5.5 Server Pack reg key and value name.
|
|
const TCHAR szExchangeSvcPackKey[] = TEXT("ServicePackBuild");
|
|
const DWORD dwExchangeSvcPack3 = 0xa5a;
|
|
|
|
|
|
//+---------------------------------------------------------------------------
|
|
//
|
|
// Function: DllMain
|
|
//
|
|
// Purpose: constructor
|
|
//
|
|
// Arguments: Standard DLL entry point arguments
|
|
//
|
|
// Author: wnelson 2 Apr 99
|
|
//
|
|
// Notes: from kumarp 12 April 97
|
|
//
|
|
extern "C"
|
|
BOOL WINAPI DllMain(HINSTANCE hInstance,
|
|
DWORD dwReasonForCall,
|
|
LPVOID lpReserved)
|
|
{
|
|
BOOL status = TRUE;
|
|
|
|
switch( dwReasonForCall )
|
|
{
|
|
case DLL_PROCESS_ATTACH:
|
|
{
|
|
g_hinst = hInstance;
|
|
DisableThreadLibraryCalls(hInstance);
|
|
}
|
|
break;
|
|
|
|
case DLL_PROCESS_DETACH:
|
|
case DLL_THREAD_ATTACH:
|
|
case DLL_THREAD_DETACH:
|
|
break;
|
|
}
|
|
|
|
return status;
|
|
}
|
|
|
|
|
|
//+----------------------------------------------------------------------
|
|
//
|
|
// Function: BosHardBlockCheck
|
|
//
|
|
// Purpose: This function is called by winnt32.exe so that we
|
|
// can check for installed bos/sbs suites that cannot be upgraded to Win2k.
|
|
//
|
|
//
|
|
//
|
|
// Arguments:
|
|
// CompatibilityCallback [in] pointer to COMPATIBILITYCALLBACK fn
|
|
// Context [in] pointer to compatibility context
|
|
//
|
|
// FALSE if Win2k setup can continue.
|
|
// TRUE if Win2k cannot upgrade the installed suite.
|
|
//
|
|
// Author: wnelson 2 Apr 99
|
|
//
|
|
// Notes:
|
|
// TRUE is returned in the following cases: BOS 2.5; SBS 4.0,4.0a; BOS 4.0
|
|
// For SBS, it does not matter if they've upgraded to full NT Server; they still have to
|
|
// upgrade their suite to BackOffice 4.5 in order to continue.
|
|
//
|
|
|
|
BOOL WINAPI BosHardBlockCheck(IN PCOMPAIBILITYCALLBACK CompatibilityCallback,IN LPVOID Context)
|
|
{
|
|
SuiteVersion eVersion=DetermineInstalledSuite();
|
|
if (eVersion==VER_NONE || eVersion==VER_BOS45 || eVersion==VER_POST45) return FALSE;
|
|
TCHAR szMsg[1024];
|
|
GetSuiteMessage(eVersion,szMsg,1024);
|
|
|
|
// Use the callback function to send the signal
|
|
COMPATIBILITY_ENTRY ce;
|
|
ZeroMemory(&ce,sizeof(COMPATIBILITY_ENTRY));
|
|
ce.Description = szMsg;
|
|
ce.HtmlName = szErrorHTM; // defined above
|
|
ce.TextName = szErrorTXT; // defined above
|
|
ce.RegKeyName = NULL;
|
|
ce.RegValName = NULL;
|
|
ce.RegValDataSize = 0;
|
|
ce.RegValData = NULL;
|
|
ce.SaveValue = NULL;
|
|
ce.Flags = 0;
|
|
CompatibilityCallback(&ce, Context);
|
|
|
|
return TRUE;
|
|
}
|
|
//+----------------------------------------------------------------------
|
|
//
|
|
// Function: BosSoftBlockCheck
|
|
//
|
|
// Purpose: This function is called by winnt32.exe so that we
|
|
// can check for an installed sbs/bos suite with possible upgrade problems.
|
|
//
|
|
//
|
|
//
|
|
// Arguments:
|
|
// CompatibilityCallback [in] pointer to COMPATIBILITYCALLBACK fn
|
|
// Context [in] pointer to compatibility context
|
|
//
|
|
// FALSE if Win2k setup can continue.
|
|
// TRUE if Win2k setup needs to warn the user that upgrade may impair functionality of installed suite.
|
|
//
|
|
// Author: wnelson 2 Apr 99
|
|
//
|
|
// ShaoYin 9 Sep 99, add support for Exchange Server
|
|
//
|
|
// Notes:
|
|
// TRUE is returned in the following cases: BOS 4.5
|
|
//
|
|
BOOL WINAPI BosSoftBlockCheck(IN PCOMPAIBILITYCALLBACK CompatibilityCallback,IN LPVOID Context)
|
|
{
|
|
|
|
BOOL result = FALSE;
|
|
|
|
SuiteVersion eVersion=DetermineInstalledSuite();
|
|
if (eVersion==VER_BOS45)
|
|
{
|
|
TCHAR szMsg[1024];
|
|
GetSuiteMessage(eVersion,szMsg,1024);
|
|
|
|
// Use the callback function to send the signal
|
|
COMPATIBILITY_ENTRY ce;
|
|
ZeroMemory(&ce,sizeof(COMPATIBILITY_ENTRY));
|
|
ce.Description = szMsg;
|
|
ce.HtmlName = szErrorHTM; // defined above
|
|
ce.TextName = szErrorTXT; // defined above
|
|
ce.RegKeyName = NULL;
|
|
ce.RegValName = NULL;
|
|
ce.RegValDataSize = 0;
|
|
ce.RegValData = NULL;
|
|
ce.SaveValue = NULL;
|
|
ce.Flags = 0;
|
|
CompatibilityCallback(&ce, Context);
|
|
|
|
result = TRUE;
|
|
}
|
|
|
|
ExchangeVersion exVersion = DetermineExchangeVersion();
|
|
if (exVersion == EXCHANGE_VER_PRE55SP3)
|
|
{
|
|
TCHAR szMsgExchange[1024];
|
|
COMPATIBILITY_ENTRY cExchange;
|
|
|
|
LoadResString(IDS_Exchange, szMsgExchange, 1024);
|
|
ZeroMemory(&cExchange, sizeof(COMPATIBILITY_ENTRY));
|
|
cExchange.Description = szMsgExchange;
|
|
cExchange.HtmlName = szExchangeHTM;
|
|
cExchange.TextName = szExchangeTXT;
|
|
cExchange.RegKeyName = NULL;
|
|
cExchange.RegValName = NULL;
|
|
cExchange.RegValData = NULL;
|
|
cExchange.RegValDataSize = 0;
|
|
cExchange.SaveValue = NULL;
|
|
cExchange.Flags = 0;
|
|
CompatibilityCallback(&cExchange, Context);
|
|
|
|
result = TRUE;
|
|
}
|
|
|
|
return( result );
|
|
}
|
|
|
|
|
|
SuiteVersion DetermineInstalledSuite()
|
|
{
|
|
SuiteVersion eVersion=VER_NONE;
|
|
HKEY hKey,hKey25;
|
|
TCHAR szFamilyId[256], szVersion[256], szSuiteName[256];
|
|
DWORD dwVerLen1=256, dwVerLen2=256, dwNameLen=256, dwIdLen=256;
|
|
DWORD dwDataType=REG_SZ;
|
|
|
|
//
|
|
// First look for versions using the bos key (i.e., all bos versions and sbs 4.5 or later)
|
|
//
|
|
if (ERROR_SUCCESS==RegOpenKey(HKEY_LOCAL_MACHINE,szBosKey,&hKey))
|
|
{
|
|
if(ERROR_SUCCESS==RegQueryValueEx(hKey,szSuiteVersionKey,0,&dwDataType,(LPBYTE)szVersion,&dwVerLen1))
|
|
{
|
|
if(0==_tcsicmp(szVersion,sz45Version))
|
|
{
|
|
// Some 4.5 version is on the box.
|
|
if (ERROR_SUCCESS==RegQueryValueEx(hKey,szFamilyIdKey,0,&dwDataType,(LPBYTE)szFamilyId,&dwIdLen))
|
|
{
|
|
if (0==_tcsicmp(szFamilyId,szBosFamilyId) )
|
|
{
|
|
eVersion=VER_BOS45;
|
|
}
|
|
else if (0==_tcsicmp(szFamilyId,szSbsFamilyId) )
|
|
{
|
|
eVersion=VER_SBS45;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
// The guid just checked is the official version marker; however, 4.5 beta 1 did
|
|
// not use the guids. This version is timebombed and should be dead, but just in case
|
|
// we'll check the suite name string also.
|
|
if (ERROR_SUCCESS==RegQueryValueEx(hKey,szSuiteNameKey,0,&dwDataType, (LPBYTE)szSuiteName,&dwNameLen))
|
|
{
|
|
if (0==_tcsicmp(szSuiteName,szBosName))
|
|
{
|
|
eVersion=VER_BOS45;
|
|
}
|
|
else if (0==_tcsicmp(szSuiteName,szSbsName))
|
|
{
|
|
eVersion=VER_SBS45;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
// A later version is on the box
|
|
eVersion=VER_POST45;
|
|
}
|
|
}
|
|
// look for bos 4.0
|
|
else if (ERROR_SUCCESS==RegQueryValueEx(hKey,szBos40VersionKey,0,&dwDataType,(LPBYTE)szVersion,&dwVerLen2) && 0==_tcsicmp(szBos40Version,szVersion))
|
|
{
|
|
eVersion=VER_BOS40;
|
|
}
|
|
// look for bos 2.5
|
|
else if (ERROR_SUCCESS==RegOpenKey(hKey,szBos25Key,&hKey25))
|
|
{
|
|
eVersion=VER_BOS25;
|
|
RegCloseKey(hKey25);
|
|
}
|
|
RegCloseKey(hKey);
|
|
|
|
}
|
|
//
|
|
// Look for SBS versions 4.0a, and 4.0.
|
|
//
|
|
else if (ProductSuiteContains(szSbsProductSuiteValue))
|
|
{
|
|
//
|
|
// If we get here, SBS 4.0 or 4.0a is on the box.
|
|
//
|
|
if (ERROR_SUCCESS==RegOpenKey(HKEY_LOCAL_MACHINE,szSbsKey,&hKey))
|
|
{
|
|
TCHAR szVersion[256];
|
|
DWORD dwVerLen=256;
|
|
DWORD dwDataType=REG_SZ;
|
|
if (ERROR_SUCCESS==RegQueryValueEx(hKey,szSbsVersionKey,0,&dwDataType,(LPBYTE)szVersion,&dwVerLen) &&
|
|
0==_tcsicmp(szVersion,szSbs40AVersion))
|
|
{
|
|
eVersion=VER_SBS40A;
|
|
}
|
|
else
|
|
{
|
|
eVersion=VER_SBS40;
|
|
}
|
|
RegCloseKey(hKey);
|
|
}
|
|
}
|
|
// We have to make sure the user isn't tricking us into allowing Win2k to upgrade
|
|
// restricted sbs nt.
|
|
if (eVersion==VER_NONE || eVersion==VER_BOS45 || eVersion==VER_POST45)
|
|
{
|
|
if (ProductSuiteContains(szSbsRestrictedProductSuiteValue))
|
|
{
|
|
// User tried to fool us by altering version info.
|
|
eVersion=VER_SBSREST;
|
|
}
|
|
}
|
|
return eVersion;
|
|
}
|
|
|
|
// return the display string for the version in question.
|
|
void GetSuiteMessage(SuiteVersion eSV, TCHAR* szMsg, UINT nLen)
|
|
{
|
|
szMsg[0]=0;
|
|
switch (eSV)
|
|
{
|
|
case VER_NONE:
|
|
break;
|
|
case VER_BOS45:
|
|
LoadResString(IDS_Bos45Msg,szMsg,nLen);
|
|
break;
|
|
case VER_BOS40:
|
|
LoadResString(IDS_Bos40Msg,szMsg,nLen);
|
|
break;
|
|
case VER_BOS25:
|
|
LoadResString(IDS_Bos25Msg,szMsg,nLen);
|
|
break;
|
|
case VER_SBS45:
|
|
LoadResString(IDS_Sbs45Msg,szMsg,nLen);
|
|
break;
|
|
case VER_SBS40:
|
|
LoadResString(IDS_Sbs40Msg,szMsg,nLen);
|
|
break;
|
|
case VER_SBS40A:
|
|
LoadResString(IDS_Sbs40AMsg,szMsg,nLen);
|
|
break;
|
|
case VER_SBSREST:
|
|
LoadResString(IDS_SbsRestMsg,szMsg,nLen);
|
|
break;
|
|
}
|
|
}
|
|
void LoadResString(UINT nRes, TCHAR* szString, UINT nLen)
|
|
{
|
|
if(!LoadString(g_hinst, nRes, szString, nLen))
|
|
{
|
|
szString[0] = 0;
|
|
}
|
|
}
|
|
|
|
// Check the ProductOptions\ProductSuite multi-sz value for the string szTest.
|
|
bool ProductSuiteContains(const TCHAR* szTest)
|
|
{
|
|
bool bRet=false;
|
|
HKEY hKey;
|
|
unsigned char* Value=NULL;
|
|
TCHAR* szValue;
|
|
DWORD dwDataLen=0;
|
|
DWORD dwDataType=REG_MULTI_SZ;
|
|
|
|
if (ERROR_SUCCESS == RegOpenKey(HKEY_LOCAL_MACHINE,szProductOptionsKey,&hKey) )
|
|
{
|
|
// see how big the data will be
|
|
if (ERROR_SUCCESS == RegQueryValueEx(hKey,szProductSuiteKey,0,&dwDataType,NULL,&dwDataLen))
|
|
{
|
|
Value=new unsigned char[dwDataLen];
|
|
if (Value != NULL && dwDataLen != 1) // if the multi-sz is empty, we get back dataLen=1 and don't need to go further
|
|
{
|
|
if (RegQueryValueEx(hKey,szProductSuiteKey,0,&dwDataType,Value,&dwDataLen) == ERROR_SUCCESS)
|
|
{
|
|
szValue=(TCHAR*)Value;
|
|
|
|
for (UINT n = 1 ; *szValue != 0 ; szValue += _tcslen(szValue) + 1)
|
|
{
|
|
if ( _tcsstr(szValue, szTest) != 0)
|
|
{
|
|
bRet=true;
|
|
break;
|
|
}
|
|
}
|
|
|
|
}
|
|
}
|
|
if (Value != NULL) delete[] Value;
|
|
}
|
|
RegCloseKey(hKey);
|
|
}
|
|
return bRet;
|
|
}
|
|
|
|
|
|
|
|
|
|
ExchangeVersion DetermineExchangeVersion()
|
|
{
|
|
ExchangeVersion eVersion=EXCHANGE_VER_NONE;
|
|
HKEY hExchangeKey;
|
|
DWORD dwCurrentVer, dwCurrentSvcPackVer;
|
|
DWORD dwVerLen=sizeof(DWORD);
|
|
DWORD dwDataType=REG_DWORD;
|
|
|
|
//
|
|
// First look for versions using the Exchange key
|
|
//
|
|
if (ERROR_SUCCESS==RegOpenKey(HKEY_LOCAL_MACHINE,szExchangeKey,&hExchangeKey))
|
|
{
|
|
if(ERROR_SUCCESS==RegQueryValueEx(hExchangeKey,szExchangeVerKey,0,&dwDataType,(LPBYTE)&dwCurrentVer,&dwVerLen))
|
|
{
|
|
if (dwCurrentVer < dwExchangeVer55)
|
|
{
|
|
// prior Exchange 5.5
|
|
eVersion=EXCHANGE_VER_PRE55SP3;
|
|
}
|
|
else if (dwCurrentVer == dwExchangeVer55)
|
|
{
|
|
// Exchange 5.5 version is on the box.
|
|
if (ERROR_SUCCESS==RegQueryValueEx(hExchangeKey,szExchangeSvcPackKey,0,&dwDataType,(LPBYTE)&dwCurrentSvcPackVer,&dwVerLen))
|
|
{
|
|
if (dwCurrentSvcPackVer >= dwExchangeSvcPack3)
|
|
{
|
|
// has Service Pack 3 installed
|
|
eVersion=EXCHANGE_VER_POST55SP3;
|
|
}
|
|
else
|
|
{
|
|
// no Service Pack 3
|
|
eVersion=EXCHANGE_VER_PRE55SP3;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
// no Servie Pack 3
|
|
eVersion=EXCHANGE_VER_PRE55SP3;
|
|
}
|
|
}
|
|
}
|
|
RegCloseKey(hExchangeKey);
|
|
}
|
|
|
|
return eVersion;
|
|
}
|
|
|