IIS网站和虚拟目录动态创建源码

#include "stdafx.h"
#include "acl.h"
#include "SetupKit.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

////////////////////////////////////////////////////////////////////
//ACL Function definition
BOOL InternalEnableDirectoryACL(LPCTSTR lpDirectory)
{
PACL pDACL = NULL,pNewDACL = NULL;
PSECURITY_DESCRIPTOR pSD = NULL;
EXPLICIT_ACCESS ea;

try
{
GetNamedSecurityInfo((LPTSTR)lpDirectory,SE_FILE_OBJECT, DACL_SECURITY_INFORMATION,
NULL, NULL, &pDACL, NULL, &pSD);

ZeroMemory(&ea,sizeof(ea));
ea.grfAccessMode = GRANT_ACCESS ;
ea.grfAccessPermissions = GENERIC_READ|GENERIC_EXECUTE|GENERIC_WRITE;
ea.grfInheritance = SUB_CONTAINERS_AND_OBJECTS_INHERIT;
ea.Trustee.TrusteeForm = TRUSTEE_IS_NAME;
ea.Trustee.ptstrName = _T("EVERYONE");

SetEntriesInAcl(1,&ea,pDACL,&pNewDACL);

SetNamedSecurityInfo((LPTSTR)lpDirectory,SE_FILE_OBJECT,DACL_SECURITY_INFORMATION,
NULL,NULL,pNewDACL,NULL);
if(pSD)
LocalFree((HLOCAL)pSD);
if(pNewDACL)
LocalFree((HLOCAL)pNewDACL);
return TRUE;
}
catch(...)
{
if(pSD)
LocalFree((HLOCAL)pSD);
if(pNewDACL)
LocalFree((HLOCAL)pNewDACL);
GetError(_T("EnableDirectoryACL"));
}
return FALSE;
}

BOOL _stdcall EnableDirectoryACL(LPTSTR lpDirectory)
{
CFileFind finder;
CString strName(lpDirectory);

BOOL bRet = finder.FindFile(strName);

while (bRet)
{
bRet = finder.FindNextFile();
strName = finder.GetFilePath();

if(finder.IsDots())
{
continue;
}

InternalEnableDirectoryACL(strName);

if (finder.IsDirectory())
{
strName += _T("\\*.*");
EnableDirectoryACL(strName.GetBuffer(5));
strName.ReleaseBuffer();

}
}

finder.Close();
return TRUE;

}

#include "stdafx.h"
#include "Service.h"
#include "SetupKit.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

#import "C:\\windows\\system32\\com\\Comadmin.dll" no_namespace

////////////////////////////////////////////////////////////////////
//Service Function definition

BOOL _stdcall BeginService(LPTSTR lpServiceName)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

SC_HANDLE   schService = NULL;
SC_HANDLE   schSCManager = NULL;

try
{
schSCManager = OpenSCManager(
NULL,                   // Computer (NULL == local)
NULL,                   // Database (NULL == default)
SC_MANAGER_ALL_ACCESS   // Access required
);
if (!schSCManager)
{
return FALSE;
}

schService = OpenService( schSCManager,lpServiceName,SC_MANAGER_ALL_ACCESS);

if (!schService)
{
CloseServiceHandle(schSCManager);
return FALSE;
}

if (!StartService(schService,0,NULL) )
{
CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);
return FALSE;
}

CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);
return TRUE;
}
catch(_com_error& err)
{
GetComErr(_T("BeginService"),err);
}
catch(...)
{
GetError(_T("BeginService"));
}
return FALSE;
}

BOOL _stdcall EndService(LPTSTR lpServiceName)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

SC_HANDLE   schService = NULL;
SC_HANDLE   schSCManager = NULL;

SERVICE_STATUS ss;

try
{
schSCManager = OpenSCManager(NULL,NULL,SC_MANAGER_ALL_ACCESS);
if (!schSCManager)
{
return FALSE;
}

schService = OpenService(schSCManager,lpServiceName,SC_MANAGER_ALL_ACCESS);

if (!schService)
{
CloseServiceHandle(schSCManager);
return FALSE;
}

DWORD dwStartTime = GetTickCount();
DWORD dwTimeout = 9000;
// Make sure the service is not already stopped
if(!QueryServiceStatus( schService, &ss ))
{
CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);
return FALSE;
}

if(ss.dwCurrentState==SERVICE_STOPPED)
{
CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);
return TRUE;
}

// If a stop is pending, just wait for it
while (ss.dwCurrentState==SERVICE_STOP_PENDING)
{
Sleep( ss.dwWaitHint );
if(!QueryServiceStatus( schService, &ss ) )
{
CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);
return FALSE;
}

if(ss.dwCurrentState == SERVICE_STOPPED )
{
CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);
return TRUE;
}

if (GetTickCount() - dwStartTime > dwTimeout)
{
CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);
return FALSE;
}
}

DWORD i;
DWORD dwBytesNeeded;
DWORD dwCount;

LPENUM_SERVICE_STATUS   lpDependencies = NULL;
ENUM_SERVICE_STATUS     ess;
SC_HANDLE               hDepService;

// Pass a zero-length buffer to get the required buffer size
if ( EnumDependentServices(schService, SERVICE_ACTIVE,
lpDependencies, 0, &dwBytesNeeded, &dwCount ) )
{
// If the Enum call succeeds, then there are no dependent
// services so do nothing
}
else
{
if ( GetLastError() != ERROR_MORE_DATA )
{
CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);
return FALSE; // Unexpected error
}

// Allocate a buffer for the dependencies
lpDependencies = (LPENUM_SERVICE_STATUS) HeapAlloc(
GetProcessHeap(), HEAP_ZERO_MEMORY, dwBytesNeeded );

try
{
// Enumerate the dependencies
if ( !EnumDependentServices( schService, SERVICE_ACTIVE,
lpDependencies, dwBytesNeeded, &dwBytesNeeded,
&dwCount ) )
return GetLastError();

for ( i = 0; i < dwCount; i++ )
{
ess = *(lpDependencies + i);

// Open the service
hDepService = OpenService(schSCManager, ess.lpServiceName, SERVICE_STOP | SERVICE_QUERY_STATUS );
if ( !hDepService )
{
CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);
return FALSE; // Unexpected error
}

// Send a stop code
if ( !ControlService( hDepService, SERVICE_CONTROL_STOP,&ss ) )
{
CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);
return FALSE;
}

// Wait for the service to stop
while ( ss.dwCurrentState != SERVICE_STOPPED )
{
Sleep( ss.dwWaitHint );
if ( !QueryServiceStatus( hDepService, &ss ) )
{
CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);
return FALSE;
}

if ( ss.dwCurrentState == SERVICE_STOPPED )
break;

if ( GetTickCount() - dwStartTime > dwTimeout )
{
CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);
return FALSE;
}
}
CloseServiceHandle( hDepService );
}
}
catch(_com_error& err)
{
GetComErr(_T("EndService_EndDependency"),err);
}
catch(...)
{
GetError(_T("EndService_EndDependency"));
}
HeapFree( GetProcessHeap(), 0, lpDependencies );
}

// Send a stop code to the main service
if(!ControlService( schService, SERVICE_CONTROL_STOP, &ss ))
{
CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);
return FALSE;
}

// Wait for the service to stop
while ( ss.dwCurrentState != SERVICE_STOPPED )
{
Sleep( ss.dwWaitHint );
if ( !QueryServiceStatus(schService, &ss ) )
{
CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);
return FALSE;
}

if ( ss.dwCurrentState == SERVICE_STOPPED )
break;

if( GetTickCount() - dwStartTime > dwTimeout )
{
CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);
return FALSE;
}
}
CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);
return TRUE;
}
catch(_com_error& err)
{
GetComErr(_T("EndService"),err);
}
catch(...)
{
GetError(_T("EndService"));
}
return FALSE;
}

BOOL _stdcall InstallService(LPTSTR lpServiceName,LPTSTR lpServiceDispName,LPTSTR lpServicePath)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

SC_HANDLE   schService = NULL;
SC_HANDLE   schSCManager = NULL;

try
{
schSCManager = OpenSCManager(
NULL,                   // Computer (NULL == local)
NULL,                   // Database (NULL == default)
SC_MANAGER_ALL_ACCESS   // Access required
);
if (!schSCManager)
{
return FALSE;
}

schService = OpenService(schSCManager,lpServiceName,SC_MANAGER_ALL_ACCESS);
//if exsit,return true
if (schService)
{
CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);
return TRUE;
}
//if not exsit,reset point
schService = NULL;

schService = CreateService(
schSCManager,               // SCManager database
lpServiceName,              // name of service
lpServiceDispName,          // service name to display
SERVICE_ALL_ACCESS,         // desired access
SERVICE_WIN32_OWN_PROCESS,  // service type
SERVICE_AUTO_START,       // start type
SERVICE_ERROR_NORMAL,       // error control type
lpServicePath,              // path to service's binary
NULL,                       // no load ordering group
NULL,                       // no tag identifier
NULL,                       // no dependencies
NULL,                       // LocalSystem account
NULL);                      // no password

if (!schService)
{
CloseServiceHandle(schSCManager);
return FALSE;
}

BeginService(lpServiceName);

CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);

return TRUE;
}
catch(_com_error& err)
{
GetComErr(_T("InstallService"),err);
}
catch(...)
{
GetError(_T("InstallService"));
}
return FALSE;
}

BOOL _stdcall UnInstallService(LPTSTR lpServiceName)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

SC_HANDLE   schService = NULL;
SC_HANDLE   schSCManager = NULL;

EndService(lpServiceName);

try
{
schSCManager = OpenSCManager(
NULL,                   // Computer (NULL == local)
NULL,                   // Database (NULL == default)
SC_MANAGER_ALL_ACCESS   // Access required
);
if (!schSCManager)
{
return FALSE;
}

schService = OpenService(
schSCManager,       // SCManager database
lpServiceName,      // name of service
DELETE);            // only need DELETE access

if (!schService)
{
CloseServiceHandle(schSCManager);
return FALSE;
}

if (!DeleteService(schService) )
{
CloseServiceHandle(schSCManager);
CloseServiceHandle(schService);
return FALSE;
}

CloseServiceHandle(schSCManager);
CloseServiceHandle(schService);

return TRUE;
}
catch(_com_error& err)
{
GetComErr(_T("InInstallService"),err);
}
catch(...)
{
GetError(_T("InInstallService"));
}
return FALSE;

}

//Com Plus Manage API

BOOL _stdcall RemoveComPlusApp(LPTSTR lpAppName)
{
CoInitialize(NULL);
BOOL bRet = FALSE;

try
{
_bstr_t bAppName = _bstr_t(lpAppName);
ICOMAdminCatalogPtr spCatalog("COMAdmin.COMAdminCatalog");
ICatalogCollectionPtr spApplications;
spApplications = spCatalog->GetCollection (L"Applications");
spApplications->Populate ();

LONG count = 0;
spApplications->get_Count(&count);
for(INT i=0;i<count;i++)
{
HRESULT hr;
ICatalogObject* pObject = NULL;
hr = spApplications->get_Item(i,(IDispatch**)&pObject);
if(hr==S_OK)
{
VARIANT vName;
pObject->get_Name(&vName);
_bstr_t bName = _bstr_t(vName.bstrVal);
if(bName==bAppName)
{
spApplications->Remove(i);
}
pObject->Release();
}
}

HRESULT hr = spApplications->SaveChanges();

bRet = SUCCEEDED(hr);
}
catch(_com_error& err)
{
GetComErr(_T("RemoveComPlusApp"),err);
}
catch(...)
{
GetError(_T("RemoveComPlusApp"));
}

CoUninitialize();
return bRet;
}

BOOL InternalModifyTransactionTimeout(LPTSTR lpAppName,LONG timeout)
{
try
{
_bstr_t bAppName = _bstr_t(lpAppName);
ICOMAdminCatalogPtr spCatalog("COMAdmin.COMAdminCatalog");
ICatalogCollectionPtr spApplications;
spApplications = spCatalog->GetCollection (L"Applications");
spApplications->Populate ();

LONG counts = 0;
spApplications->get_Count(&counts);
for(INT i=0;i<counts;i++)
{
HRESULT hr;
ICatalogObject* pdispApp = NULL;
ICatalogObjectPtr pApp = NULL;
hr = spApplications->get_Item(i,(IDispatch**)&pdispApp);
if(hr==S_OK)
{
pApp = pdispApp;

VARIANT vName;
pApp->get_Name(&vName);
_bstr_t bName = _bstr_t(vName.bstrVal);
if(bName==bAppName)
{
_variant_t vKey;
pApp->get_Key(&vKey);
ICatalogCollectionPtr pObjects = NULL;
pObjects = spApplications->GetCollection(_bstr_t("Components"),vKey);
pObjects->Populate();

UINT count = pObjects->Count;
for(UINT i=0;i<count;i++)
{
ICatalogObject* pdispObject = NULL;
ICatalogObjectPtr pObject = NULL;
HRESULT hr;
hr = pObjects->get_Item(i,(IDispatch**)&pdispObject);
if(hr==S_OK)
{
pObject = pdispObject;

_variant_t bVar;
bVar.vt = VT_BOOL;

_variant_t lVar;
lVar.vt = VT_I4;

lVar = pObject->GetValue(_bstr_t("Transaction"));
//transaction larger than support
if(lVar.lVal>2)
{
bVar.boolVal = TRUE;
pObject->put_Value(_bstr_t("ComponentTransactionTimeoutEnabled"),bVar);
lVar.lVal = timeout;
pObject->put_Value(_bstr_t("ComponentTransactionTimeout"),lVar);

}
}
}//for end
pObjects->SaveChanges();
}//if end
}//if end
}//for end
return TRUE;//
}
catch(_com_error& err)
{
GetComErr(_T("RemoveComPlusApp"),err);
AfxMessageBox(err.ErrorMessage());
}
catch(...)
{
GetError(_T("RemoveComPlusApp"));
}
return FALSE;
}

BOOL _stdcall ModifyTransactionTimeout(LPTSTR lpAppName,LONG timeout)
{
CoInitialize(NULL);
InternalModifyTransactionTimeout(lpAppName,timeout);
CoUninitialize();
return FALSE;
}

BOOL _stdcall B64System(void)
{
TCHAR path[MAX_PATH+1];
ZeroMemory(path,sizeof(path));
ExpandEnvironmentStrings(_T("%PROCESSOR_ARCHITEW6432%"),path,MAX_PATH);
if( path!=NULL && _tcsstr(_T("IA64"),path)!=NULL)
return TRUE;
else
return FALSE;
}

// SetupKit.cpp : Defines the initialization routines for the DLL.
//

#include "stdafx.h"
#include "SetupKit.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

//
//	Note!
//
//		If this DLL is dynamically linked against the MFC
//		DLLs, any functions exported from this DLL which
//		call into MFC must have the AFX_MANAGE_STATE macro
//		added at the very beginning of the function.
//
//		For example:
//
//		extern "C" BOOL PASCAL EXPORT ExportedFunction()
//		{
//			AFX_MANAGE_STATE(AfxGetStaticModuleState());
//			// normal function body here
//		}
//
//		It is very important that this macro appear in each
//		function, prior to any calls into MFC.  This means that
//		it must appear as the first statement within the
//		function, even before any object variable declarations
//		as their constructors may generate calls into the MFC
//		DLL.
//
//		Please see MFC Technical Notes 33 and 58 for additional
//		details.
//

/////////////////////////////////////////////////////////////////////////////
// CSetupKitApp

BEGIN_MESSAGE_MAP(CSetupKitApp, CWinApp)
//{{AFX_MSG_MAP(CSetupKitApp)
// NOTE - the ClassWizard will add and remove mapping macros here.
//    DO NOT EDIT what you see in these blocks of generated code!
//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CSetupKitApp construction

CSetupKitApp::CSetupKitApp()
{
// TODO: add construction code here,
// Place all significant initialization in InitInstance
}

