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

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

ACL.CPP文件内容

#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... / 测试窗体