Script pour empaqueter des programmes ASP avec InstallShield_other

2019-12-26
#include "ifx.h" // Impossible de se déplacer
/////////////////////////////////////////// //////////////////////////////////////////////
// InstallShield logiciel ASP et installation automatique
// auteur original: Jia Jun (Jaron)
// URL: http://www.jiangdu.net
// e-mail: jaron@jdinfo.net
// Première publication sur Netease, ChinaASP, ASPHouse
////////////////////////////////////////// //////////////////////////////////////////////
// Fonctions: < BR> / 1. Copie de fichier
// 2. Paramétrage automatique facultatif du fonctionnement du site indépendant (définir IIS)
// 3. Paramétrage automatique facultatif du fonctionnement du site virtuel (définir IIS)
// 4 .Définissez le répertoire pour lire, écrire et exécuter des scripts
// 5. Créez automatiquement ODBC
// 6. Créez ou attachez automatiquement une base de données SQL au format MDF et optimisez
// 7. Installez automatiquement ScriptEncode Programme de décodage
// Cet article répertorie uniquement la partie Script d'InstallShield, il existe deux fichiers VBS et d'autres paramètres
// Si vous rencontrez des problèmes pendant le test, veuillez consulter http://www.jiangdu.net/ discussion sur la version de l'espace de programmation bbs
///////////////////////////////////////////////////// ///////////////////////////////////////////////
prototype CreateDataBase (STRING , STRING, STRING);
prototype CreateWebSite (STRING, STRING); // créer des sites IIS
prototype CreateVirtualDir (STRING); // création d'un répertoire virtuel
//////// /////////////////////////////////////////////////////////// //////////////////////
//
// Fonction: OnFirstUIBefore
//
// Événement: l'événement FirstUIBefore est envoyé lorsque l'installation est exécutée pour la première fois
// sur une machine donnée. Dans le gestionnaire, l'installation affiche généralement
// UI permettant à l'utilisateur final de spécifier les paramètres d'installation. Après le retour de cette fonction
//, ComponentTransferData est appelé pour effectuer le fichier
// transférer.
//
///////////////////////////////////////// /////////////////////////////////////////////////// Fonction
OnFirstUIBefore ()
NUMBER nResult, nSetupType, nOpt, svEdit1, svEdit2;
STRING szTitle, szMsg, szBmpPath;
STRING szLicenseFile, szQuestion;
STRING szServerIP, szServer fault;
STRING szSQLsvr, szSQLusr, szSQLpwd, svSQLsvr, svSQLusr, svSQLpwd;
STRING svName, svCompany, svSerial;
STRING szFile, szTargetPath, szDir, szfolding; sBR. > STRING szField1, szField2;
STRING szDefault, svResult,
OBJET piisObj;
liste lISTE, listStartCopy,
NUMÉRO nLevel, nvSize,
commencer
szBmpPath = « C : "^" temp "^" left.bmp ";
DialogSetInfo (DLG_INFO_ALTIMAGE, szBmpPath, TRUE); // Définir l'image à gauche
// À faire: si vous souhaitez activer l'arrière-plan, le titre de la fenêtre et titre de la barre de légende
// SetTitle (@TITLE_MAIN, 24, WHITE);
// SetTitle (@TITLE_CAPTIONBAR, 0, BACKGROUNDCAPTION);
// Enable (FULLWINDOWMODE);
// Enable ( CONTEXTE);
// SetColor (fond, RVB (0, 128, 128));
// réglage par défaut
TARGETDIR = "C:" ^ "inetpub" ^ « JaronSoft "^ @ FOLDER_NAME;
szDir = TARGETDIR;
SHELL_OBJECT_FOLDER = @FOLDER_NAME;
svName =" Trial User ";
svCompany =" JDinfo Network ";
svSerial =" 111-111 1111 ";
Dlg_Start:
// début de dialogues étiquette
Dlg_SdWelcome: // accueil dialogue
szTitle =" Bienvenue "
szMsg =" " ;
nResult = SdWelcome (szTitle, szMsg);
si (nResult = RETOUR) goto Dlg_Start;
Dlg_SdLicense: // licence du logiciel boîte de dialogue de l'accord
licence szLicenseFile = SUPPORTDIR ^ ». txt ";
szTitle =" Contrat de licence ";
szMsg =" ";
szQuestion =" ";
nesult = SdLicense (szTitle, szMsg, szQuestion, szLicenseFile);
si (nResult = RETOUR) goto Dlg_SdWelcome;
Dlg_SdShowInfoList: // dialogue fichier readme
szFile = SUPPORTDIR ^ « infolist.txt ";
list = ListCreate (STRINGLIST);
ListReadFromFile (list, szFile);
szTitle =" README ";
szMsg =" ";
nResult = SdShowInfoList (szTitle, szMsg, liste);
ListDestroy (liste);
si (nResult = RETOUR) goto Dlg_SdLicense;
Dlg_SdRegisterUserEx: // boîte de dialogue d'informations utilisateur
szMsg = "";
szTitle = "Informations utilisateur";
nResult = SdRegisterUserEx (szTitle, szMsg, svName, svCompany, svSerial);
if (nResult = BACK) goto Dlg_SdShowInfoList;
// Vérifiez le numéro de série
// if ( CHK_serial (svCompany, svSerial) <0) puis
// goto Dlg_SdRegisterUserEx;
// endif;
// Vérifiez que le numéro de série est complet
Dlg_SdAskDestPath: // Boîte de dialogue d'emplacement d'installation
szTitle = "Vérifier le numéro de série";
szMsg = "";
nResult = SdAskDestPath (szTitle, szMsg, szDir, 0);
TARGETDIR = szDir;
if ( nResult = RETOUR) goto Dlg_SdRegisterUserEx;
Dlg_SetupType: // boîte de dialogue Type d'installation
nSetupType = typique;
szTitle = "type d'installation";
szMsg = « S'il vous plaît sélectionner ce que vous devez appuyer sur Méthodes d'installation ";
nResult = SetupType (szTitle, szMsg," ", nSetupType, 0);
if (nResult = BACK) then
goto Dlg_SdAskDestPath;
else
nSetupType = nResult ;
if (nSetupType! = CUSTOM) then
szTargetPath = TARGETDIR;
nvSize = 0;
ComponentCompareSizeRequired (MEDIA, szTargetPath, nvSize);
if (nvSize! = 0) then < BR> MessageBox (szSdStr_NotEnoughSpace, AVERTISSEMENT);
goto Dlg_SetupType;
endif;
endif;
endif;
Dlg_SdComponentTree: // dialogue
if ((nResult = RETOUR) && (nSetupType! = CUSTOM)) goto Dlg_SetupType;
szTitle = "Dialog";
szMsg = "";
szTargetdir = TARGETDIR;
szComponents = "";
nLevel = 2;
si (nSetupType = CUSTOM) alors
nResult = SdComponentTree (szTitle, szMsg, szTargetdir, szComponents, n Niveau);
si (nResult = RETOUR) goto Dlg_SetupType;
endif;
Dlg_SdSelectFolder: // dialogue
szfolder = SHELL_OBJECT_FOLDER;
szTitle = "dossier"; < BR> szMsg = "";
nResult = SdSelectFolder (szTitle, szMsg, szfolder);
SHELL_OBJECT_FOLDER = szfolder;
si (nResult = RETOUR) goto Dlg_SdComponentTree;
Dlg_SelMode : // Définir la boîte de dialogue du serveur de base de données
szTitle = "Setting" + @ PRODUCT_NAME + "Run Mode";
szMsg = "Veuillez sélectionner le mode d'exécution du logiciel, il est fortement recommandé d'utiliser le mode site indépendant";
szField1 = "Exécuter en mode autonome (création automatique de nouveau site)";
szField2 = "Exécuter en mode répertoire virtuel (création automatique de répertoire virtuel)";
svEdit1 = TRUE;
svEdit2 = FALSE;
SetDialogTitle (DLG_ASK_TEXT, szTitle);
// DialogSetInfo (DLG_INFO_CHECKSELECTION, "", 1);
nOpt = EXCLUSIVE;
nResult = AskOptions (nOpt, szMsg, szField1, svEdit2, svEdit2) BR> if (nResult = BACK) goto Dlg_SdSelectFolder;
if (svEdit1 = FALSE) goto Dlg_SdStartCopy;
< br> Dlg_AskText: // Boîte de dialogue Définir le serveur de base de données
szTitle = "Définir le service d'informations IIS et le serveur de base de données";
szMsg = "Commencer à configurer le système IIS maintenant";
szQuestion = "Veuillez saisir ce serveur Nom d'hôte ou adresse IP, le programme d'installation configurera le service d'informations IIS en fonction des informations que vous avez fournies. Si vous ne le remplissez pas, l'installateur sautera automatiquement la création du site! ";
szServerIP =" Adresse: ";
szServerPort =" Port: ";
szServerPortDefault =" 192.168.0.1 ";
szServerPortDefault =" 80 ";
SetDialogTitle (DLG_ASK_TEXT, szTitle );
nResult = SdShowDlgEdit2 (szTitle, szQuestion, szServerIP, szServerPort, szServerIPDefault, szServerPortDefault);
si (nResult = RETOUR) goto Dlg_SelMode;
Dlg_AskSQL: // boîte de dialogue, le serveur de base de données < BR> szTitle = "Configuration de la base de données";
szMsg = "Configuration du système de base de données Microsoft SQL Server maintenant";
szQuestion = "Veuillez saisir le nom d'utilisateur et le mot de passe du serveur de base de données SQL SERVER, et le programme d'installation suivra les étapes que vous avez fournies Adresse IP et nom d'utilisateur et mot de passe ci-dessous pour créer et optimiser le système de base de données. Si le nom d'utilisateur et le mot de passe que vous avez fournis sont incorrects, l'installateur sautera automatiquement le réglage des données! ";
szSQLsvr =" hostname: ";
szSQLusr =" username: ";
szSQLpwd =" password: ";
svSQLsvr =" localhost ";
svSQLusr =" sa ";
szSQLpwd =" ";
SetDialogTitle (DLG_ASK_TEXT, szTitle);
nResult = SdShowDlgEdit3 (szTitle, szQuestion, szSQLsvr, szSQLusr, szSQLpwd, svSQLsv, svSQLsv, svSQLsr, svSQLw = RETOUR) goto Dlg_SelMode;
Dlg_SdStartCopy: // commencer la copie des fichiers boîte de dialogue
szTitle = "lancer la copie des fichiers",
szMsg = "cliquez sur Suivant pour commencer la copie des fichiers";
listStartCopy = ListCreate (STRINGLIST);
ListAddString (listStartCopy, "nom d'utilisateur:" + svName, AFTER);
ListAddString (listStartCopy, "nom de l'entreprise:" + svCompany, AFTER);
ListAddString (listStartCopy, " Numéro de série: "+ svSerial, AFTER);
ListAddString (listStartCopy," Répertoire cible: "+ szDir, AFTER);
if (svEdit1 = TRUE) puis
ListAddString (listStartCopy," IP address: " + szServerIPDefault, AFTER);
ListAddString (listStartCopy, "numéro de port:" + szServerPortDefault, AFTER);
endif;
ListAddString (listStartCop y, "Veuillez confirmer les informations que vous avez saisies et cliquez sur Suivant pour commencer la copie des fichiers", APRÈS);
nResult = SdStartCopy (szTitle, szMsg, listStartCopy);
ListDestroy (listStartCopy);
if (nResult = RETOUR) goto Dlg_AskText;
// configuration de l'état par défaut
SetStatusWindow (0, "");
Enable (STATUSEX);
StatusUpdate (ON, 100);
if (svEdit1 = TRUE ) puis
CreateWebSite (szServerIPDefault, szServerPortDefault); // Commencez à créer le site IIS
endif;
if (svEdit2 = TRUE) puis
CreateVirtualDir ("NetOA"); // Commencez à créer le site IIS < BR> endif;
CreateDatabase (svSQLsvr, svSQLusr, svSQLpwd); // créer et base de données optimize
return 0; fin
;
/////////// /////////////////////////////////////////////////////////// ////////////////////
//
// Fonction: OnFirstUIAfter
//
// Événement: FirstUIAfter événement est envoyé après le transfert de fichier, lorsque l'installation
// est exécutée pour la première fois sur une machine donnée. Dans ce gestionnaire d'événements,
// installation affiche généralement une interface utilisateur qui informe l'utilisateur final que
/ / l'installation s'est terminée avec succès.
//
////////////////////////////////////////// ///////////////////////////////////////////////// Fonction
OnFirstUIAfter ( )
STRING szTitle, szMsg1, szMsg2, szOption1, szOption2, szCmdLine,
NUMÉRO bOpt1, bOpt2;
commencer
// set_vod_liveaddress ();
szCmdLine = SUPPORTDIR ^ "SCE10CHS.EXE";
si (LaunchAppAndWait (szCmdLine, "/ q", WAIT) <0) puis
MessageBox ("Impossible d'installer le décodeur, veuillez contacter le fournisseur.", SÉVÈRE);
endif;
Désactiver (STATUSEX);
bOpt1 = FAUX;
bOpt2 = FAUX;
szMsg1 = SdLoadString (IFX_SDFINISH_MSG1);
szMsg2 = « s'il vous plaît visitez le serveur hôte WEB Exemple de répertoire virtuel "+ @ PRODUCT_NAME +" sur: http: // Localhost / ";
szOption1 =" ";
szOption2 =" ";
szTitle = @ PRODUCT_NAME +" Installation terminée ";
SdFinishEx (szTitle, szMsg1, szMsg2, szOption1, szOption2, bOpt1, bOpt2); nResult = SdShowDlgEdit2 (szTitle, szQuestion, szServerIP, szServerPort, szServerIPDefault, szServerPortDefault);
if (nResult = BACKS) Boîte de dialogue du serveur de base de données
szTitle = "Configurer la base de données";
szMsg = "Configurer le système de base de données Microsoft SQL Server maintenant";
szQuestion = "Veuillez saisir le nom d'utilisateur et le mot de passe du serveur de base de données SQL SERVER, et le programme d'installation Créez et optimisez le système de base de données en fonction de l'adresse IP que vous avez fournie à l'étape précédente et du nom d'utilisateur et du mot de passe ci-dessous. Si le nom d'utilisateur et le mot de passe que vous avez fournis sont incorrects, le programme d'installation ignorera automatiquement le paramètre de données! ";
szSQLsvr =" host Prénom: ";
szSQLusr =" Nom d'utilisateur: ";
szSQLpwd =" Mot de passe: ";
svSQLsvr =" localhost ";
svSQLusr =" sa ";
szSQLpwd =" " ;
SetDialogTitle (DLG_ASK_TEXT, szTitle);
nResult = SdShowDlgEdit3 (szTitle, szQuestion, szSQLsvr, szSQLusr, szSQLpwd, svSQLsvr, svSQLusr, svSQLpwdto) nR)
Dlg_SdStartCopy: // Boîte de dialogue Démarrer la copie des fichiers
szTitle = "Démarrer la copie des fichiers";
szMsg = "Cliquez sur Suivant pour commencer la copie des fichiers";
listStartCopy = ListCreate (STRINGLIST);
ListAddString (listStartCopy, "Nom d'utilisateur : "+ SvName, AFTER);
ListAddString (listStartCopy," Company name: "+ svCompany, AFTER);
ListAddString (listStartCopy," Numéro de série: "+ svSerial, AFTER);
ListAddString (listStartCopy , "Répertoire cible:" + szDir, AFTER);
if (svEdit1 = TRUE) then
ListAddString (listStartCopy, "IP address:" + szServerIPDefault, AFTER);
ListAddString (listStartCopy, "numéro de port : "+ SzServerPortDefault, AFTER);
endif;
ListAddString (listStartCopy," Veuillez confirmer les informations que vous avez remplies et commencer à copier le fichier à l'étape suivante ", AFTER);
nResult = SdStartCopy (szTitle, szMsg, listStartCopy);
ListDestroy (listStartCopy);
if (nResult = BACK) goto Dlg_AskText;
// configuration de l'état par défaut
SetStatusWindow (0, "");
Enable (STATUSEX);
StatusUpdate (ON, 100);
if (svEdit1 = TRUE) then
CreateWebSite (szServe rIPDefault, szServerPortDefault); // Commencer à créer le site IIS
endif;
si (svEdit2 = TRUE) puis
CreateVirtualDir ("NetOA"); // Commencer à créer le site IIS
endif;
CreateDatabase (svSQLsvr, svSQLusr, svSQLpwd); // créer et base de données optimize
return 0; fin
;
////////////////// /////////////////////////////////////////////////////////// ///////////
//
// Fonction: OnFirstUIAfter
//
// Événement: l'événement FirstUIAfter est envoyé après le transfert de fichiers, lors de l'installation
// est exécuté pour la première fois sur une machine donnée. Dans ce gestionnaire d'événements,
// installation affiche généralement une interface utilisateur qui informe l'utilisateur final que
// l'installation s'est terminée avec succès.
//
// /////////////////////////////////////////////////////////// //////////////////////////// Fonction
OnFirstUIAfter ()
STRING szTitle, szMsg1, szMsg2, szOption1, szOption2, szCmdLine;
NUMÉRO bOpt1, bOpt2;
commencer
// set_vod_liveaddress ();
szCmdLine = SUPPORTDIR ^ "SCE10CHS.EXE";
si (launcha ppAndWait (szCmdLine, "/ q", WAIT) <0) puis
MessageBox ( "processus de décodage ne peut pas être installé, contactez le fournisseur.", GRAVES);
endif;
Désactiver (STATUSEX );
bOpt1 = FALSE;
bOpt2 = FALSE;
szMsg1 = SdLoadString (IFX_SDFINISH_MSG1);
szMsg2 = "Veuillez parcourir l'exemple de répertoire virtuel" + @ PRODUCT_NAME + "sur le serveur Web de cet hôte: http : // Localhost / ";
szOption1 =" ";
szOption2 =" ";
szTitle = @ PRODUCT_NAME +" Installation terminée ";
SdFinishEx (szTitle, szMsg1, szMsg2, szOption1, szOption2, bOpt1, bOpt2);
szCmdLine = "http: // localhost";
// if (LaunchApp (PROGRAMFILES ^ "Internet Explorer" ^ "iexplore.exe", szCmdLine) <0) puis < BR> // MessageBox ( "Impossible d'ouvrir le navigateur.", GRAVES);
// endif;
return 0; fin
;
/// ////////////////////////BR> // Créer un site IIS
/////////////////// ///////////
fonction CreateWebSite (szServerIPDefault, szServerPortDefault)
STRING szCmdLine, szWaitTxt;
commence
if ((szServerIPDefault = "") || (szServerPortDefault = "" )) puis
MessageBox ("Vous n'avez pas défini l'adresse IP ou le port du serveur exécutant" + @ PRODUCT_NAME + "! !! La configuration du service d'informations IIS a échoué! Veuillez créer votre propre site IIS et définir votre répertoire personnel sur: "+ TARGETDIR, SEVERE);
else
szWaitTxt =" Création d'IIS et configuration du site ... ";
SdShowMsg (szWaitTxt, TRUE );
Délai (2);
szCmdLine = SUPPORTDIR ^ "mkw3site.vbs" + "-r" + TARGETDIR + "-i" + szServerIPDefault + "-o" + szServerPortDefault + "-t" + @ PRODUCT_NAME; < BR> if (LaunchAppAndWait ("WScript.exe", szCmdLine, WAIT) <0) alors
MessageBox ("Impossible de créer le répertoire virtuel WEB, WScript.exe est introuvable ou erreur d'exécution de script.", SÉVÈRE);
endif;
SdShowMsg (szWaitTxt, FALSE);
endif;
return 0;
fin;
//////////////// ///////////
// Créer un répertoire virtuel
//////////////////////////////
function CreateVirtualDir (VirtualFolder)
STRING szCmdLine, szWaitTxt;
begin
if (VirtualFolder = "") puis
MessageBox ("Impossible de lire le nom du répertoire virtuel! Veuillez contacter le fournisseur du système! "+ TARGETDIR, SEVERE);
else
szWaitTxt =" Création d'un répertoire virtuel "+ @ PRODUCT_NAME +" ...... ";
SdShowMs g (szWaitTxt, TRUE);
Delay (2);
szCmdLine = SUPPORTDIR ^ "mkwebdir.vbs" + "-w 1 -v \" "+ VirtualFolder +" \ ", \" "+ TARGETDIR +" \ "";
si (LaunchAppAndWait ("WScript.exe", szCmdLine, WAIT) <0) alors
MessageBox ("Impossible de créer le répertoire virtuel WEB, WScript.exe est introuvable ou erreur d'exécution de script.", SÉVÈRE) ;
endif;
SdShowMsg (szWaitTxt, FALSE);
endif;
return 0;
fin;
//////////// ///////////////
// Créez et optimisez la base de données
/////////////////////////////// //
fonction CreateDataBase (svSQLsvr, svSQLusr, svSQLpwd)
STRING szCmdLine, szWaitTxt;
begin
szWaitTxt = "Création de la base de données requise par" + @ PRODUCT_NAME + "...";
SdShowMsg (szWaitTxt, TRUE);
Delay (2);
szCmdLine = "/ U" + svSQLusr + "/ P" + svSQLpwd + "/ S" + svSQLsvr + "/ Q \" exec sp_attach_db N'OASystem ' , N '"+ SUPPORTDIR ^" OASystem_data.mdf' \ "";
if (LaunchAppAndWait ("osql.exe", szCmdLine, WAIT) <0) puis
MessageBox ("La création de la base de données a échoué!" Veuillez vous assurer que Microsoft SQL Server 2000 est installé sur votre système. Si vous ne parvenez toujours pas à le résoudre, veuillez contacter votre fournisseur de système! ", SEVERE);
endif;
SdShowMsg (szWaitTxt, FALSE);
szWaitTxt =" Optimizing "+ @ PRODUCT_NAME +" System Database ... ";
SdShowMsg (szWaitTxt, TRUE) ;
Délai (2);
szCmdLine = "/ U" + svSQLusr + "/ P" + svSQLpwd + "/ S" + svSQLsvr + "/ Q \" utilisez OASystem; exec sp_updatestats \ "";
si (LaunchAppAndWait ("osql.exe", szCmdLine, WAIT) <0) puis
MessageBox ("L'optimisation de la base de données a échoué! Vous pouvez exécuter utiliser OASystem dans l'analyseur de requêtes SQL; exec sp_updatestats terminé!", SÉVÈRE);
endif;
SdShowMsg (szWaitTxt, FALSE);
return 0;
end;
br>
szCmdLine = "http: // LocalHost";
// if (LaunchApp (PROGRAMFILES ^ "Internet Explorer" ^ "IEXPLORE.EXE", szCmdLine) <0) puis
// MessageBox ( "Impossible d'ouvrir le navigateur.", GRAVES);
// endif;

return 0; fin
;
///////// ////////////////////BR> // Créer un site IIS
///////////////////////////// ////
fonction CreateWebSite (szServerIPDefault, szServerPortDefault)
STRING szCmdLine, szWaitTxt;
begin
if ((szServerIPDefault = "") || (szServerPortDefault = "")) puis
MessageBox ("Vous n'avez pas défini l'adresse IP ou le port du serveur exécutant" + @ PRODUCT_NAME + "!!! Les paramètres du service d'informations IIS ont échoué! Veuillez créer vous-même un site IIS et définir le répertoire de base sur:" + TARGETDIR, SEVERE);
else
szWaitTxt = "Création d'IIS et configuration du site ...";
SdShowMsg (szWaitTxt, TRUE);
Delay (2);
szCmdLine = SUPPORTDIR ^ "mkw3site.vbs" + "-r" + TARGETDIR + "-i" + szServerIPDefault + "-o" + szServerPortDefault + "-t" + @ PRODUCT_NAME;
if (LaunchAppAndWait ("WScript.exe", szCmdLine, WAIT) <0) puis
MessageBox ("Impossible de créer le répertoire virtuel WEB, WScript.exe est introuvable ou erreur d'exécution de script.", SÉVÈRE);
endif;
SdShowMsg (szWaitTxt, FALSE);
endif ;
return 0; fin
;
//////////////////////////
// Création Répertoire virtuel
/////////////////////////// Fonction
CreateVirtualDir (VirtualFolder)
STRING szCmdLine, szWaitTxt;
commencez
si (VirtualFolder = "") puis
MessageBox ("Impossible de lire le nom du répertoire virtuel! Contactez votre fournisseur de système! "+ TARGETDIR, SEVERE);
else
szWaitTxt =" Création d'un répertoire virtuel de "+ @ PRODUCT_NAME +" ... ";
SdShowMsg (szWaitTxt, TRUE);
Délai (2) ;
szCmdLine = SUPPORTDIR ^ "mkwebdir.vbs" + "-w 1 -v \" "+ VirtualFolder +" \ ", \" "+ TARGETDIR +" \ "";
if (LaunchAppAndWait ("WScript.exe ", szCmdLine, WAIT) <0) puis
MessageBox (" Impossible de créer le répertoire virtuel WEB, WScript.exe est introuvable ou erreur d'exécution de script. ", SEVERE);
endif;
SdShowMsg (szWaitTxt, FALSE );
endif;
return 0; fin
;
//////////////////////////
// Créer et optimiser la base de données
////////////////////////// Fonction
CreateDataBase (svSQLsvr, svSQLusr, svSQLpwd)
STRING szCmdLine, szWaitTxt;
begin
szWaitTxt = "Création" + @ PRODUCT_NAME + "Required Database ...";
SdShowMsg (szWaitTxt, TRUE);
Délai (2 );
szCmdLine = "/ U" + svSQLusr + "/ P" + svSQLpwd + "/ S" + svSQLsvr + "/ Q \" exec sp_attach_db N'OASystem ', N' "+ SUPPORTDIR ^" OASystem_data.mdf '\ " ";
if (LaunchAppAndWait ("osql.exe", szCmdLine, WAIT) <0) puis
MessageBox ("La création de la base de données a échoué! Veuillez vous assurer que Microsoft SQL Server 2000 est installé sur votre système. Si vous ne parvenez toujours pas à le résoudre, veuillez contacter le fournisseur de votre système! ", SEVERE);
endif;
SdShowMsg (szWaitTxt, FALSE);
szWaitTxt =" Optimizing "+ @ PRODUCT_NAME +" System Database ... ";
SdShowMsg (szWaitTxt, TRUE) ;
Délai (2);
szCmdLine = "/ U" + svSQLusr + "/ P" + svSQLpwd + "/ S" + svSQLsvr + "/ Q \" utilisez OASystem; exec sp_updatestats \ "";
si (LaunchAppAndWait ("osql.exe", szCmdLine, WAIT) <0) puis
MessageBox ("L'optimisation de la base de données a échoué! Vous pouvez exécuter utiliser OASystem dans l'analyseur de requêtes SQL; exec sp_updatestats terminé!", SÉVÈRE);
endif;
SdShowMsg (szWaitTxt, FALSE);
return 0;
end;
;
endif;
return 0; fin
;
////////////////////////// < BR> // Créer un répertoire virtuel
//////////////////////////
fonction CreateVirtualDir (VirtualFolder)
STRING szCmdLine, szWaitTxt;
commencer
si (VirtualFolder = "") puis
MessageBox ("Impossible de lire le nom du répertoire virtuel! Veuillez contacter le fournisseur du système!" + TARGETDIR, SEVERE);
sinon
szWaitTxt = "Création d'un répertoire virtuel" + @ PRODUCT_NAME + "...";
SdShowMsg (szWaitTxt, TRUE);
Delay (2);
szCmdLine = SUPPORTDIR ^ "mkwebdir. vbs "+" -w 1 -v \ "" + VirtualFolder + "\", \ "" + TARGETDIR + "\" ";
if (LaunchAppAndWait (" WScript.exe ", szCmdLine, WAIT) <0) puis < BR> MessageBox ("Impossible de créer un répertoire virtuel WEB, WScript.exe est introuvable ou erreur de script d'exécution.", SÉVÈRE);
endif;
SdShowMsg (szWaitTxt, FALSE);
endif;
return 0; fin
;
//////////////////////////
// créer et base de données optimize
///////////////////////////// Fonction
CreateDataBase (svSQLsvr, svSQLusr, svSQLp wd)
STRING szCmdLine, szWaitTxt;
begin
szWaitTxt = "Création" + @ PRODUCT_NAME + "Required Database ...";
SdShowMsg (szWaitTxt, TRUE);
Délai (2);
szCmdLine = "/ U" + svSQLusr + "/ P" + svSQLpwd + "/ S" + svSQLsvr + "/ Q \" exec sp_attach_db N'OASystem ', N' "+ SUPPORTDIR ^" OASystem_data.mdf '' \ "";
if (LaunchAppAndWait ("osql.exe", szCmdLine, WAIT) <0) puis
MessageBox ("La création de la base de données a échoué! Veuillez vous assurer que Microsoft SQL Server 2000 est installé sur votre système. Si vous ne parvenez toujours pas à le résoudre, veuillez contacter votre fournisseur de système! ", SEVERE);
endif;
SdShowMsg (szWaitTxt, FALSE);
szWaitTxt =" Optimizing "+ @ PRODUCT_NAME +" System Database ... ";
SdShowMsg (szWaitTxt, TRUE) ;
Délai (2);
szCmdLine = "/ U" + svSQLusr + "/ P" + svSQLpwd + "/ S" + svSQLsvr + "/ Q \" utilisez OASystem; exec sp_updatestats \ "";
si (LaunchAppAndWait ("osql.exe", szCmdLine, WAIT) <0) puis
MessageBox ("L'optimisation de la base de données a échoué! Vous pouvez exécuter utiliser OASystem dans l'analyseur de requêtes SQL; exec sp_updatestats terminé!", SÉVÈRE);
endif;
SdShowMsg (szWaitTxt, FALSE);
return 0;
end;
www.xd1998.com@2001-2030Partage De Technologie