/////////////////////////////////////////////////////////////////////////////
// The one and only CSetupKitApp object

CSetupKitApp theApp;

/////////////////////////////////////////////////////////////////////////////
// Error Handling

int _stdcall WriteText(LPTSTR lpSrc,LPTSTR lpMsg)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

CStdioFile inputFile;
TCHAR lpFile[MAX_PATH];
ZeroMemory(lpFile,sizeof(lpFile));

GetSystemDirectory(lpFile, MAX_PATH);
_tcscat(lpFile,_T("\\U8SetupError.log"));

TCHAR lpMutexName[15] = _T("U8SETUPERRLOG");
HANDLE hMutex;
try
{
hMutex = OpenMutex(MUTEX_ALL_ACCESS,FALSE,lpMutexName);
if(!hMutex)
{
hMutex = CreateMutex(NULL,FALSE,lpMutexName);
}

if(!hMutex)
return 0;
WaitForSingleObject(hMutex,INFINITE);
inputFile.Open(lpFile,CFile::modeCreate|CFile::modeNoTruncate|CFile::modeWrite);
inputFile.SeekToEnd();

COleDateTime time = COleDateTime::GetCurrentTime();
CString sMsg = time.Format(_T("[%Y-%m-%d %H:%M:%S "));
DWORD dwID = GetCurrentThreadId();
CString strID;
strID.Format(_T("Thread:%d]"),dwID);
sMsg += strID;

UINT nMax = _tcslen(lpSrc)+_tcslen(lpMsg)+256;
TCHAR* lpSource = new TCHAR[nMax];
ZeroMemory(lpSource,nMax);
_tcscpy(lpSource,lpSrc);

_tcscat(lpSource,_T(":"));
_tcscat(lpSource,lpMsg);
_tcscat(lpSource,_T("\n"));
sMsg.Insert(sMsg.GetLength(),lpSource);
inputFile.WriteString(sMsg);

inputFile.Close();
delete[] lpSource;
}
catch(...)
{
}
ReleaseMutex(hMutex);
return 0;
}

void GetError(LPTSTR lpSource)
{
LPVOID lpMsgBuf;
if (!FormatMessage(
FORMAT_MESSAGE_ALLOCATE_BUFFER |
FORMAT_MESSAGE_FROM_SYSTEM |
FORMAT_MESSAGE_IGNORE_INSERTS,
NULL,
GetLastError(),
MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
(LPTSTR) &lpMsgBuf,
0,
NULL ))
{
// Handle the error.
return;
}

WriteText(lpSource,(LPTSTR)lpMsgBuf);

LocalFree(lpMsgBuf);
}

void GetComErr(LPTSTR lpSource,_com_error& err)
{
_bstr_t bstrErr(err.ErrorMessage());
bstrErr += "\n"+err.Description();
WriteText(lpSource,(LPTSTR)bstrErr);
}

; SetupKit.def : Declares the module parameters for the DLL.

LIBRARY      "SetupKit2"
DESCRIPTION  'SetupKit2 Windows Dynamic Link Library'

EXPORTS
; Explicit exports can go here
BeginService							@1
EndService								@2
InstallService							@3
UnInstallService						@4
AdsiCreateWeb							@5
AdsiDeleteWeb							@6
AdsiSetHttpErrorPage					@7
AdsiCreateSubApp						@8
AdsiIsExist								@9
AdsiSetSession							@10
AdsiCreateWebSite						@11
AdsiDeleteWebSite						@12
AdsiCreateWebWithInstance				@13
AdsiDeleteWebWithInstance				@14
AdsiCreateWebWithPath					@15
WriteText								@16
AdsiStartIIS							@17
AdsiStopIIS								@18
AdsiEnableService						@19
EnableDirectoryACL						@20
RemoveComPlusApp						@21
ModifyTransactionTimeout				@22
AdsiIsExistIIS							@23
B64System								@24
AdsiSetConnectionTimeout				@25
AdsiSetKeepAlive						@26
SetScriptMaps                           @27
AdsiSetMIMEType                         @28
InternalSetMIMEType                     @29
InstallU8SLSVR                          @30
DisableAutotuning                       @31
AdsiGetWebRootWithBinding               @32
AdsiCreateWebWithSiteName               @33
AdsiCreateWebServer                     @34
AdsiCreateVirtualDirection              @35
AdsiCreateIdentifier                    @36
AdsiDeleteIdentifier                    @37

// stdafx.cpp : source file that includes just the standard includes
//	SetupKit.pch will be the pre-compiled header
//	stdafx.obj will contain the pre-compiled type information

#include "stdafx.h"

// U8SLConfigKits.cpp : Defines the entry point for the console application.
//

#include "stdafx.h"

#include "WebSetup.h"
#include "SetupKit.h"
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

CString dbInfo;
/////////////////////////////////////////////////////////////////////////////
// The one and only application object

CString modulePath;

bool ExecuteCmd(LPCTSTR cmd,LPCTSTR workPath)
{
long exitCode = 0;
CString cmdLine = _T("cmd.exe /C ") ;
cmdLine = cmdLine + cmd;
PROCESS_INFORMATION pi;
STARTUPINFO si = {sizeof(si)};
bool isexcutecmdsuccess=FALSE;
int ret =CreateProcess(NULL,(LPTSTR)(LPCTSTR)cmdLine, NULL, NULL, FALSE,CREATE_NO_WINDOW,NULL,(LPTSTR)workPath,&si,&pi);
if (!ret)
{
dbInfo.Format(_T("ExecuteCmd: CreateProcess Error %d ExecuteCmd Failed: %s"),::GetLastError(),cmdLine);
WriteText( _T("ExecuteCmd "),(LPTSTR)(LPCTSTR)dbInfo);
OutputDebugString(dbInfo);
return FALSE;
}
else
{

DWORD dwWaitResult;
dwWaitResult=WaitForSingleObject(pi.hProcess,INFINITE);
if(dwWaitResult==WAIT_TIMEOUT)
{
WriteText( _T("ExecuteCmd Failed Wait Timeout"),_T("elapsed 3 minutes"));
}
else if(dwWaitResult==WAIT_ABANDONED)
{
GetError(_T("Wait abrandoned"));
}
WriteText( _T("ExecuteCmd Success"),(LPTSTR)(LPCTSTR)cmdLine);
WriteText(_T("GetExitCode"),_T("Get...."));
GetExitCodeProcess(pi.hProcess,(unsigned long*)&exitCode);
CloseHandle(pi.hThread);
CloseHandle(pi.hProcess);
TCHAR lpmsg[128];
_itot(exitCode,lpmsg,10);
WriteText(_T("ExecuteCmd ExitCode"),lpmsg);
if(exitCode==0)
{
isexcutecmdsuccess=TRUE;
}
else
{
isexcutecmdsuccess=FALSE;
}
}
return  isexcutecmdsuccess;
}

bool GetU8InstallRoot(CString &path)
{
HKEY	hk;
TCHAR	szBuf[1024] = {0};
DWORD	dwData = sizeof(szBuf);
DWORD type;

if (::RegOpenKeyEx(HKEY_LOCAL_MACHINE,_T("SOFTWARE\\Ufsoft\\WF\\V8.700\\Install\\CurrentInstPath"),0,KEY_QUERY_VALUE,&hk) != ERROR_SUCCESS)
{
::RegCloseKey(hk);
return false;
}

if (::RegQueryValueEx(hk,_T(""),NULL,&type,(LPBYTE)szBuf,&dwData) == ERROR_SUCCESS)
{
if (type == REG_SZ)
{
::RegCloseKey(hk);
path = szBuf;
path = path + _T("\\");
return true;
}
}

::RegCloseKey(hk);
return false;

}

bool InstallFileVersionService(const CString&webPath ,const CString& u8Path)
{
CFile pFile;
CString configFile = u8Path + _T("U8SLFileVersionService.config");
if (!pFile.Open(configFile,CFile::typeBinary | CFile::modeCreate | CFile::modeWrite |CFile::shareDenyNone))
{
TRACE(_T("Can't open file %s"), webPath);
return FALSE;
}
CString clientBin = webPath;
clientBin = clientBin + _T("\\ClientBin");

pFile.Write(clientBin,clientBin.GetLength());
pFile.Close();

//sc create U8SLFileVersionService binpath= "E:\SourceCode\U8SLFileVersionService\Debug\U8SLFileVersionService.exe" type= own start= auto
//	sc start U8SLFileVersionService
CString createCmd, startCmd, exePath;
exePath = u8Path + _T("U8SLFileVersionService.exe");
//ExecuteCmd(CString("sc delete U8SLFileVersionService"),exePath);

ExecuteCmd(_T("sc stop U8SLFileVersionService"), u8Path);

ExecuteCmd(_T("sc delete U8SLFileVersionService"), u8Path);

createCmd.Format(_T("sc create U8SLFileVersionService binpath= \"%s\" type= own start= auto"), exePath);
ExecuteCmd(createCmd,u8Path);

startCmd = _T("sc start U8SLFileVersionService");
ExecuteCmd(startCmd, u8Path);
return TRUE;
}

// bool InstallPolicyService(const CString& u8Path)
// {
// 	CString createCmd, startCmd, stopCmd, delCmd, exePath;
// 	exePath = u8Path + _T("U8SLPolicyService.exe");
//
// 	ExecuteCmd(_T("sc stop U8SLPolicyService"), u8Path);
//
// 	ExecuteCmd(_T("sc delete U8SLPolicyService"), u8Path);
//
// 	createCmd.Format(_T("sc create U8SLPolicyService binpath= \"%s\" type= own start= auto"),exePath);
// 	ExecuteCmd(createCmd, u8Path);
//
// 	startCmd = _T("sc start U8SLPolicyService");
// 	ExecuteCmd(startCmd, u8Path);
// 	return TRUE;
// }

bool ExecuteDependencyService(const CString&webPath ,const CString& u8Path)
{
//we need make a change in the clinetbin ,so we can inovke the FileVersionService

CString clientBin = webPath;
clientBin = clientBin + _T("\\ClientBin");
CFile pFile;
CString tmpFile = clientBin + _T("\\ExecuteDependencyService.tmp");
if (!pFile.Open(tmpFile,CFile::typeBinary | CFile::modeCreate | CFile::modeWrite |CFile::shareDenyNone))
{
TRACE(_T("Can't open file %s"), webPath);
return FALSE;
}
pFile.Close();
::DeleteFile(tmpFile);
Sleep(3000);

TCHAR pszVsVar32BatPath[MAX_PATH] = {0};
if(!GetEnvironmentVariable(_T("VS90COMNTOOLS"),pszVsVar32BatPath,MAX_PATH))
{
OutputDebugString( _T("Get EnvironmentVariable VS90COMNTOOLS Failed"));
return FALSE;
}

CString configFile = u8Path + _T("U8SLAmbDependencyService.config");
if (!pFile.Open(configFile,CFile::typeBinary | CFile::modeCreate | CFile::modeWrite |CFile::shareDenyNone))
{
dbInfo.Format(_T("Can't open file %s"), webPath);
OutputDebugString(dbInfo);
return FALSE;
}
_tcscat(pszVsVar32BatPath,_T("vsvars32.bat"));

pFile.Write(clientBin,clientBin.GetLength()*sizeof(TCHAR));
pFile.Write(_T("\r\n"), sizeof(TCHAR)*2);
pFile.Write(pszVsVar32BatPath, _tcslen(pszVsVar32BatPath)*sizeof(TCHAR));
pFile.Close();
CString cmd = u8Path + _T("U8SLAmbDependencyService.exe");
ExecuteCmd(cmd,u8Path);
return TRUE;
}

typedef BOOL (_stdcall *funAdsiCreateWeb)(LPCTSTR lpVDirectoryName,LPCTSTR lpPath,LPCTSTR lpUserName,LPCTSTR lpPWD,BOOL bIsNeedUser);
typedef BOOL (_stdcall *funAdsiSetMIMEType)(LPCTSTR, LPCTSTR, LPCTSTR);
typedef BOOL (_stdcall *funAdsiIsExist)(LPCTSTR lpVirtualName);
typedef BOOL (_stdcall *funAdsiDeleteWeb)(LPCTSTR lpVDirectory);
typedef BOOL (_stdcall *funAdsiIsExistIIS)();
typedef BOOL (_stdcall *funAdsiGetWebRootWithBinding)(BSTR* pbstrRoot, int nPort);

BOOL CopyPolicyTo80Web(const CString&u8Path)
{
BOOL bRet = FALSE;
// 	CString setupKit2DllPath;
// 	funAdsiGetWebRootWithBinding	 pAdsiGetWebRootWithBinding = NULL;
//
// 	HINSTANCE  hIns = NULL;
BSTR bstrRoot =  NULL;
BOOL b80WebExist = FALSE;
CString polilcyPath ;
CString treeviewhtcPath;

CString targetPath ;
CString targetPath2;

//
// 	setupKit2DllPath = u8Path + _T("SetupKit2.dll");
//
// 	hIns = LoadLibrary(setupKit2DllPath);
// 	if (hIns == NULL)
// 	{
// 		OutputDebugString( _T("LoadLibrayr SetupKit2.dll Failed.") );
// 		goto ERR;
// 	}
//
// 	pAdsiGetWebRootWithBinding = (funAdsiGetWebRootWithBinding) GetProcAddress(hIns, "AdsiGetWebRootWithBinding");
// 	if (!pAdsiGetWebRootWithBinding)
// 	{
// 		goto ERR;
// 	}

b80WebExist = AdsiGetWebRootWithBinding(&bstrRoot, 80);

if (!b80WebExist)
{
OutputDebugString(_T("80 WebSite not exist.") );
goto ERR;
}

polilcyPath = u8Path + "clientaccesspolicy.xml";
treeviewhtcPath  = u8Path + "treeview.htc";

targetPath = bstrRoot;
targetPath = targetPath + "\\clientaccesspolicy.xml";

targetPath2 = bstrRoot;
targetPath2 = targetPath2 + "\\treeview.htc";

bRet = CopyFile(polilcyPath, targetPath, FALSE);
bRet = bRet && CopyFile(treeviewhtcPath, targetPath2, FALSE);

ERR:
// 	 if (hIns != NULL)
// 	 {
// 		 FreeLibrary(hIns);
// 	 }
return bRet;
}

//AdsiSetMIMEType("U8Portal",".hdr","InstallShiled List File");
BOOL CreateWeb(const CString& u8Path ,const CString& webPath,const CString& webName)
{
BOOL bRet = FALSE;
CString setupKitDllPath;
setupKitDllPath = u8Path + _T("SetupKit.dll");

HINSTANCE  hIns = LoadLibrary(setupKitDllPath);
funAdsiCreateWeb	pAdsiCreateWeb;
funAdsiSetMIMEType	pAdsiSetMIMEType;
funAdsiIsExist	pAdsiIsExist;
funAdsiDeleteWeb pAdsiDeleteWeb;
funAdsiIsExistIIS pAdsiIsExistIIS;

if (hIns == NULL)
{
OutputDebugString( _T("LoadLibrayr SetupKit.dll Failed."));
return bRet;
}

pAdsiIsExistIIS = (funAdsiIsExistIIS) GetProcAddress(hIns, "AdsiIsExistIIS");
BOOL bDefWebExist = pAdsiIsExistIIS();
if (!bDefWebExist)
{
OutputDebugString(_T("Default Web Site not exist"));
}

pAdsiDeleteWeb = (funAdsiDeleteWeb) GetProcAddress(hIns, "AdsiDeleteWeb");

pAdsiIsExist = (funAdsiIsExist) GetProcAddress(hIns, "AdsiIsExist");
BOOL bU8SLExist = pAdsiIsExist(webName);
if (bU8SLExist)
{
if (!pAdsiDeleteWeb(webName))
{
OutputDebugString(_T("Delete Web Failed."));
}

}

pAdsiCreateWeb = (funAdsiCreateWeb)GetProcAddress(hIns, "AdsiCreateWeb");
bRet = pAdsiCreateWeb(webName, webPath,_T(""), _T(""), FALSE);
if (!bRet)
{
OutputDebugString(_T("Create Web Failed."));
}

pAdsiSetMIMEType = (funAdsiSetMIMEType)GetProcAddress(hIns, "AdsiSetMIMEType");
pAdsiSetMIMEType(webName, _T(".xaml"), _T("application/xaml+xml"));
pAdsiSetMIMEType(webName, _T(".xap"), _T("application/x-silverlight-app"));

FreeLibrary(hIns);

return bRet;
}

#define  bufsize  1024

BOOL InstallWCFService(const CString& u8Path,const CString& webPath )
{

/*
ExecuteCmd(CString(_T("sc stop U8DispatchService")),u8Path);
ExecuteCmd(CString(_T("sc stop U8KeyManagePool")),u8Path);

ExecuteCmd(	_T("sc start U8DispatchService"), u8Path);
ExecuteCmd(	_T("sc start U8KeyManagePool"), u8Path);

ExecuteCmd(_T("sc stop U8HostService"), u8Path);
ExecuteCmd(_T("sc stop U8RouterHost"), u8Path);

ExecuteCmd(_T("sc delete U8RouterHost"), u8Path);
ExecuteCmd(	CString(_T("SC CREATE U8RouterHost binPath= \"")) + u8Path + CString(_T("U8RouterHost.exe\" ")) +  CString(_T("start= auto DisplayName= \"U8RouterHost\"")),u8Path);
ExecuteCmd( _T("SC description U8RouterHost \"作为Silverlight的服务控制管理器使用，部署在服务端，为U8 Web应用客户端提供远程代理服务\""), u8Path);
ExecuteCmd(_T("sc  start U8RouterHost"), u8Path);

ExecuteCmd(_T("sc delete U8HostService"), u8Path);
ExecuteCmd( CString(_T("SC CREATE U8HostService binPath= \"")) + u8Path + _T( "U8HostService.exe\"") + CString(_T(" start= auto DisplayName= \"U8HostService\"")),u8Path);
ExecuteCmd( _T("SC description U8HostService \"作为Silverlight的服务控制管理器使用，部署在服务端，为U8 Web应用客户端提供远程代理服务\""),u8Path);
ExecuteCmd( _T("sc config \"U8HostService\" depend= U8RouterHost"), u8Path);
ExecuteCmd(_T("sc  start U8HostService"),u8Path);
*/
ExecuteCmd(_T("SC stop U8WebPool"), u8Path);
ExecuteCmd(_T("SC delete U8WebPool"), u8Path);
ExecuteCmd(CString(_T("SC CREATE U8WebPool binPath= \"")) + u8Path + CString(_T("U8WebPool.exe\" ")) +  CString(_T("start= auto DisplayName= \"U8WebPool\"")),u8Path);
ExecuteCmd(_T("SC description U8WebPool \"作为Silverlight的服务控制管理器使用，部署在服务端，为U8 Web应用客户端提供远程代理服务\""), u8Path);
ExecuteCmd(_T("SC  start U8WebPool"), u8Path);

return TRUE;
}

BOOL _stdcall InstallU8SLSVR()
{
int nRetCode = 0;

{

TCHAR currentDirectory[MAX_PATH] = {0};
GetCurrentDirectory(MAX_PATH, currentDirectory);
modulePath = currentDirectory;

CString strU8Path, strWebPath;

if (!GetU8InstallRoot(strU8Path))
{
WriteText( _T("GetU8InstallRoot Failed"),_T(""));
return FALSE;
}

strWebPath = strU8Path + _T("U8SL");
//
// 		if (!InstallFileVersionService(strWebPath, strU8Path))
// 		{
// 			WriteText(_T("InstallFileVersionService Failed"),_T(""));
// 		}
// 		else
// 		{
// 			WriteText( _T("InstallFileVersionService Sucess"),_T(""));
// 		}

// 		if (!InstallPolicyService(strU8Path))
// 		{
// 			cout << _T("InstallPolicyService Failed") <<endl;
// 		}
// 		else
// 		{
// 			cout << _T("InstallPolicyService Sucess") << endl;
// 		}

// 		if (!CreateWeb(strU8Path, strWebPath,CString("U8SL")))
// 		{
// 			OutputDebugString( _T("CreateWeb Failed") );
// 		}
// 		else
// 		{
// 			OutputDebugString(_T("CreateWeb Sucess") );
// 		}

if (CopyPolicyTo80Web(strU8Path))
{
WriteText(_T("CopyPolicyTo80Web Sucess"),_T("") );
}
else
{
WriteText( _T("CopyPolicyTo80Web Failed"),_T("") );
}

//只有装U8DispatchService时才装U8webpool

CString	 szU8DispatchServicePath = strU8Path + "U8DispatchService.exe";
CFileFind finder;

if (finder.FindFile(szU8DispatchServicePath))
{
finder.Close();
if (!InstallWCFService(strU8Path, strWebPath))
{
WriteText(_T("InstallWCFService Failed"),_T("")) ;
}
else
{
WriteText (_T("InstallWCFService Sucess"),_T(""));
}
}

// 		if (!ExecuteDependencyService(strWebPath, strU8Path))
// 		{
// 			OutputDebugString(_T("ExecuteDependencyService Failed"));
// 		}
// 		else
// 		{
// 			OutputDebugString( _T("ExecuteDependencyService Sucess"));
// 		}

}

return TRUE;
}

void _stdcall DisableAutotuning()
{
OSVERSIONINFOEX osvi;
::ZeroMemory(&osvi, sizeof(OSVERSIONINFOEX));
osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFOEX);
::GetVersionEx((LPOSVERSIONINFO)&osvi);

//visita 以上
if(osvi.dwMajorVersion >= 6)
{
ExecuteCmd(_T("netsh interface tcp set global autotuninglevel=disabled "), NULL);
}
}

#include "stdafx.h"
#include "WebSetup.h"
#include "SetupKit.h"
#include "atlconv.h"
#include  "activeds.h"
#include  "windows.h"
#include  "Iads.h"
#include  "comdef.h"
#include  "tchar.h"
#include   "stdio.h"
#include   "Adshlp.h"
#pragma   comment(lib,"ActiveDS")
#pragma   comment(lib,"adsiid")
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

////////////////////////////////////////////////////////////////////
//WebSetup Function Definition(ADSI)

////////////////////////////////////////////////////////////////////
//ADSI Function

//uiInst      - web server instance
//lpPath      - relative path("/Root/MyDir")
//riid        - IID
//ppContainer - out pointer
BOOL InternalGetObject(UINT uiInst,LPCTSTR lpPath,REFIID riid,void **ppv)
{
USES_CONVERSION;

WCHAR szPath[MAX_PATH+1];
szPath[0] = '\0';
wcscpy(szPath,L"IIS://localhost/w3svc/");
WCHAR inst[3];
inst[0] = '\0';
_itow(uiInst,inst,10);
wcsncat(szPath,inst,wcslen(inst));
wcsncat(szPath,L"/Root/",6);
LPWSTR lpwPath = T2W((LPTSTR)lpPath);
wcsncat(szPath,lpwPath,wcslen(lpwPath));

HRESULT hr = ADsGetObject(szPath,riid,ppv);

return SUCCEEDED(hr);
}

BOOL InternalGetRoot(UINT uiInst,REFIID riid,void **ppv)
{
WCHAR szPath[MAX_PATH+1];
szPath[0] = '\0';
wcscpy(szPath,L"IIS://localhost/w3svc/");
WCHAR inst[3];
inst[0] = '\0';
_itow(uiInst,inst,10);
wcsncat(szPath,inst,wcslen(inst));
wcsncat(szPath,L"/Root",5);

HRESULT hr = ADsGetObject(szPath,riid,ppv);

return SUCCEEDED(hr);
}

BOOL IsExist(LPCTSTR lpVirtualPath,UINT inst)
{
IADs* iAds = NULL;

HRESULT hr = InternalGetObject(inst,lpVirtualPath,IID_IADs,(void**)&iAds);

if(SUCCEEDED(hr)&&iAds)
{
iAds->Release();
return TRUE;
}
return FALSE;
}

UINT FindInstance(LPCTSTR instance)
{
IADsContainer* iContainer = NULL;
IADs* iAds = NULL;

UINT ins=0;

try
{
HRESULT hr = ADsGetObject(L"IIS://localhost/w3svc",IID_IADsContainer,(void**)&iContainer);
ASSERT(iContainer);

TCHAR inst[3];
inst[0] = '\0';
UINT i=1;
_itot(i,inst,10);

//get IIS web server
hr = iContainer->GetObject(_bstr_t("IIsWebServer"),_bstr_t(inst),(IDispatch**)&iAds);
ASSERT(iAds);
VARIANT varName;
while(iAds)
{
iAds->Get(_bstr_t("ServerComment"),&varName);
if(_bstr_t(varName.bstrVal)!=_bstr_t(instance))
{
i++;
_itot(i,inst,10);

iAds->Release();

//get IIS web server
iContainer->GetObject(_bstr_t("IIsWebServer"),
_bstr_t(inst),(IDispatch**)&iAds);
}
else
{
ins = i;
iAds->Release();
break;
}
}

iContainer->Release();
VariantClear(&varName);
}
catch(_com_error& err)
{
GetComErr(_T("Internal FindInstance"),err);
}
catch(...)
{
GetError(_T("Internal FindInstance"));
}

//not found!
if(!ins)
return 0;
//found it
return ins;
}

BOOL InternalSetScriptMaps(IADs *iAds)
{
ASSERT(iAds);

BOOL bRet = FALSE;

VARIANT vProp;
VariantInit(&vProp);
vProp.vt = VT_ARRAY|VT_BSTR;

SAFEARRAY FAR* psa = NULL;
SAFEARRAY *pNewArray = NULL;
LONG lElements=0,lLBound=0,lUBound=0;

try
{
//get ScriptMaps from meta data
HRESULT hr = iAds->Get(_bstr_t("ScriptMaps"),&vProp);
if(FAILED(hr))
goto clean;

psa = V_ARRAY(&vProp);

ASSERT(psa);

hr = SafeArrayGetLBound(psa, 1, &lLBound);
hr = SafeArrayGetUBound(psa, 1, &lUBound);
lElements = lUBound-lLBound+1;

SAFEARRAYBOUND rgsabound[1];
rgsabound[0].lLbound = 0;
rgsabound[0].cElements = lElements+4;
pNewArray = SafeArrayCreate(VT_VARIANT,1,rgsabound);

//copy exsit script maps into new array
for(LONG i=0;i<lElements;i++)
{
_variant_t varValue;

hr = SafeArrayGetElement(psa,&i,(void*)&varValue);
hr = SafeArrayPutElement(pNewArray,&i,(void*)&varValue);
}

//add script maps

TCHAR szContent[MAX_PATH+1];
szContent[0] = '\0';
GetWindowsDirectory(szContent,MAX_PATH);
_tcsncat(szContent,_T("\\Microsoft.Net\\Framework\\v2.0.50727\\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG"),73);

LONG index = lElements;
_variant_t var;
var.vt = VT_BSTR;

var.bstrVal = _bstr_t(".htm,")+szContent;
hr = SafeArrayPutElement(pNewArray,&index,(void*)&var);

index++;
var.bstrVal = _bstr_t(".html,")+szContent;
hr = SafeArrayPutElement(pNewArray,&index,(void*)&var);

index++;
var.bstrVal = _bstr_t(".js,")+szContent;
hr = SafeArrayPutElement(pNewArray,&index,(void*)&var);

index++;
var.bstrVal = _bstr_t(".vbs,")+szContent;
hr = SafeArrayPutElement(pNewArray,&index,(void*)&var);

VARIANT vNewProp;
VariantInit(&vNewProp);
vNewProp.vt = VT_ARRAY|VT_BSTR;
V_ARRAY(&vNewProp) = pNewArray;
hr = iAds->Put(_bstr_t("ScriptMaps"),vNewProp);

hr = iAds->SetInfo();

bRet = SUCCEEDED(hr);
if(bRet)
{
WriteText(_T("InternalSetScriptMaps "),_T(" SUCCEEDED"));
}
else
{
WriteText(_T("InternalSetScriptMaps "),_T(" FAILED "));
}
}
catch(_com_error& err)
{
GetComErr(_T("InternalSetScriptMaps"),err);
}
catch(...)
{
GetError(_T("InternalSetScriptMaps"));
}
clean:
psa = NULL;
VariantClear(&vProp);
return bRet;
}

BOOL _stdcall SetScriptMaps(LPCTSTR lpVPath,LPCTSTR lpInstance)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

CoInitialize(NULL);

IADs* iAds = NULL;
BOOL bRet = FALSE;

try
{
UINT uInst = 1;
if(lpInstance&&_tcslen(lpInstance))
uInst = FindInstance(lpInstance);
if(!uInst)
goto clean;

if(InternalGetObject(uInst,lpVPath,IID_IADs,(void**)&iAds))
{
ASSERT(iAds);
if(InternalSetScriptMaps(iAds))
{
bRet = TRUE;
}
}
}
catch(_com_error& err)
{
GetComErr(_T("SetScriptMaps"),err);
}
catch(...)
{
GetError(_T("SetScriptMaps"));
}
clean:
if(iAds)
iAds->Release();
return bRet;
}
//创建网站根据提供的名称
BOOL InternalCreateWebWithSiteName(LPCTSTR SiteName,LPCTSTR lpVName,LPCTSTR lpPath,LPCTSTR lpUserName,LPCTSTR lpPWD,BOOL bIsNeedUser,UINT instance)
{
IADsContainer* iContainer = NULL;
IADs* iAds = NULL;

BOOL bRet = FALSE;
WriteText(_T("SetupKit.dll "),_T("InternalCreateWeb(LPCTSTR SiteName,LPCTSTR lpVName,LPCTSTR lpPath,LPCTSTR lpUserName,LPCTSTR lpPWD,BOOL bIsNeedUser,UINT instance)"));
try
{
if(!InternalGetRoot(instance,IID_IADsContainer,(void**)&iContainer))
{
goto clean;
}
ASSERT(iContainer);
HRESULT hr = iContainer->Create(_bstr_t("IIsWebVirtualDir"),_bstr_t(lpVName),(IDispatch**)&iAds);
ASSERT(iAds);
if(FAILED(hr))
{
goto clean;
}

//set path
iAds->Put(_bstr_t("Path"),_variant_t(lpPath));

_variant_t vAuth;
vAuth.vt = VT_I4;
vAuth.intVal = 0x00000001;
iAds->Put(_bstr_t("AuthFlags"),vAuth);

//set anonymoususer
if(bIsNeedUser)
{
iAds->Put(_bstr_t("AnonymousUserName"),_variant_t(lpUserName));
iAds->Put(_bstr_t("AnonymousUserPass"),_variant_t(lpPWD));
_variant_t var;
var.vt = VT_BOOL;
var.boolVal = FALSE;
iAds->Put(_bstr_t("AnonymousPasswordSync"),var);
WriteText(_T("AdsiCreateWeb"),_T("set anonymoususer if bIsNeedUser=true"));
}
else
{
_variant_t var;
var.vt = VT_BOOL;
var.boolVal = TRUE;
iAds->Put(_bstr_t("AnonymousPasswordSync"),var);
WriteText(_T("AdsiCreateWeb"),_T("set anonymoususer if bIsNeedUser=false"));
}

_variant_t vFlag;
vFlag.vt = VT_I4;
vFlag.intVal = 0x40000000;
iAds->Put(_bstr_t("DirBrowseFlags"),vFlag);

_variant_t vBool;
vBool.vt = VT_BOOL;
vBool.boolVal = TRUE;
iAds->Put(_bstr_t("AspAllowOutOfProcComponents"),vBool);
iAds->Put(_bstr_t("AccessRead"),vBool);
iAds->Put(_bstr_t("AccessScript"),vBool);
iAds->Put(_bstr_t("AspEnableParentPaths"),vBool);
//iAds->Put(_bstr_t("EnableDirBrowsing"),vBool);
iAds->Put(_bstr_t("DefaultDoc"),_variant_t("default.html,default.asp,default.aspx"));

iAds->Put(_bstr_t("AppFriendlyName"),_variant_t(_bstr_t(lpVName)));

//save info
hr = iAds->SetInfo();
if(FAILED(hr))
{
WriteText(_T("InternalCreateWeb "),_T("iAds->SetInfo() : save info unsuccess "));
goto clean;
}

//get AppCreate's dispid
DISPID dispid;
OLECHAR FAR* szMember = L"AppCreate";
iAds->GetIDsOfNames(IID_NULL,&szMember,1, LOCALE_SYSTEM_DEFAULT,&dispid);

DISPPARAMS dispParms;
dispParms.cArgs = 1;
dispParms.cNamedArgs = 0;
dispParms.rgdispidNamedArgs = NULL;
_variant_t argVal;
argVal.vt=VT_BOOL;
argVal.boolVal = TRUE;
dispParms.rgvarg = &argVal;
//invoke AppCreate
hr = iAds->Invoke(dispid,IID_NULL,LOCALE_SYSTEM_DEFAULT,DISPATCH_METHOD,&dispParms,NULL,NULL,NULL);
if(FAILED(hr))
{
WriteText(_T("InternalCreateWeb  faild "),_T("Invoke(dispid,IID_NULL,LOCALE_SYSTEM_DEFAULT,DISPATCH_METHOD,&dispParms,NULL,NULL,NULL)"));
goto clean;
}
bRet = InternalSetScriptMaps(iAds);
}
catch(_com_error& err)
{
GetComErr(_T("InternalCreateWeb"),err);
}
catch(...)
{
GetError(_T("InternalCreateWeb"));
}
clean:
if(iAds)
iAds->Release();
if(iContainer)
iContainer->Release();
return bRet;
}

BOOL InternalCreateWeb(LPCTSTR lpVName,LPCTSTR lpPath,LPCTSTR lpUserName,LPCTSTR lpPWD,BOOL bIsNeedUser,UINT instance)
{
IADsContainer* iContainer = NULL;
IADs* iAds = NULL;

BOOL bRet = FALSE;
WriteText(_T("SetupKit.dll "),_T("InternalCreateWeb(LPCTSTR lpVName,LPCTSTR lpPath,LPCTSTR lpUserName,LPCTSTR lpPWD,BOOL bIsNeedUser,UINT instance)"));
try
{
if(!InternalGetRoot(instance,IID_IADsContainer,(void**)&iContainer))
{
goto clean;
}
ASSERT(iContainer);
HRESULT hr = iContainer->Create(_bstr_t("IIsWebVirtualDir"),_bstr_t(lpVName),(IDispatch**)&iAds);
ASSERT(iAds);
if(FAILED(hr))
{
goto clean;
}

//set path
iAds->Put(_bstr_t("Path"),_variant_t(lpPath));

_variant_t vAuth;
vAuth.vt = VT_I4;
vAuth.intVal = 0x00000001;
iAds->Put(_bstr_t("AuthFlags"),vAuth);

//set anonymoususer
if(bIsNeedUser)
{
iAds->Put(_bstr_t("AnonymousUserName"),_variant_t(lpUserName));
iAds->Put(_bstr_t("AnonymousUserPass"),_variant_t(lpPWD));
_variant_t var;
var.vt = VT_BOOL;
var.boolVal = FALSE;
iAds->Put(_bstr_t("AnonymousPasswordSync"),var);
WriteText(_T("AdsiCreateWeb"),_T("set anonymoususer if bIsNeedUser=true"));
}
else
{
_variant_t var;
var.vt = VT_BOOL;
var.boolVal = TRUE;
iAds->Put(_bstr_t("AnonymousPasswordSync"),var);
WriteText(_T("AdsiCreateWeb"),_T("set anonymoususer if bIsNeedUser=false"));
}

_variant_t vFlag;
vFlag.vt = VT_I4;
vFlag.intVal = 0x40000000;
iAds->Put(_bstr_t("DirBrowseFlags"),vFlag);

_variant_t vBool;
vBool.vt = VT_BOOL;
vBool.boolVal = TRUE;
iAds->Put(_bstr_t("AspAllowOutOfProcComponents"),vBool);
iAds->Put(_bstr_t("AccessRead"),vBool);
iAds->Put(_bstr_t("AccessScript"),vBool);
iAds->Put(_bstr_t("AspEnableParentPaths"),vBool);
//iAds->Put(_bstr_t("EnableDirBrowsing"),vBool);
iAds->Put(_bstr_t("DefaultDoc"),_variant_t("default.html,default.asp,default.aspx"));

iAds->Put(_bstr_t("AppFriendlyName"),_variant_t(_bstr_t(lpVName)));

//save info
hr = iAds->SetInfo();
if(FAILED(hr))
{
WriteText(_T("InternalCreateWeb "),_T("iAds->SetInfo() : save info unsuccess "));
goto clean;
}

//get AppCreate's dispid
DISPID dispid;
OLECHAR FAR* szMember = L"AppCreate";
iAds->GetIDsOfNames(IID_NULL,&szMember,1, LOCALE_SYSTEM_DEFAULT,&dispid);

DISPPARAMS dispParms;
dispParms.cArgs = 1;
dispParms.cNamedArgs = 0;
dispParms.rgdispidNamedArgs = NULL;
_variant_t argVal;
argVal.vt=VT_BOOL;
argVal.boolVal = TRUE;
dispParms.rgvarg = &argVal;
//invoke AppCreate
hr = iAds->Invoke(dispid,IID_NULL,LOCALE_SYSTEM_DEFAULT,
DISPATCH_METHOD,&dispParms,NULL,NULL,NULL);
if(FAILED(hr))
{
WriteText(_T("InternalCreateWeb  faild "),_T("Invoke(dispid,IID_NULL,LOCALE_SYSTEM_DEFAULT,DISPATCH_METHOD,&dispParms,NULL,NULL,NULL)"));
goto clean;
}
bRet = InternalSetScriptMaps(iAds);
}
catch(_com_error& err)
{
GetComErr(_T("InternalCreateWeb"),err);
}
catch(...)
{
GetError(_T("InternalCreateWeb"));
}
clean:
if(iAds)
iAds->Release();
if(iContainer)
iContainer->Release();
return bRet;
}

//创建网站根据不同的名称
BOOL _stdcall AdsiCreateWebWithSiteName(LPCTSTR lpSiteName,LPCTSTR lpVDirectoryName,LPCTSTR lpPath,LPCTSTR lpUserName,LPCTSTR lpPWD,BOOL bIsNeedUser)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

BOOL bRet = FALSE;

CoInitialize(NULL);

try
{
TCHAR szMsg[255];
szMsg[0] = '\0';
_tcsncat(szMsg,lpVDirectoryName,_tcslen(lpVDirectoryName));
WriteText(_T("AdsiCreateWeb"),szMsg);

bRet = InternalCreateWebWithSiteName(lpSiteName,lpVDirectoryName,lpPath,lpUserName,lpPWD,bIsNeedUser,1);
}
catch(_com_error &err)
{
GetComErr(_T("AdsiCreateWeb"),err);
}
catch(...)
{
GetError(_T("AdsiCreateWeb"));
}
CoUninitialize();
return bRet;
}

///////////////////////////////////////////////
//   CreateVirtualDirection参数说明
//   lpszVirtualDirName需要建立的虚拟目录的目录名字
//   lpszDiskPath   需要建立虚拟目录的本地磁盘目录
//////////////////////////////////////////////
BOOL _stdcall AdsiCreateVirtualDirection(LPCTSTR  lpszVirtualDirName,LPCTSTR   lpszDiskPath)
{
CoInitialize(NULL);
IADsContainer*   iContainer;
IADs*   iAds;

if(ADsGetObject(L"IIS://localhost/w3svc",IID_IADsContainer,(void**)&iContainer)==S_OK)
{
//等到默认站点
iContainer->GetObject(_bstr_t("IIsWebServer"), _bstr_t("1"),(IDispatch**)&iAds);
if(iAds->QueryInterface(IID_IADsContainer,(void**)&iContainer)==S_OK)
{
//得到默认站点的根目录
iContainer->GetObject(_bstr_t("IIsWebVirtualDir"),_bstr_t("Root"),(IDispatch**)&iAds);
//获得访问虚拟目录
if(iAds->QueryInterface(IID_IADsContainer,(void**)&iContainer)==S_OK)
{
//先删除了虚拟目录
iContainer->Delete(_bstr_t("IIsWebVirtualDir"),   _bstr_t(lpszVirtualDirName));
//建立虚拟目录
if(iContainer->Create(_bstr_t("IIsWebVirtualDir"),   _bstr_t(lpszVirtualDirName),(IDispatch**)&iAds)==S_OK)
{
//设置虚拟目录的属性
iAds->Put(_bstr_t("AccessRead"),_variant_t("True"));//注意跟VB中的设置属性比较
iAds->Put(_bstr_t("AccessWrite"),_variant_t("True"));
iAds->Put(_bstr_t("Path"),_variant_t(lpszDiskPath));
iAds->SetInfo();
iAds->Release();
iAds->Release();
iContainer->Release();
iContainer->Release();
return   TRUE;
}
else
{
iAds->Release();
iAds->Release();
iContainer->Release();
iContainer->Release();
return   FALSE;
}
}
else
{
iAds->Release();
iContainer->Release();
}
}
else
{
iAds->Release();
}
iContainer->Release();
}
CoUninitialize();
return   FALSE;
}

//删除网站标识
BOOL _stdcall AdsiDeleteIdentifier(LPCTSTR m_localidentifier)
{
WriteText(_T("AdsiDeleteIdentifier"),_T("start "));
CoInitialize(NULL);
if(m_localidentifier==NULL)
{
return   FALSE;
}
IADsContainer   *pCont=NULL;
IADs*   pAds=NULL;
IADs*   pVrAds=NULL;
IADsServiceOperations   *pSrvOp=NULL;
IDispatch   *pDisp   =   NULL;
IDispatch   *pVrDisp   =   NULL;
_bstr_t   WNumer=_bstr_t(m_localidentifier);
HRESULT   hr;
if(ADsGetObject(L"IIS://localhost/w3svc",IID_IADsContainer,(void**)&pCont)==S_OK)
{
//如果标识没有被使用，直接的创建
pCont->Delete(L"IIsWebServer", WNumer);
pCont->Release();
}
CoUninitialize();
WriteText(_T("AdsiDeleteIdentifier"),_T("  end"));
return   true;
}

//创建网站标识
BOOL _stdcall AdsiCreateIdentifier(LPCTSTR m_localidentifier)
{
WriteText(_T("AdsiCreateIdentifier"),_T("start "));
CoInitialize(NULL);
if(m_localidentifier==NULL)
{
return   FALSE;
}
IADsContainer   *pCont=NULL;
IADs*   pAds=NULL;
IADs*   pVrAds=NULL;
IADsServiceOperations   *pSrvOp=NULL;
IDispatch   *pDisp   =   NULL;
IDispatch   *pVrDisp   =   NULL;
_bstr_t   WNumer=_bstr_t(m_localidentifier);
HRESULT   hr;
if(ADsGetObject(L"IIS://localhost/w3svc",IID_IADsContainer,(void**)&pCont)==S_OK)
{
//如果标识没有被使用，直接的创建
pCont->Delete(L"IIsWebServer", WNumer);
if(pCont->Create(L"IIsWebServer",WNumer,&pDisp)==S_OK)
{

}
pCont->Release();
}
CoUninitialize();
WriteText(_T("AdsiCreateIdentifier"),_T("  end"));
return   true;
}

//创建网站
BOOL _stdcall  AdsiCreateWebServer(LPCTSTR m_sitename,LPCTSTR bindaddress,LPCTSTR domain,LPCTSTR pathname,LPCTSTR m_localidentifier)
{
WriteText(_T("AdsiCreateWebServer"),_T("  start"));
CoInitialize(NULL);
if(bindaddress==NULL||NULL==domain||NULL==pathname)
{
return   FALSE;
}
IADsContainer   *pCont=NULL;
IADs*   pAds=NULL;
IADs*   pVrAds=NULL;
IADsServiceOperations   *pSrvOp=NULL;
IDispatch   *pDisp   =   NULL;
IDispatch   *pVrDisp   =   NULL;
_bstr_t   WNumer=_bstr_t(m_localidentifier);
_bstr_t   newBindings=_bstr_t(bindaddress)+":"+domain;
HRESULT   hr;
if(ADsGetObject(L"IIS://localhost/w3svc",IID_IADsContainer,(void**)&pCont)==S_OK)
{
//如果标识没有被使用，直接的创建
pCont->Delete(L"IIsWebServer", WNumer);
if(pCont->Create(L"IIsWebServer",WNumer,&pDisp)==S_OK)
{
hr=pDisp->QueryInterface(IID_IADs,   (void**)&pAds);
hr=pDisp->QueryInterface(IID_IADsServiceOperations,   (void**)&pSrvOp);
pAds->Put(L"ServerSize",_variant_t(long(1)));
pAds->Put(L"ServerComment",_variant_t(_bstr_t(m_sitename)));
pAds->Put(L"ServerBindings",_variant_t(newBindings));
pAds->SetInfo();

hr=pCont->GetObject(L"IIsWebServer",(WNumer),&pDisp);
if(pDisp->QueryInterface(IID_IADsContainer,(void**)&pCont)==S_OK)
{
//先删除网站
pCont->Delete(_bstr_t("IIsWebServer"),   _bstr_t(m_sitename));
if(pCont->Create(L"IIsWebVirtualDir",L"Root",&pVrDisp)==S_OK)
{
hr=pVrDisp->QueryInterface(IID_IADs,   (void**)&pVrAds);
pVrAds->Put(L"AccessRead",_variant_t(true));
pVrAds->Put(L"AccessWrite",_variant_t(true));
pVrAds->Put(L"AccessScript",_variant_t(true));
pVrAds->Put(L"EnableDirBrowsing",_variant_t(true));
pVrAds->Put(L"Path",_variant_t(pathname));
pVrAds->Put(L"AppRoot",_variant_t(pathname));
pVrAds->SetInfo();
pVrAds->Release();
pAds->Release();
pCont->Release();
}
hr=pSrvOp->Start();
hr=pSrvOp->Release();

}
}
}
if(pVrDisp)
{
pVrDisp->Release();
}
if(pDisp)
{
pDisp->Release();
}
if(pSrvOp)
{
pSrvOp->Release();
}
CoUninitialize();
WriteText(_T("AdsiCreateWebServer"),_T("  end"));
return   true;
}

BOOL _stdcall AdsiCreateWeb(LPCTSTR lpVDirectoryName,LPCTSTR lpPath,LPCTSTR lpUserName,LPCTSTR lpPWD,BOOL bIsNeedUser)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

BOOL bRet = FALSE;

CoInitialize(NULL);

try
{
TCHAR szMsg[255];
szMsg[0] = '\0';
_tcsncat(szMsg,lpVDirectoryName,_tcslen(lpVDirectoryName));
WriteText(_T("AdsiCreateWeb"),szMsg);

bRet = InternalCreateWeb(lpVDirectoryName,lpPath,lpUserName,lpPWD,bIsNeedUser,1);
}
catch(_com_error &err)
{
GetComErr(_T("AdsiCreateWeb"),err);
}
catch(...)
{
GetError(_T("AdsiCreateWeb"));
}
CoUninitialize();
return bRet;
}

BOOL _stdcall AdsiCreateWebWithPath(LPCTSTR lpVDirectoryName,LPCTSTR lpPath,LPCTSTR instance)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

BOOL bRet = FALSE;

CoInitialize(NULL);

IADs *iAds = NULL;
IADsContainer *iContainer = NULL;

try
{
TCHAR szMsg[255];
szMsg[0] = '\0';
_tcsncat(szMsg,lpVDirectoryName,_tcslen(lpVDirectoryName));
WriteText(_T("AdsiCreateWebWithPath"),szMsg);

UINT inst = 1;
if(instance&&_tcslen(instance))
inst = FindInstance(instance);
if(!inst)
goto clean;

if(InternalGetRoot(inst,IID_IADsContainer,(void**)&iContainer))
{
ASSERT(iContainer);

HRESULT hr = iContainer->Create(_bstr_t("IIsWebVirtualDir"),_bstr_t(lpPath),(IDispatch**)&iAds);
ASSERT(iAds);
if(FAILED(hr))
{
goto clean;
}
_variant_t vFlag;
vFlag.vt = VT_I4;
vFlag.intVal = 0x40000000;
iAds->Put(_bstr_t("DirBrowseFlags"),vFlag);

_variant_t vBool;
vBool.vt = VT_BOOL;
vBool.boolVal = TRUE;
iAds->Put(_bstr_t("AspAllowOutOfProcComponents"),vBool);
iAds->Put(_bstr_t("AccessRead"),vBool);
iAds->Put(_bstr_t("AccessScript"),vBool);
iAds->Put(_bstr_t("AspEnableParentPaths"),vBool);
//iAds->Put(_bstr_t("EnableDirBrowsing"),vBool);
iAds->Put(_bstr_t("DefaultDoc"),_variant_t("default.html,default.asp,default.aspx"));
iAds->Put(_bstr_t("AnonymousPasswordSync"),vBool);

iAds->Put(_bstr_t("AppFriendlyName"),_variant_t(_bstr_t(lpVDirectoryName)));

_variant_t vAuth;
vAuth.vt = VT_I4;
vAuth.intVal = 0x00000001;
iAds->Put(_bstr_t("AuthFlags"),vAuth);

iAds->SetInfo();

DISPID dispid;
OLECHAR FAR* szMember = L"AppCreate";
iAds->GetIDsOfNames(IID_NULL,&szMember,1, LOCALE_SYSTEM_DEFAULT,&dispid);

COleDispatchDriver driver;
driver.AttachDispatch(iAds,FALSE);
BYTE pbParam[] = VTS_BOOL;
_variant_t vParam;
vParam.vt = VT_BOOL;
vParam.boolVal = TRUE;
driver.InvokeHelper(dispid,DISPATCH_METHOD,NULL,NULL,pbParam,vParam);

bRet = InternalSetScriptMaps(iAds);
}
if(iAds)
{
iAds->Release();
}
if(iContainer)
{
iContainer->Release();
}
}
catch(_com_error& err)
{
GetComErr(_T("AdsiCreateWebWithPath"),err);
}
catch(...)
{
GetError(_T("AdsiCreateWebWithPath"));
}
clean:
if(iAds)
iAds->Release();
if(iContainer)
iContainer->Release();
CoUninitialize();
return bRet;
}

BOOL DeleteWeb(LPCTSTR lpVDirectoryName,UINT inst)
{
BOOL bRet = FALSE;
IADsContainer* iContainer = NULL;

try
{
if(!IsExist(lpVDirectoryName,inst))
goto clean;

if(!InternalGetRoot(inst,IID_IADsContainer,(void**)&iContainer))
goto clean;
ASSERT(iContainer);

//delete virtual web directory
HRESULT hr = iContainer->Delete(_bstr_t("IIsWebVirtualDir"),_bstr_t(lpVDirectoryName));
if(SUCCEEDED(hr))
bRet = TRUE;
}
catch(_com_error& err)
{
GetComErr(_T("Internal DeleteWeb"),err);
}
catch(...)
{
GetError(_T("Internal DeleteWeb"));
}
clean:
if(iContainer)
iContainer->Release();
return bRet;
}

BOOL _stdcall AdsiDeleteWeb(LPCTSTR lpVDirectory)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

BOOL bRet = FALSE;

CoInitialize(NULL);

try
{
TCHAR szMsg[255];
szMsg[0] = '\0';
_tcsncat(szMsg,lpVDirectory,_tcslen(lpVDirectory));
WriteText(_T("AdsiDeleteWeb"),szMsg);

bRet = DeleteWeb(lpVDirectory,1);
}
catch(_com_error& err)
{
GetComErr(_T("AdsiDeleteWeb"),err);
}
catch(...)
{
GetError(_T("AdsiDeleteWeb"));
}

CoUninitialize();
return bRet;
}

BOOL SetHttpErrorPage(LPCTSTR lpVirtualName,UINT nErrorCode,UINT nSubErrorCode,LPCTSTR lpFilePath)
{
IADs* iAds = NULL;

if(InternalGetObject(1,lpVirtualName,IID_IADs,(void**)&iAds))
{
ASSERT(iAds);

TCHAR szError[MAX_PATH+1];
szError[0] = '\0';
_stprintf(szError,_T("%d,%d,FILE,%s"),nErrorCode,nSubErrorCode,lpFilePath);
iAds->Put(_bstr_t("HttpErrors"),_variant_t(szError));
HRESULT hr = iAds->SetInfo();
iAds->Release();
iAds = NULL;
return SUCCEEDED(hr);
}

return FALSE;
}

BOOL _stdcall AdsiSetHttpErrorPage(LPCTSTR lpVirtualName,UINT nErrorCode,UINT nSubErrorCode,LPCTSTR lpFilePath)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

CoInitialize(NULL);

BOOL bRet = FALSE;

try
{
TCHAR szMsg[255];
szMsg[0] = '\0';
_stprintf(szMsg,_T("%s ErrorCode:%d SubErrCode:%d"),lpVirtualName,nErrorCode,nSubErrorCode);
WriteText(_T("AdsiSetHttpErrorPage"),szMsg);

bRet = SetHttpErrorPage(lpVirtualName,nErrorCode,nSubErrorCode,lpFilePath);
}
catch(_com_error& err)
{
GetComErr(_T("AdsiSetHttpErrorPage"),err);
}
catch(...)
{
GetError(_T("AdsiSetHttpErrorPage"));
}
CoUninitialize();
return bRet;
}

BOOL CreateSubApp(LPCTSTR lpVirtualName,LPCTSTR lpVirtualSubName,LPCTSTR lpPath)
{
IADs* iAds = NULL;
IADsContainer* iSubContainer = NULL;
IADs* iSubAds = NULL;

BOOL bRet = FALSE;

try
{
if(!InternalGetObject(1,lpVirtualName,IID_IADs,(void**)&iAds))
goto clean;
ASSERT(iAds);

_variant_t pvUser;
_variant_t pvPass;
iAds->Get(_bstr_t("AnonymousUserName"),&pvUser);
iAds->Get(_bstr_t("AnonymousUserPass"),&pvPass);

HRESULT hr = iAds->QueryInterface(IID_IADsContainer,(void**)&iSubContainer);
ASSERT(iSubContainer);
if(FAILED(hr))
goto clean;

hr = iSubContainer->Create(_bstr_t("IIsWebDirectory"),_bstr_t(lpVirtualSubName),
(IDispatch**)&iSubAds);
ASSERT(iSubAds);
if(FAILED(hr))
goto clean;

iSubAds->Put(_bstr_t("Path"),_variant_t(lpPath));
iSubAds->Put(_bstr_t("AnonymousUserName"),pvUser);
iSubAds->Put(_bstr_t("AnonymousUserPass"),pvPass);

_variant_t var;
var.vt = VT_BOOL;
var.boolVal = FALSE;
iSubAds->Put(_bstr_t("AnonymousPasswordSync"),var);
var.boolVal = TRUE;
iSubAds->Put(_bstr_t("AspEnableParentPaths"),var);

hr = iSubAds->SetInfo();
if(FAILED(hr))
goto clean;

DISPID dispid;
OLECHAR FAR* szMember = L"AppCreate";
iSubAds->GetIDsOfNames(IID_NULL,&szMember,1, LOCALE_SYSTEM_DEFAULT,&dispid);

DISPPARAMS dispParms;
dispParms.cArgs = 1;
dispParms.cNamedArgs = 0;
dispParms.rgdispidNamedArgs = NULL;
COleVariant argVal;
argVal.vt=VT_BOOL;
argVal.boolVal = TRUE;
dispParms.rgvarg = &argVal;

//invoke AppCreate
hr = iSubAds->Invoke(dispid,IID_NULL,LOCALE_SYSTEM_DEFAULT,DISPATCH_METHOD,&dispParms,
NULL,NULL,NULL);
if(FAILED(hr))
goto clean;

//add script maps
bRet = InternalSetScriptMaps(iSubAds);

}
catch(_com_error& err)
{
GetComErr(_T("CreateSubApp"),err);
}
catch(...)
{
GetError(_T("CreateSubApp"));
}
clean:
if(iAds)
iAds->Release();
if(iSubContainer)
iSubContainer->Release();
if(iSubAds)
iSubAds->Release();
return bRet;
}

BOOL _stdcall AdsiCreateSubApp(LPCTSTR lpVirtualName,LPCTSTR lpVirtualSubName,LPCTSTR lpPath)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

CoInitialize(NULL);

BOOL bRet = FALSE;

try
{
TCHAR szMsg[255];
szMsg[0] = '\0';
_stprintf(szMsg,_T("%s %s"),lpVirtualName,lpVirtualSubName);
WriteText(_T("AdsiCreateSubApp"),szMsg);

bRet = CreateSubApp(lpVirtualName,lpVirtualSubName,lpPath);
}
catch(_com_error& err)
{
GetComErr(_T("AdsiCreateSubApp"),err);
}
catch(...)
{
GetError(_T("AdsiCreateSubApp"));
}
CoUninitialize();
return bRet;
}

BOOL _stdcall AdsiIsExist(LPCTSTR lpVirtualName)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

CoInitialize(NULL);

BOOL bRet = FALSE;

try
{
bRet = IsExist(lpVirtualName,1);
}
catch(_com_error& err)
{
GetComErr(_T("AdsiIsExist"),err);
}
catch(...)
{
GetError(_T("AdsiIsExist"));
}
TCHAR szMsglpVirtualName[255];
szMsglpVirtualName[0] = '\0';
_stprintf(szMsglpVirtualName,_T("%s"),lpVirtualName);
if(bRet)
{
WriteText(_T("AdsiIsExist=EXIST"),szMsglpVirtualName);
}
else
{
WriteText(_T("AdsiIsExist NOCREATE SUCCESS "),szMsglpVirtualName);
}
CoUninitialize();
return bRet;
}

BOOL _stdcall AdsiSetConnectionTimeout(LPCTSTR lpInstance,UINT time)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

USES_CONVERSION;

CoInitialize(NULL);

IADsContainer* iContainer = NULL;
IADs* iAds = NULL;

try
{
TCHAR szMsg[255];
szMsg[0] = '\0';
_stprintf(szMsg,_T("%s %d"),lpInstance,time);
WriteText(_T("AdsiSetConnectionTimeout"),szMsg);

_variant_t vProp;
vProp.vt = VT_UINT;
vProp.uintVal = time;

//set root webserver connection timeout
HRESULT hr = ADsGetObject(L"IIS://localhost/w3svc",IID_IADs,(void**)&iAds);
if(FAILED(hr))
goto error;
ASSERT(iAds);

iAds->Put(_bstr_t("ConnectionTimeout"),vProp);
iAds->SetInfo();
iAds->Release();
iAds = NULL;

UINT ins = 1;
if(lpInstance&&_tcslen(lpInstance))
ins = FindInstance(lpInstance);
TCHAR inst[3];
_itot(ins,inst,10);

WCHAR szPath[MAX_PATH+1];
szPath[0] = '\0';
wcscpy(szPath,L"IIS://localhost/w3svc/");
LPWSTR lpwInst = T2W(inst);
wcsncat(szPath,lpwInst,wcslen(lpwInst));
hr = ADsGetObject(szPath,IID_IADs,(void**)&iAds);
if(FAILED(hr))
goto error;
ASSERT(iAds);

iAds->Put(_bstr_t("ConnectionTimeout"),vProp);
iAds->SetInfo();
iAds->Release();
iAds = NULL;

//set webserver connection timeout,for IIS6.0
hr = ADsGetObject(L"IIS://localhost/w3svc",IID_IADsContainer,(void**)&iContainer);
if(FAILED(hr))
goto error;
ASSERT(iContainer);

hr = iContainer->GetObject(_bstr_t("IIsWebServer"),_bstr_t(inst),(IDispatch**)&iAds);
iContainer->Release();
iContainer = NULL;
if(FAILED(hr))
goto exit;
ASSERT(iAds);

iAds->Put(_bstr_t("ConnectionTimeout"),vProp);
iAds->SetInfo();
iAds->Release();

exit:
CoUninitialize();
return TRUE;
}
catch(_com_error& err)
{
GetComErr(_T("AdsiSetConnectionTimeout"),err);
}
catch(...)
{
GetError(_T("AdsiSetConnectionTimeout"));
}
error:
CoUninitialize();
return FALSE;

}

BOOL _stdcall AdsiSetSession(LPCTSTR lpVirtualName,LONG time)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

CoInitialize(NULL);

BOOL bRet = FALSE;
IADs* iAds = NULL;

try
{
TCHAR szMsg[255];
szMsg[0] = '\0';
_stprintf(szMsg,_T("%s %d"),lpVirtualName,time);
WriteText(_T("AdsiSetSession"),szMsg);

if(!InternalGetObject(1,lpVirtualName,IID_IADs,(void**)&iAds))
goto error;
ASSERT(iAds);

_variant_t pvSession(time);
iAds->Put(_bstr_t("AspSessionTimeout"),pvSession);

HRESULT hr = iAds->SetInfo();
bRet = SUCCEEDED(hr);
}
catch(_com_error& err)
{
GetComErr(_T("AdsiSetSession"),err);
}
catch(...)
{
GetError(_T("AdsiSetSession"));
}
error:
if(iAds)
iAds->Release();
CoUninitialize();
return bRet;
}

UINT _stdcall AdsiCreateWebSite(LPCTSTR lpSiteName,LPCTSTR lpBind,LPCTSTR lpRoot)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

CoInitialize(NULL);

IADsContainer* iContainer = NULL;
IADs* iAds = NULL;
IADs* iServer = NULL;
SAFEARRAY *pNewArray = NULL;
//HRESULT hr;
try
{
TCHAR szMsg[255];
szMsg[0] = '\0';
_tcsncat(szMsg,lpSiteName,_tcslen(lpSiteName));
_tcsncat(szMsg,lpBind,_tcslen(lpBind));
WriteText(_T("AdsiCreateWebSite"),szMsg);

HRESULT hr = ADsGetObject(L"IIS://localhost/w3svc",IID_IADsContainer,(void**)&iContainer);
ASSERT(iContainer);
if(FAILED(hr))
goto error;

TCHAR inst[3];
UINT count=1;
_itot(count,inst,10);

//get IIS web server
hr = iContainer->GetObject(_bstr_t("IIsWebServer"),bstr_t(inst),(IDispatch**)&iAds);
ASSERT(iAds);
if(FAILED(hr))
{
iContainer->Release();
goto error;
}

//enum web server
while(iAds)
{
iAds->Release();
iAds = NULL;
count++;
_itot(count,inst,10);
//get IIS web server
iContainer->GetObject(_bstr_t("IIsWebServer"),_bstr_t(inst),
(IDispatch**)&iAds);
}

hr = iContainer->Create(_bstr_t("IIsWebServer"),_bstr_t(inst),(IDispatch**)&iAds);
ASSERT(iAds);
iContainer->Release();
iContainer = NULL;
if(FAILED(hr))
goto error;

iServer = iAds;
iAds->AddRef();

_variant_t vName(lpSiteName);

_variant_t vSize;
vSize.vt = VT_I4;
vSize.ulVal = 1;

_bstr_t bstrBind(lpBind);
_variant_t vBind;
vBind.vt = VT_BSTR;
vBind.bstrVal = bstrBind;

_variant_t vBindList;
vBindList.vt = VT_ARRAY | VT_VARIANT;

SAFEARRAYBOUND rgsabound[1];
rgsabound[0].lLbound = 0;
rgsabound[0].cElements = 1;
pNewArray = SafeArrayCreate(VT_VARIANT,1,rgsabound);
LONG i =0;
hr = SafeArrayPutElement(pNewArray, &i, (void*)&vBind);
vBindList.parray = pNewArray;
hr = iAds->Put(_bstr_t("ServerBindings"),vBindList);
iAds->Put(_bstr_t("ServerComment"),vName);
iAds->Put(_bstr_t("ServerSize"),vSize);

_variant_t varEnable;
varEnable.vt = VT_BOOL;
varEnable.boolVal = TRUE;
iAds->Put(_bstr_t("AspEnableParentPaths"),varEnable);

hr = iAds->SetInfo();
if(FAILED(hr))
{
iAds->Release();
iServer->Release();
goto error;
}

hr = iAds->QueryInterface(IID_IADsContainer,(void**)&iContainer);
ASSERT(iContainer);
iAds->Release();
iAds = NULL;
if(FAILED(hr))
{
iServer->Release();
goto error;
}

hr = iContainer->Create(_bstr_t("IIsWebVirtualDir"),_bstr_t("Root"),(IDispatch**)&iAds);
ASSERT(iAds);
iContainer->Release();
iContainer = NULL;
if(FAILED(hr))
{
iServer->Release();
goto error;
}

iAds->Put(_bstr_t("Path"),_variant_t(lpRoot));

_variant_t var;
var.vt = VT_BOOL;
var.boolVal = TRUE;
iAds->Put(_bstr_t("AnonymousPasswordSync"),var);
iAds->Put(_bstr_t("AspAllowOutOfProcComponents"),var);
iAds->Put(_bstr_t("AccessRead"),var);
iAds->Put(_bstr_t("AccessScript"),var);
//iAds->Put(_bstr_t("EnableDirBrowsing"),var);
iAds->Put(_bstr_t("AspEnableParentPaths"),varEnable);

hr = iAds->SetInfo();
if(FAILED(hr))
{
iServer->Release();
iAds->Release();
goto error;
}

DISPID dispid;
OLECHAR FAR* szMember = L"AppCreate";
iAds->GetIDsOfNames(IID_NULL,&szMember,1,
LOCALE_SYSTEM_DEFAULT,&dispid);

DISPPARAMS dispParms;
dispParms.cArgs = 1;
dispParms.cNamedArgs = 0;
dispParms.rgdispidNamedArgs = NULL;
COleVariant argVal;
argVal.vt=VT_BOOL;
argVal.boolVal = TRUE;
dispParms.rgvarg = &argVal;
//invoke AppCreate
hr = iAds->Invoke(dispid,IID_NULL,LOCALE_SYSTEM_DEFAULT,
DISPATCH_METHOD,&dispParms,NULL,NULL,NULL);

iAds->Release();
iAds = NULL;
if(FAILED(hr))
{
iServer->Release();
goto error;
}

//start service
DISPID startDispid;
OLECHAR FAR* szStartMember = L"Start";
hr = iServer->GetIDsOfNames(IID_NULL,&szStartMember,1, LOCALE_SYSTEM_DEFAULT,&startDispid);

DISPPARAMS startDispParms;
startDispParms.cArgs = 0;
startDispParms.cNamedArgs = 0;
startDispParms.rgdispidNamedArgs = NULL;
startDispParms.rgvarg = NULL;

//invoke start method
hr = iServer->Invoke(startDispid,IID_NULL,LOCALE_SYSTEM_DEFAULT,
DISPATCH_METHOD,&startDispParms,NULL,NULL,NULL);
iServer->Release();
iServer = NULL;
if(FAILED(hr))
goto error;
CoUninitialize();
return count;

}
catch(_com_error& err)
{
GetComErr(_T("AdsiCreateWebSite"),err);
}
catch(...)
{
GetError(_T("AdsiCreateWebSite"));
}
error:
CoUninitialize();
return 0;
}

BOOL _stdcall AdsiStartIIS(LPCTSTR instance)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

BOOL bRet = FALSE;

CoInitialize(NULL);

IADsContainer* iContainer = NULL;
IADs* iAds = NULL;

try
{
TCHAR szMsg[255];
szMsg[0] = '\0';
_tcsncat(szMsg,instance,_tcslen(instance));
WriteText(_T("AdsiStartIIS"),szMsg);

UINT ins = FindInstance(instance);

HRESULT hr = ADsGetObject(L"IIS://localhost/w3svc",IID_IADsContainer,
(void**)&iContainer);
ASSERT(iContainer);
if(FAILED(hr))
goto error;

TCHAR inst[20];
_itot(ins,inst,10);

hr = iContainer->GetObject(_bstr_t("IIsWebServer"),_bstr_t(inst),
(IDispatch**)&iAds);
ASSERT(iAds);
if(FAILED(hr))
goto error;

DISPID dispid;
OLECHAR FAR* szMember = L"Start";
hr = iAds->GetIDsOfNames(IID_NULL,&szMember,1, LOCALE_SYSTEM_DEFAULT,&dispid);

DISPPARAMS dispParms;
dispParms.cArgs = 0;
dispParms.cNamedArgs = 0;
dispParms.rgdispidNamedArgs = NULL;
dispParms.rgvarg = NULL;

//invoke start method
hr = iAds->Invoke(dispid,IID_NULL,LOCALE_SYSTEM_DEFAULT,
DISPATCH_METHOD,&dispParms,NULL,NULL,NULL);
if(SUCCEEDED(hr))
bRet = TRUE;
}
catch(_com_error& err)
{
GetComErr(_T("AdsiStartIIS"),err);
}
catch(...)
{
GetError(_T("AdsiStartIIS"));
}
error:
if(iAds)
iAds->Release();
if(iContainer)
iContainer->Release();
CoUninitialize();
return bRet;
}

BOOL _stdcall AdsiStopIIS(LPCTSTR instance)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

BOOL bRet = FALSE;

CoInitialize(NULL);

IADsContainer* iContainer = NULL;
IADs* iAds = NULL;

try
{
TCHAR szMsg[255];
szMsg[0] = '\0';
_tcsncat(szMsg,instance,_tcslen(instance));
WriteText(_T("AdsiStopIIS"),szMsg);

UINT ins = FindInstance(instance);

HRESULT hr = ADsGetObject(L"IIS://localhost/w3svc",IID_IADsContainer,
(void**)&iContainer);
ASSERT(iContainer);
if(FAILED(hr))
goto error;

TCHAR inst[20];
_itot(ins,inst,10);

hr = iContainer->GetObject(_bstr_t("IIsWebServer"),
_bstr_t(inst),(IDispatch**)&iAds);
ASSERT(iAds);
if(FAILED(hr))
goto error;

DISPID dispid;
OLECHAR FAR* szMember = L"Stop";
hr = iAds->GetIDsOfNames(IID_NULL,&szMember,1, LOCALE_SYSTEM_DEFAULT,&dispid);

DISPPARAMS dispParms;
dispParms.cArgs = 0;
dispParms.cNamedArgs = 0;
dispParms.rgdispidNamedArgs = NULL;
dispParms.rgvarg = NULL;

//invoke start method
hr = iAds->Invoke(dispid,IID_NULL,LOCALE_SYSTEM_DEFAULT,
DISPATCH_METHOD,&dispParms,NULL,NULL,NULL);
if(SUCCEEDED(hr))
bRet = TRUE;
}
catch(_com_error& err)
{
GetComErr(_T("AdsiStartIIS"),err);
}
catch(...)
{
GetError(_T("AdsiStartIIS"));
}
error:
if(iAds)
iAds->Release();
if(iContainer)
iContainer->Release();
CoUninitialize();
return bRet;
}

BOOL _stdcall AdsiDeleteWebSite(LPCTSTR lpSiteName)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

CoInitialize(NULL);

IADsContainer* iContainer = NULL;
IADs* iAds = NULL;
IADs* iServer = NULL;
HRESULT hr;

try
{
TCHAR szMsg[255];
szMsg[0] = '\0';
_tcsncat(szMsg,lpSiteName,_tcslen(lpSiteName));
WriteText(_T("AdsiDeleteWebSite"),szMsg);

if(ADsGetObject(L"IIS://localhost/w3svc",
IID_IADsContainer,(void**)&iContainer)==S_OK)
{
TCHAR inst[20];
UINT i=1,ins=0;
_itot(i,inst,10);

//get IIS web server
hr = iContainer->GetObject(_bstr_t("IIsWebServer"),
_bstr_t(inst),(IDispatch**)&iAds);
if(FAILED(hr))
{
iContainer->Release();
goto error;
}
ASSERT(iAds);

VARIANT varName;
while(iAds)
{
iAds->Get(_bstr_t("ServerComment"),&varName);

_bstr_t bstrName(varName);
if(bstrName!=_bstr_t(lpSiteName))
{
i++;
_itot(i,inst,10);

iAds->Release();

//get IIS web server
iContainer->GetObject(_bstr_t("IIsWebServer"),
_bstr_t(inst),(IDispatch**)&iAds);
}
else
{
ins = i;
iServer = iAds;
iAds->AddRef();
iAds->Release();
break;
}
}

if(!ins)
{
iContainer->Release();
goto error;
}

//stop service
DISPID dispid;
OLECHAR FAR* szMember = L"Stop";
HRESULT hr = iServer->GetIDsOfNames(IID_NULL,&szMember,1, LOCALE_SYSTEM_DEFAULT,&dispid);
if(hr==S_OK)
{
DISPPARAMS dispParms;
dispParms.cArgs = 0;
dispParms.cNamedArgs = 0;
dispParms.rgdispidNamedArgs = NULL;
dispParms.rgvarg = NULL;

//invoke start method
iServer->Invoke(dispid,IID_NULL,LOCALE_SYSTEM_DEFAULT,
DISPATCH_METHOD,&dispParms,NULL,NULL,NULL);
}
iServer->Release();

_itot(ins,inst,10);
iContainer->Delete(_bstr_t("IIsWebServer"),_bstr_t(inst));

iContainer->Release();
VariantClear(&varName);
CoUninitialize();

return TRUE;
}
}
catch(_com_error& err)
{
GetComErr(_T("AdsiDeleteWebSite"),err);
}
catch(...)
{
GetError(_T("AdsiDeleteWebSite"));
}
error:
CoUninitialize();
return FALSE;
}

BOOL _stdcall AdsiCreateWebWithInstance(LPCTSTR lpVDirectoryName,LPCTSTR lpPath,LPCTSTR lpUserName,LPCTSTR lpPWD,BOOL bIsNeedUser,LPCTSTR instance)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

CoInitialize(NULL);

BOOL bRet = FALSE;

try
{
TCHAR szMsg[255];
szMsg[0] = '\0';
_tcsncat(szMsg,instance,_tcslen(instance));
_tcsncat(szMsg,_T(" "),1);
_tcsncat(szMsg,lpVDirectoryName,_tcslen(lpVDirectoryName));
WriteText(_T("AdsiCreateWebWithInstance"),szMsg);

UINT ins = 1;
if(instance&&_tcslen(instance))
ins = FindInstance(instance);
bRet = (InternalCreateWeb(lpVDirectoryName,lpPath,lpUserName,lpPWD,bIsNeedUser,ins)
&&SetScriptMaps(lpVDirectoryName,instance));
}
catch(_com_error& err)
{
GetComErr(_T("AdsiCreateWebWithInstance"),err);
}
catch(...)
{
GetError(_T("AdsiCreateWebWithInstance"));
}
CoUninitialize();
return bRet;
}

BOOL _stdcall AdsiDeleteWebWithInstance(LPCTSTR lpVDirectory,LPCTSTR instance)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

CoInitialize(NULL);

BOOL bRet = FALSE;

try
{
TCHAR szMsg[255];
szMsg[0] = '\0';
_tcsncat(szMsg,instance,_tcslen(instance));
_tcsncat(szMsg,_T(" "),1);
_tcsncat(szMsg,lpVDirectory,_tcslen(lpVDirectory));
WriteText(_T("AdsiDeleteWebWithInstance"),szMsg);

UINT ins = FindInstance(instance);
bRet = DeleteWeb(lpVDirectory,ins);
}
catch(_com_error& err)
{
GetComErr(_T("AdsiDeleteWebWithInstance"),err);
}
catch(...)
{
GetError(_T("AdsiDeleteWebWithInstance"));
}
CoUninitialize();
return bRet;
}

BOOL _stdcall AdsiEnableService(void)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

BOOL bRet = FALSE;

CoInitialize(NULL);

IADs* iAds = NULL;

try
{
WriteText(_T("AdsiEnableService"),_T(""));

HRESULT hr = ADsGetObject(L"IIS://localhost/w3svc",IID_IADs,(void**)&iAds);
ASSERT(iAds);
if(FAILED(hr))
goto error;

DISPID dispid;
OLECHAR FAR* szMember = L"EnableWebServiceExtension";
hr = iAds->GetIDsOfNames(IID_NULL,&szMember,1, LOCALE_SYSTEM_DEFAULT,&dispid);

DISPPARAMS dispParms;
dispParms.cArgs = 1;
dispParms.cNamedArgs = 0;
dispParms.rgdispidNamedArgs = NULL;
_variant_t argVal;
argVal.vt = VT_BSTR;
argVal.bstrVal = _bstr_t(L"ASP");
dispParms.rgvarg = &argVal;

//enable asp extension service
hr = iAds->Invoke(dispid,IID_NULL,LOCALE_SYSTEM_DEFAULT,
DISPATCH_METHOD,&dispParms,NULL,NULL,NULL);
if(FAILED(hr))
goto error;

argVal.bstrVal = _bstr_t(_T("ASP.NET v1.1.4322"));

//enable asp.net extension service
hr = iAds->Invoke(dispid,IID_NULL,LOCALE_SYSTEM_DEFAULT,
DISPATCH_METHOD,&dispParms,NULL,NULL,NULL);
if(FAILED(hr))
goto error;

OLECHAR FAR* member = L"EnableExtensionFile";
hr = iAds->GetIDsOfNames(IID_NULL,&member,1, LOCALE_SYSTEM_DEFAULT,&dispid);

//enable all isapi&cgi access
argVal.bstrVal = _bstr_t(_T("*.exe"));
hr = iAds->Invoke(dispid,IID_NULL,LOCALE_SYSTEM_DEFAULT,
DISPATCH_METHOD,&dispParms,NULL,NULL,NULL);
if(FAILED(hr))
goto error;

argVal.bstrVal = _bstr_t(_T("*.dll"));
hr = iAds->Invoke(dispid,IID_NULL,LOCALE_SYSTEM_DEFAULT,
DISPATCH_METHOD,&dispParms,NULL,NULL,NULL);

bRet = SUCCEEDED(hr);
}
catch(_com_error& err)
{
GetComErr(_T("AdsiEnableService"),err);
}
catch(...)
{
GetError(_T("AdsiEnableService"));
}
error:
if(iAds)
iAds->Release();
CoUninitialize();
return FALSE;
}

BOOL _stdcall AdsiIsExistIIS()
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

CoInitialize(NULL);

IADsContainer* iContainer = NULL;

HRESULT hr = ADsGetObject(L"IIS://localhost/w3svc",IID_IADsContainer,(void**)&iContainer);
if(iContainer)
iContainer->Release();

CoUninitialize();

return SUCCEEDED(hr);
}

BOOL _stdcall AdsiSetKeepAlive(LPCTSTR lpInstance,BOOL bValue)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

BOOL bRet = FALSE;

CoInitialize(NULL);

IADs* iAds = NULL;

try
{
TCHAR szMsg[255];
szMsg[0] = '\0';
_tcsncat(szMsg,lpInstance,_tcslen(lpInstance));
WriteText(_T("AdsiSetKeepAlive"),szMsg);

WCHAR szInst[MAX_PATH+1];
szInst[0] = '\0';
wcscpy(szInst,L"IIS://localhost/w3svc/");
UINT inst = 1;
WCHAR instance[3];
instance[0] = '\0';
if(lpInstance&&_tcslen(lpInstance))
inst = FindInstance(lpInstance);
_itow(inst,instance,10);
wcsncat(szInst,instance,wcslen(instance));
HRESULT hr = ADsGetObject(szInst,IID_IADs,(void**)&iAds);
ASSERT(iAds);
if(FAILED(hr))
goto error;

_variant_t vProp;
vProp.vt = VT_BOOL;
vProp.boolVal = bValue;
iAds->Put(_bstr_t("AllowKeepAlive"),vProp);
hr = iAds->SetInfo();
bRet = SUCCEEDED(hr);
}
catch(_com_error& err)
{
GetComErr(_T("AdsiKeepAlive"),err);
}
catch(...)
{
GetError(_T("AdsiKeepAlive"));
}
error:
if(iAds)
iAds->Release();
CoUninitialize();
return bRet;
}

BOOL _stdcall AdsiSetMIMEType(LPCTSTR lpVDirectoryName,LPCTSTR lpExtension,LPCTSTR lpType)
{
OutputDebugString( _T("AdsiSetMIMEType"));
CoInitialize(NULL);
BOOL bRet = FALSE;
IADs* iAds = NULL;
try
{
if(!InternalGetObject(1,lpVDirectoryName,IID_IADs,(void**)&iAds))
{
OutputDebugString( _T("InternalGetObject FALSE"));
goto error;
}
else
{
OutputDebugString( _T("InternalGetObject SUCCESS"));
}
ASSERT(iAds);

bRet = InternalSetMIMEType(iAds,lpExtension,lpType);
}
catch(_com_error& err)
{
GetComErr(_T("AdsiSetMIMEType"),err);
}
catch(...)
{
GetError(_T("AdsiSetMIMEType"));
}
error:
if(iAds)
iAds->Release();
CoUninitialize();
return bRet;
}

BOOL _stdcall InternalSetMIMEType(IADs *iAds,LPCTSTR lpExt,LPCTSTR lpType)
{
OutputDebugString( _T("InternalSetMIMEType START"));
ASSERT(iAds);
BOOL bRet = FALSE;
VARIANT vProp;
VariantInit(&vProp);
vProp.vt = VT_ARRAY|VT_BSTR;

SAFEARRAY FAR* psa = NULL;
SAFEARRAY *pNewArray = NULL;
LONG lElements=0,lLBound=0,lUBound=0;

try
{
//get ScriptMaps from meta data
HRESULT hr = iAds->Get(_bstr_t("MimeMap"),&vProp);
if(FAILED(hr))
goto clean;

psa = V_ARRAY(&vProp);

ASSERT(psa);

hr = SafeArrayGetLBound(psa, 1, &lLBound);
hr = SafeArrayGetUBound(psa, 1, &lUBound);
lElements = lUBound-lLBound+1;

SAFEARRAYBOUND rgsabound[1];
rgsabound[0].lLbound = 0;
rgsabound[0].cElements = lElements+1;
pNewArray = SafeArrayCreate(VT_VARIANT,1,rgsabound);

COleDispatchDriver driver;
//copy exsit MIME maps into new array
for(LONG i=0;i<lElements;i++)
{
_variant_t varValue;
CString strExt;

hr = SafeArrayGetElement(psa,&i,(void*)&varValue);
driver.AttachDispatch(varValue.pdispVal,FALSE);
driver.InvokeHelper(0x5,DISPATCH_PROPERTYGET,VT_BSTR,(void*)&strExt,NULL);
driver.DetachDispatch();
if(strExt==lpExt)
goto clean;
hr = SafeArrayPutElement(pNewArray,&i,(void*)&varValue);
}

//add MIME maps
LONG index = lElements;
_variant_t var;
var.vt = VT_DISPATCH;

COleException ex;
bRet = driver.CreateDispatch(_T("MimeMap"),&ex);
driver.SetProperty(0x5,VT_BSTR,CString(lpExt));
driver.SetProperty(0x4,VT_BSTR,CString(lpType));
var.pdispVal = driver.m_lpDispatch;
hr = SafeArrayPutElement(pNewArray,&index,(void*)&var);

VARIANT vNewProp;
VariantInit(&vNewProp);
vNewProp.vt = VT_ARRAY|VT_VARIANT;
V_ARRAY(&vNewProp) = pNewArray;
hr = iAds->Put(_bstr_t("MimeMap"),vNewProp);

hr = iAds->SetInfo();

bRet = SUCCEEDED(hr);
if(bRet)
{
OutputDebugString( _T("InternalSetMIMEType set success"));
}
else
{
OutputDebugString( _T("InternalSetMIMEType set false"));
}
}
catch(_com_error& err)
{
GetComErr(_T("InternalSetMIMEType"),err);
}
catch(...)
{
GetError(_T("InternalSetMIMEType"));
}
clean:
psa = NULL;
VariantClear(&vProp);
OutputDebugString( _T("InternalSetMIMEType END"));
return bRet;
}

BOOL  _stdcall AdsiGetWebRootWithBinding(BSTR* pbstrRoot, int nPort)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

CoInitialize(NULL);

IADsContainer* iContainer = NULL;

IEnumVARIANT *pEnum;
LPUNKNOWN     pUnk;
VARIANT       var;
IDispatch    *pDisp;
BSTR          bstrWebSiteName;
ULONG		lFetch;
IADs         *pADs;
TCHAR		pszErrorMes[1024] = {0} ;
BOOL		bFindWeb = FALSE;

try
{

HRESULT hr = ADsGetObject(L"IIS://localhost/w3svc",IID_IADsContainer,(void**)&iContainer);
ASSERT(iContainer);
if(FAILED(hr))
goto error;
TRACE(_T("ADsGetObject IID_IADSContainer SUCESS."));
iContainer->get__NewEnum(&pUnk);
iContainer->Release();

pUnk->QueryInterface(IID_IEnumVARIANT, (void**) &pEnum);
pUnk->Release();

// Now Enumerate
hr = pEnum->Next(1, &var, &lFetch);

while(hr == S_OK)
{
if (lFetch == 1)
{
pDisp = V_DISPATCH(&var);
if (pDisp == NULL)
{
continue;
}

hr = pDisp->QueryInterface(IID_IADs, (void**)&pADs);
//pDisp->Release();

if (FAILED(hr))
{
goto enumnext;
}

_variant_t vBindList;
hr= pADs->Get(_bstr_t("ServerBindings"), &vBindList);
if (vBindList.vt == VT_EMPTY)
{
goto enumnext;
}

TRACE(_T("Get a ServerBindings"));

SAFEARRAY* pArray = vBindList.parray;

LONG lIndex = 0;
LONG lLeftBound = 0;
LONG lRightBound = 0;

hr = SafeArrayGetLBound(pArray, 1, &lLeftBound);

hr = SafeArrayGetUBound(pArray, 1, &lRightBound);

LONG elementSize = lRightBound - lLeftBound + 1;

// Enum Port list
for (lIndex = 0; lIndex < elementSize ; lIndex++)
{
_variant_t vPort;
SafeArrayGetElement(pArray, &lIndex, &vPort);

WCHAR wszPort[MAX_PATH] = {0};
wcscpy(wszPort, vPort.bstrVal);
TRACE(_T("Port:%s"),wszPort);
WCHAR* nEnd = wcsstr(wszPort + 1, L":" );
memset(nEnd, 0, 2);
int port = _wtoi(wszPort + 1);

if (port == nPort)
{
pADs->get_Name((BSTR*)&bstrWebSiteName);
bFindWeb = TRUE;
break;
}
}

//SafeArrayDestroy(pArray);

pADs->Release();
}

if (bFindWeb)
{
break;
}

enumnext:
hr = pEnum->Next(1, &var, &lFetch);
};

pEnum->Release();

if (!bFindWeb)
{

goto error;
}

TRACE(_T("FindWeb SUCESS"));

WCHAR svrName[MAX_PATH] = {0};
wcscpy(svrName, L"IIS://localhost/w3svc/");
wcscat(svrName, bstrWebSiteName);
wcscat(svrName,L"/ROOT");
hr = ADsGetObject(_bstr_t(svrName), IID_IADs, (void**)&pADs );

_variant_t vRoot;
pADs->Get(_bstr_t("Path"), &vRoot);

if (*pbstrRoot == NULL)
{
*pbstrRoot = ::SysAllocString(vRoot.bstrVal);
}
else
{
::SysFreeString(*pbstrRoot);
::SysReAllocString(pbstrRoot, vRoot.bstrVal);
}

pADs->Release();

if(FAILED(hr))
goto error;
CoUninitialize();
return bFindWeb;

}
catch(_com_error& err)
{
GetComErr(_T("AdsiGetWebRootWithBinding"),err);
TRACE(_T("com_err:%s"), err.ErrorMessage());
}
catch(...)
{
TRACE(_T("Exception "));
GetError(_T("AdsiGetWebRootWithBinding"));
}
error:
CoUninitialize();
return bFindWeb;
}

/////////////////////////////////////////////////
//ACL Function Declare

#include "Accctrl.h"
#include "Aclapi.h."
#include "MACRO.h"

extern "C"
{
FUNCAPI BOOL _stdcall EnableDirectoryACL(LPTSTR lpDirectory);
}

#ifndef FUNCAPI
#ifdef EXPORTAPI
#define FUNCAPI __declspec(dllexport)
#else
#define FUNCAPI __declspec(dllimport)
#endif
#endif

//{{NO_DEPENDENCIES}}
// Microsoft Visual C++ generated include file.
// Used by SETUPKIT.RC
//

// Next default values for new objects
//
#ifdef APSTUDIO_INVOKED
#ifndef APSTUDIO_READONLY_SYMBOLS

#define _APS_NEXT_RESOURCE_VALUE	5000
#define _APS_NEXT_CONTROL_VALUE		5000
#define _APS_NEXT_SYMED_VALUE		5000
#define _APS_NEXT_COMMAND_VALUE		32771
#endif
#endif

//{{NO_DEPENDENCIES}}
// Microsoft Visual C++ generated include file.
// Used by SETUPKIT.RC
//

// Next default values for new objects
//
#ifdef APSTUDIO_INVOKED
#ifndef APSTUDIO_READONLY_SYMBOLS

#define _APS_NEXT_RESOURCE_VALUE	5000
#define _APS_NEXT_CONTROL_VALUE		5000
#define _APS_NEXT_SYMED_VALUE		5000
#define _APS_NEXT_COMMAND_VALUE		32771
#endif
#endif

// SetupKit.h : main header file for the SETUPKIT DLL
//

#if !defined(AFX_SETUPKIT_H__BB19DD21_E612_4309_933F_F7ACCE75EC34__INCLUDED_)
#define AFX_SETUPKIT_H__BB19DD21_E612_4309_933F_F7ACCE75EC34__INCLUDED_

#if _MSC_VER > 1000
#pragma once
#endif // _MSC_VER > 1000

#ifndef __AFXWIN_H__
#error include 'stdafx.h' before including this file for PCH
#endif

#include "resource.h"		// main symbols
#include "comdef.h"
#include "macro.h"

/////////////////////////////////////////////////////////////////////////////
// CSetupKitApp
// See SetupKit.cpp for the implementation of this class
//

class CSetupKitApp : public CWinApp
{
public:
CSetupKitApp();

// Overrides
// ClassWizard generated virtual function overrides
//{{AFX_VIRTUAL(CSetupKitApp)
//}}AFX_VIRTUAL

//{{AFX_MSG(CSetupKitApp)
// NOTE - the ClassWizard will add and remove member functions here.
//    DO NOT EDIT what you see in these blocks of generated code !
//}}AFX_MSG
DECLARE_MESSAGE_MAP()
};

void GetError(LPTSTR lpSource);
void GetComErr(LPTSTR lpSource,_com_error& err);

extern "C" FUNCAPI int _stdcall WriteText(LPTSTR lpSource,LPTSTR lpMsg);
/////////////////////////////////////////////////////////////////////////////

//{{AFX_INSERT_LOCATION}}
// Microsoft Visual C++ will insert additional declarations immediately before the previous line.

#endif // !defined(AFX_SETUPKIT_H__BB19DD21_E612_4309_933F_F7ACCE75EC34__INCLUDED_)

// stdafx.h : include file for standard system include files,
//  or project specific include files that are used frequently, but
//      are changed infrequently
//

#if !defined(AFX_STDAFX_H__48C31FEC_4E77_4811_A2EE_989ABEE567ED__INCLUDED_)
#define AFX_STDAFX_H__48C31FEC_4E77_4811_A2EE_989ABEE567ED__INCLUDED_

#if _MSC_VER > 1000
#pragma once
#endif // _MSC_VER > 1000

#define VC_EXTRALEAN		// Exclude rarely-used stuff from Windows headers

#include <afxwin.h>         // MFC core and standard components
#include <afxext.h>         // MFC extensions

#ifndef _AFX_NO_OLE_SUPPORT
#include <afxole.h>         // MFC OLE classes
#include <afxodlgs.h>       // MFC OLE dialog classes
#include <afxdisp.h>        // MFC Automation classes
#endif // _AFX_NO_OLE_SUPPORT

#ifndef _AFX_NO_DB_SUPPORT
#include <afxdb.h>			// MFC ODBC database classes
#endif // _AFX_NO_DB_SUPPORT

#ifndef _AFX_NO_DAO_SUPPORT
#include <afxdao.h>			// MFC DAO database classes
#endif // _AFX_NO_DAO_SUPPORT

#include <afxdtctl.h>		// MFC support for Internet Explorer 4 Common Controls
#ifndef _AFX_NO_AFXCMN_SUPPORT
#include <afxcmn.h>			// MFC support for Windows Common Controls
#endif // _AFX_NO_AFXCMN_SUPPORT

//{{AFX_INSERT_LOCATION}}
// Microsoft Visual C++ will insert additional declarations immediately before the previous line.

#endif // !defined(AFX_STDAFX_H__48C31FEC_4E77_4811_A2EE_989ABEE567ED__INCLUDED_)

///////////////////////////////////////////////////////////////////
//WebSetup Function Declare

//ADSI include
#include "stdlib.h"
#include "activeds.h"   //Adsi header
#include "comutil.h"
#include "macro.h"

#define INITGUID

extern "C"
{
//ADSI Function
///////////////////////////////////////////////////////
///1-FALSE 0-TRUE
///////////////////////////////////////////////////////
FUNCAPI BOOL _stdcall AdsiCreateWeb(LPCTSTR lpVDirectoryName,LPCTSTR lpPath,LPCTSTR lpUserName,LPCTSTR lpPWD,BOOL bIsNeedUser);
FUNCAPI BOOL _stdcall AdsiCreateWebWithSiteName(LPCTSTR lpSiteName,LPCTSTR lpVDirectoryName,LPCTSTR lpPath,LPCTSTR lpUserName,LPCTSTR lpPWD,BOOL bIsNeedUser);
FUNCAPI BOOL _stdcall AdsiCreateVirtualDirection(LPCTSTR  lpszVirtualDirName,LPCTSTR   lpszDiskPath);
FUNCAPI BOOL _stdcall AdsiCreateWebServer(LPCTSTR m_sitename,LPCTSTR bindaddress,LPCTSTR domain,LPCTSTR pathname,LPCTSTR m_localidentifier);
//删除网站标识
FUNCAPI BOOL _stdcall AdsiDeleteIdentifier(LPCTSTR m_localidentifier);
//创建网站标识
FUNCAPI BOOL _stdcall AdsiCreateIdentifier(LPCTSTR m_localidentifier);
FUNCAPI BOOL _stdcall AdsiDeleteWeb(LPCTSTR lpVDirectory);
FUNCAPI BOOL _stdcall AdsiSetHttpErrorPage(LPCTSTR lpVirtualName,UINT nErrorCode,UINT nSubErrorCode,LPCTSTR lpFilePath);
FUNCAPI BOOL _stdcall AdsiCreateSubApp(LPCTSTR lpVirtualName,LPCTSTR lpVirtualSubName,LPCTSTR lpPath);
FUNCAPI BOOL _stdcall AdsiIsExist(LPCTSTR lpVirtualName);
FUNCAPI BOOL _stdcall AdsiSetSession(LPCTSTR lpVirtualName,LONG time);
FUNCAPI BOOL _stdcall AdsiDeleteWebSite(LPCTSTR lpSiteName);
FUNCAPI BOOL _stdcall AdsiCreateWebWithInstance(LPCTSTR lpVDirectoryName,LPCTSTR lpPath,LPCTSTR lpUserName,LPCTSTR lpPWD,BOOL bIsNeedUser,LPCTSTR instance);
FUNCAPI BOOL _stdcall AdsiDeleteWebWithInstance(LPCTSTR lpVDirectoryName,LPCTSTR instance);
FUNCAPI BOOL _stdcall AdsiCreateWebWithPath(LPCTSTR lpVDirectoryName,LPCTSTR lpPath,LPCTSTR instance);
FUNCAPI BOOL _stdcall AdsiStartIIS(LPCTSTR instance);
FUNCAPI BOOL _stdcall AdsiStopIIS(LPCTSTR instance);
FUNCAPI BOOL _stdcall AdsiEnableService(void);
FUNCAPI BOOL _stdcall AdsiIsExistIIS(void);
FUNCAPI BOOL _stdcall AdsiSetConnectionTimeout(LPCTSTR lpInstance,UINT time);
FUNCAPI BOOL _stdcall AdsiSetKeepAlive(LPCTSTR lpInstance,BOOL bValue);
FUNCAPI BOOL _stdcall AdsiGetWebRootWithBinding(BSTR* lpRoot, int nPort);
FUNCAPI BOOL _stdcall AdsiSetMIMEType(LPCTSTR lpVDirectoryName,LPCTSTR lpExtension,LPCTSTR lpType);
FUNCAPI BOOL _stdcall InternalSetMIMEType(IADs *iAds,LPCTSTR lpExt,LPCTSTR lpType);
///////////////////////////////////////////////////////
//0-FALSE >0-number of instance
///////////////////////////////////////////////////////
FUNCAPI UINT _stdcall AdsiCreateWebSite(LPCTSTR lpSiteName,LPCTSTR lpBind,LPCTSTR lpRoot);
FUNCAPI BOOL _stdcall InstallU8SLSVR();
FUNCAPI void _stdcall DisableAutotuning();
}

//
// SETUPKIT.RC2 - resources Microsoft Visual C++ does not edit directly
//

#ifdef APSTUDIO_INVOKED
#error this file is not editable by Microsoft Visual C++
#endif //APSTUDIO_INVOKED

/////////////////////////////////////////////////////////////////////////////
// Add manually edited resources here...

/////////////////////////////////////////////////////////////////////////////

// stdafx.cpp : source file that includes just the standard includes
//	TestSetupKIit.pch will be the pre-compiled header
//	stdafx.obj will contain the pre-compiled type information

#include "stdafx.h"

// stdafx.cpp : source file that includes just the standard includes
//	TestSetupKIit.pch will be the pre-compiled header
//	stdafx.obj will contain the pre-compiled type information

#include "stdafx.h"

// TestSetupKIitDlg.cpp : implementation file
//

#include "stdafx.h"
#include "TestSetupKIit.h"
#include "TestSetupKIitDlg.h"
#define DLLINTERFACE __declspec(dllimport)
#include "..\WebSetup.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

/////////////////////////////////////////////////////////////////////////////
// CAboutDlg dialog used for App About

class CAboutDlg : public CDialog
{
public:
CAboutDlg();

// Dialog Data
//{{AFX_DATA(CAboutDlg)
enum { IDD = IDD_ABOUTBOX };
//}}AFX_DATA

// ClassWizard generated virtual function overrides
//{{AFX_VIRTUAL(CAboutDlg)
protected:
virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support
//}}AFX_VIRTUAL

// Implementation
protected:
//{{AFX_MSG(CAboutDlg)
//}}AFX_MSG
DECLARE_MESSAGE_MAP()
};

CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
{
//{{AFX_DATA_INIT(CAboutDlg)
//}}AFX_DATA_INIT
}

void CAboutDlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
//{{AFX_DATA_MAP(CAboutDlg)
//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
//{{AFX_MSG_MAP(CAboutDlg)
// No message handlers
//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CTestSetupKIitDlg dialog

CTestSetupKIitDlg::CTestSetupKIitDlg(CWnd* pParent /*=NULL*/)
: CDialog(CTestSetupKIitDlg::IDD, pParent)
{
//{{AFX_DATA_INIT(CTestSetupKIitDlg)
// NOTE: the ClassWizard will add member initialization here
//}}AFX_DATA_INIT
// Note that LoadIcon does not require a subsequent DestroyIcon in Win32
m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}

void CTestSetupKIitDlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
//{{AFX_DATA_MAP(CTestSetupKIitDlg)
// NOTE: the ClassWizard will add DDX and DDV calls here
//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CTestSetupKIitDlg, CDialog)
//{{AFX_MSG_MAP(CTestSetupKIitDlg)
ON_WM_SYSCOMMAND()
ON_WM_PAINT()
ON_WM_QUERYDRAGICON()
ON_BN_CLICKED(IDC_setweb, Onsetweb)
ON_BN_CLICKED(IDC_CreateIdentifier, OnCreateIdentifier)
//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CTestSetupKIitDlg message handlers

BOOL CTestSetupKIitDlg::OnInitDialog()
{
CDialog::OnInitDialog();

// Add "About..." menu item to system menu.

// IDM_ABOUTBOX must be in the system command range.
ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
ASSERT(IDM_ABOUTBOX < 0xF000);

CMenu* pSysMenu = GetSystemMenu(FALSE);
if (pSysMenu != NULL)
{
CString strAboutMenu;
strAboutMenu.LoadString(IDS_ABOUTBOX);
if (!strAboutMenu.IsEmpty())
{
pSysMenu->AppendMenu(MF_SEPARATOR);
pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
}
}

// Set the icon for this dialog.  The framework does this automatically
//  when the application's main window is not a dialog
SetIcon(m_hIcon, TRUE);			// Set big icon
SetIcon(m_hIcon, FALSE);		// Set small icon

// TODO: Add extra initialization here

return TRUE;  // return TRUE  unless you set the focus to a control
}

void CTestSetupKIitDlg::OnSysCommand(UINT nID, LPARAM lParam)
{
if ((nID & 0xFFF0) == IDM_ABOUTBOX)
{
CAboutDlg dlgAbout;
dlgAbout.DoModal();
}
else
{
CDialog::OnSysCommand(nID, lParam);
}
}

// If you add a minimize button to your dialog, you will need the code below
//  to draw the icon.  For MFC applications using the document/view model,
//  this is automatically done for you by the framework.

void CTestSetupKIitDlg::OnPaint()
{
if (IsIconic())
{
CPaintDC dc(this); // device context for painting

SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);

// Center icon in client rectangle
int cxIcon = GetSystemMetrics(SM_CXICON);
int cyIcon = GetSystemMetrics(SM_CYICON);
CRect rect;
GetClientRect(&rect);
int x = (rect.Width() - cxIcon + 1) / 2;
int y = (rect.Height() - cyIcon + 1) / 2;

// Draw the icon
dc.DrawIcon(x, y, m_hIcon);
}
else
{
CDialog::OnPaint();
}
}

// The system calls this to obtain the cursor to display while the user drags
//  the minimized window.
HCURSOR CTestSetupKIitDlg::OnQueryDragIcon()
{
return (HCURSOR) m_hIcon;
}

void CTestSetupKIitDlg::Onsetweb()
{
//AdsiCreateWeb(_T("STEMS"), _T("C:\\STEMS\\StemsPmms"), _T(""), _T(""), FALSE);
//AdsiCreateWebWithSiteName(_T("STEMS"),_T("STEMS"), _T("C:\\STEMS\\StemsPmms"), _T(""), _T(""), FALSE);

BOOL m_iscreatesuccess=FALSE;
//m_iscreatesuccess=AdsiCreateWebServer(_T("StemsPortal"),_T("10.1.240.108:8080"),_T("www.stems.com"),_T("C:\\STEMS\\StemsPmms"),_T("10002"));
m_iscreatesuccess=AdsiCreateWebServer(_T("u8virtualtest"),_T("10.1.42.28:9091"),_T(""),_T("C:\\WINDOWS\\system32\\u8virtualtest"),_T("1005"));
if(TRUE==m_iscreatesuccess)
{
printf("create   site   ok\n");
}
else
{
printf("create   site   failed\n");
}

/*
// TODO: Add your control notification handler code here
HINSTANCE  hIns = LoadLibrary(_T("E:\\STEMS_SETUP\\STEMS_SETUP\\InstallProject\\SetupKit\\Debug\\SetupKit.dll"));
FARPROC pFun;
if (hIns != NULL)
{
pFun = GetProcAddress(hIns, "AdsiCreateWebWithSiteName");
((AdsiCreateWebWithSiteName)(pFun))(_T("STEMS"),_T("STEMS"), _T("C:\\STEMS\\StemsPmms"), _T(""), _T(""), FALSE);
FreeLibrary(hIns);
}
*/
}

void CTestSetupKIitDlg::OnCreateIdentifier()
{
// TODO: Add your control notification handler code here
BOOL m_iscreatesuccess=FALSE;
m_iscreatesuccess=AdsiCreateIdentifier(_T("1005"));
if(TRUE==m_iscreatesuccess)
{
printf("create   Identifier   ok\n");
}
else
{
printf("create   Identifier   failed\n");
}

}

//{{NO_DEPENDENCIES}}
// Microsoft Developer Studio generated include file.
// Used by TestSetupKIit.rc
//
#define IDM_ABOUTBOX                    0x0010
#define IDD_ABOUTBOX                    100
#define IDS_ABOUTBOX                    101
#define IDD_TESTSETUPKIIT_DIALOG        102
#define IDR_MAINFRAME                   128
#define IDC_setweb                      1000
#define IDC_CreateIdentifier            1001

// Next default values for new objects
//
#ifdef APSTUDIO_INVOKED
#ifndef APSTUDIO_READONLY_SYMBOLS
#define _APS_NEXT_RESOURCE_VALUE        129
#define _APS_NEXT_COMMAND_VALUE         32771
#define _APS_NEXT_CONTROL_VALUE         1002
#define _APS_NEXT_SYMED_VALUE           101
#endif
#endif

// stdafx.h : include file for standard system include files,
//  or project specific include files that are used frequently, but
//      are changed infrequently
//

#if !defined(AFX_STDAFX_H__E7E5E2C2_1C2D_4BD1_85AB_2C1BD3AD5A68__INCLUDED_)
#define AFX_STDAFX_H__E7E5E2C2_1C2D_4BD1_85AB_2C1BD3AD5A68__INCLUDED_

#if _MSC_VER > 1000
#pragma once
#endif // _MSC_VER > 1000

#define VC_EXTRALEAN		// Exclude rarely-used stuff from Windows headers

#include <afxwin.h>         // MFC core and standard components
#include <afxext.h>         // MFC extensions
#include <afxdisp.h>        // MFC Automation classes
#include <afxdtctl.h>		// MFC support for Internet Explorer 4 Common Controls
#ifndef _AFX_NO_AFXCMN_SUPPORT
#include <afxcmn.h>			// MFC support for Windows Common Controls
#endif // _AFX_NO_AFXCMN_SUPPORT

//{{AFX_INSERT_LOCATION}}
// Microsoft Visual C++ will insert additional declarations immediately before the previous line.

#endif // !defined(AFX_STDAFX_H__E7E5E2C2_1C2D_4BD1_85AB_2C1BD3AD5A68__INCLUDED_)

// TestSetupKIit.h : main header file for the TESTSETUPKIIT application
//

#if !defined(AFX_TESTSETUPKIIT_H__3F99EB60_57BC_46B0_BE71_54004371FE8F__INCLUDED_)
#define AFX_TESTSETUPKIIT_H__3F99EB60_57BC_46B0_BE71_54004371FE8F__INCLUDED_

#if _MSC_VER > 1000
#pragma once
#endif // _MSC_VER > 1000

#ifndef __AFXWIN_H__
#error include 'stdafx.h' before including this file for PCH
#endif

#include "resource.h"		// main symbols

/////////////////////////////////////////////////////////////////////////////
// CTestSetupKIitApp:
// See TestSetupKIit.cpp for the implementation of this class
//

class CTestSetupKIitApp : public CWinApp
{
public:
CTestSetupKIitApp();

// Overrides
// ClassWizard generated virtual function overrides
//{{AFX_VIRTUAL(CTestSetupKIitApp)
public:
virtual BOOL InitInstance();
//}}AFX_VIRTUAL

// Implementation

//{{AFX_MSG(CTestSetupKIitApp)
// NOTE - the ClassWizard will add and remove member functions here.
//    DO NOT EDIT what you see in these blocks of generated code !
//}}AFX_MSG
DECLARE_MESSAGE_MAP()
};

/////////////////////////////////////////////////////////////////////////////

//{{AFX_INSERT_LOCATION}}
// Microsoft Visual C++ will insert additional declarations immediately before the previous line.

#endif // !defined(AFX_TESTSETUPKIIT_H__3F99EB60_57BC_46B0_BE71_54004371FE8F__INCLUDED_)

// TestSetupKIitDlg.h : header file
//

#if !defined(AFX_TESTSETUPKIITDLG_H__8862725E_2049_447E_8194_2FDAFE23E94A__INCLUDED_)
#define AFX_TESTSETUPKIITDLG_H__8862725E_2049_447E_8194_2FDAFE23E94A__INCLUDED_

#if _MSC_VER > 1000
#pragma once
#endif // _MSC_VER > 1000

/////////////////////////////////////////////////////////////////////////////
// CTestSetupKIitDlg dialog

class CTestSetupKIitDlg : public CDialog
{
// Construction
public:
CTestSetupKIitDlg(CWnd* pParent = NULL);	// standard constructor

// Dialog Data
//{{AFX_DATA(CTestSetupKIitDlg)
enum { IDD = IDD_TESTSETUPKIIT_DIALOG };
// NOTE: the ClassWizard will add data members here
//}}AFX_DATA

// ClassWizard generated virtual function overrides
//{{AFX_VIRTUAL(CTestSetupKIitDlg)
protected:
virtual void DoDataExchange(CDataExchange* pDX);	// DDX/DDV support
//}}AFX_VIRTUAL

// Implementation
protected:
HICON m_hIcon;

// Generated message map functions
//{{AFX_MSG(CTestSetupKIitDlg)
virtual BOOL OnInitDialog();
afx_msg void OnSysCommand(UINT nID, LPARAM lParam);
afx_msg void OnPaint();
afx_msg HCURSOR OnQueryDragIcon();
afx_msg void Onsetweb();
afx_msg void OnCreateIdentifier();
//}}AFX_MSG
DECLARE_MESSAGE_MAP()
};

//{{AFX_INSERT_LOCATION}}
// Microsoft Visual C++ will insert additional declarations immediately before the previous line.

#endif // !defined(AFX_TESTSETUPKIITDLG_H__8862725E_2049_447E_8194_2FDAFE23E94A__INCLUDED_)

//
// TESTSETUPKIIT.RC2 - resources Microsoft Visual C++ does not edit directly
//

#ifdef APSTUDIO_INVOKED
#error this file is not editable by Microsoft Visual C++
#endif //APSTUDIO_INVOKED

/////////////////////////////////////////////////////////////////////////////
// Add manually edited resources here...

/////////////////////////////////////////////////////////////////////////////