CRÉER UN COMPOSANT SCRIPT ASP

1/7

'Devant la demande importante sur la création de composant script ASP pour Windows, il a bien fallu que j'agisse.
'Ne voulant décevoir personne, j'ai pris le parti de concevoir et de développer un Windows Script Component dont voici les objectifs, les contraintes, les éléments, et bien sûr les explications.
'Je vous conseil par conséquent de jetez un oeil, si ce n'est déjà fait, au tutoriel sur comment compacter un base de données Access).

Vous pouvez télécharger le composant LENNE.Compactor à l'adresse http://compactor.lenne.org/compactor.wsc

'Attention on est pas là pour rigoler, accrocher vos ceintures, c'est long (Vous trouverez des numéros correspondants aux différents pages tout au long du document).


'Les objectifs : Créer un composant capable de compacter une base de donnée Access.

'Les contraintes : Ce composant doit être utilisable dans des pages ASP, sans nécessiter un codage importantet offrant le plus grand nombre d'option possible.

'Les outils : Windows Script Component Wizard (téléchargeable à l'adresse http://msdn.microsoft.com/downloads/default.asp?URL=/downloads/sample.asp?url=/msdn-files/027/001/788/msdncompositedoc.xml), Windows 2000 Server et enfin le serveur Web IIS.


 

'Maintenant que je sais ce que je veux faire, comment faire ?


'Je vais pour cela créer un composant script réutilisable, pour compacter une base de donnée Access.
'Il me faut maintenant choisir le nom de ce composant.Ce sera LENNE.Compactor . ;-)
'Définissons quelles vont être les propriétés et les méthodes de notre composant : (il nous sera toujours possible d'en ajouter ou de les modifier par la suite)

 
2/7

'© Copyright Ludovic Lenne - 2002

'L'objet : LENNE.Compactor



'Les propriétés :

'Backup : Retourne et Fixe la valeur booléenne de la sauvegarde de la base de données Access à compacter avec l'extension _AnnéeMoisJour.bak .
'               Par défaut sa valeur est False.


'syntaxe :
                 Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objCompactor.Backup = False
                 stringBackup = objCompactor.Backup
                 Response.Write stringBackup

'résultat :    False


'NameBase : Fixe le nom du fichier de la base de données Access à compacter.

syntaxe :
                 Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objCompactor.NameBase = "MyDatabase.mdb"


 

'PathBase : Fixe le chemin du répertoire où ce situe la base de données Access à compacter.

'syntaxe :
                 Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objCompactor.PathBase = "c:\Database\"


 

3/7


'UidBase : Fixe la valeur de l'identifiant d'accès à la base de données Access à compacter.

'syntaxe :
                 Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objCompactor.UidBase = "My_User_Id"


 

'PwdBase : Fixe la valeur du mot de passe d'accès à la base de données Access à compacter.

'syntaxe :
                 Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objCompactor.PwdBase = "My_Password"


      

'Engine : Retourne et Fixe le type de la base de données compactée. Correspond à Engine Type [ 3 (Access 2), 4 (Access 97), 5 (Access 2000) ].
'              Par défaut la valeur est 5 (Access 2000).


'syntaxe :
                 Set objCompactor = Server.CreateObject("LENNE.Compactor") 
                 objCompactor.Engine = 4
                 stringEngine = objCompactor.Engine
                 Response.Write stringEngine

'résultat :    4

 

'Enctype : Retourne et Fixe la valeur booléenne du cryptage de la bases de données compactée.
'                Par défaut sa valeur est False.


'syntaxe :
                 Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objCompactor.Enctype = False
                 stringEnctype = objCompactor.Enctype
                 Response.Write stringEnctype

'résultat :    False

4/7


'PathCompact : Retourne et Fixe le chemin du répertoire où ce situe le travail de compactage de la base de données Access.
'                        L'espace disponible dans ce répertoire doit être au moins égal à la taille de la base de données Access à compacter.
'                        Par défaut la valeur est celle de PathBase.

'syntaxe :
                 Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objCompactor.PathCompact = "D:\Temp\"
                 stringCompact = objCompactor.PathCompact
                 Response.Write stringCompact

'résultat :    D:\Temp\

 

'NameCompact : Retourne le nom de la base de données de compactage.
'                          Le nom se présentera sous la forme "My_Database.mdbCompactor.mdb".


'syntaxe :
                 Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 stringNameCompact = objCompactor.NameCompact
                 Response.Write stringNameCompact

'résultat :   My_Database.mdbCompactor.mdb

 

'UidCompact : Retourne et Fixe la valeur de l'identifiant d'accès à la base de données Access compactée.


'syntaxe :
                 Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objCompactor.UidCompact = "My_New_User_Id"
                 stringUidCompact = objCompactor.UidCompact
                 Response.Write stringUidCompact

'résultat :   My_New_User_Id

5/7

'PwdCompact : Retourne et Fixe la valeur du mot de passe d'accès à la base de données Access compactée.


'syntaxe :
                 Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objCompactor.PwdCompact = "My_New_Password"
                 stringPwdCompact = objCompactor.PwdCompact
                 Response.Write stringPwdCompact

'résultat :   My_New_Password

 

'Les méthodes :

'Compact "MapPathDatabase" : Compacte la base de données Access à compacter indiquée en paramètre.
'                                                  Utilise l'ensemble des paramètres fixés dans les propriétés, à l'exception de la base de données à compacter.
'                                                  Le paramètre MapPathDatabase peut-être nul.

'syntaxe :
                 Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objGenXML.Compact Server.MapPath("My_Database.mdb")



 

'Les syntaxes :

'Voici le syntaxe complète pour le compactage d'une base de données Access, a vous bien sûr de remplir les champs.

Set objCompactor = Server.CreateObject("LENNE.Compactor")
objCompactor.Backup = True
objCompactor.NameBase = "MyDatabase.mdb"
objCompactor.PathBase = "c:\Database\"
objCompactor.UidBase = "My_User_Id"
objCompactor.PwdBase = "My_Password"
objCompactor.Engine = 4
objCompactor.Enctype = False
objCompactor.PathCompact = "D:\Temp\"
objCompactor.UidCompact = "My_New_User_Id"
objCompactor.PwdCompact = "My_New_Password"
objCompactor.Compact
Set objCompactor = Nothing

'Et maintenat voici plus simple ;-). La base de données à compacter est une base Access non protégée. La base de données compactée est une base de données Access 2000, non protégée, non cryptée. Nous ne faisons pas de sauvegarde de la base de données à compacter. L'espace disque est suffisant dans le répertoire de la base à compacter (le poids de la base à compacter).

Set objCompactor = Server.CreateObject("LENNE.Compactor")
objGenXML.Compact Server.MapPath("My_Database.mdb")
Set objCompactor = Nothing

 
 
6/7

'Voilà qui est fait. En tout cas pour la première partie : nous avons défini les propriétés et les métodes de notre objet.
'Maintenant il n'y a plus qu'a lancer le programme Windows Script Component Wizard (téléchargeable à l'adresse : http://msdn.microsoft.com/downloads/default.asp?URL=/downloads/sample.asp?url=/msdn-files/027/001/788/msdncompositedoc.xml).

'A l'ouverture du premier écran.
'Vous pouvez mettre ce que vous voulez dans les champs Name, Version, Filemame et Location.
'Le fichier avec l'extension ".wsc" sera crée à l'emplacemet "Location" avec le nom du fichier "Filename".
'Attention Dans le Prog Id mettez le nom de l'objet que vous voulez créer. Ici LENNE.Compactor
'Vous aurez sans doute du mal a changer le numéro de version, mais nous pourrons le faire plus tard.


 
'Define Windows Script Component

'Name :        LENNE
'Filename :   Compactor
'Prog Id :      LENNE.Compactor
'Version :     2.01.24
'Location :    C:\Compactor\

 

'Au dieuxième écran, on vous demande de spécifier le language de script. Vous avez le choix entre VBScript ou JScript.
'Cochez la case "Do you want special implements support ?" et choissisez le bouton radio "Support Active Server Pages".
'N'hesitez pas à cocher "Error Checking" et "Debugging".

'Au troisième écran, nous devons maintenant rentrer les propriétés définies précédemment (vous pourrez en ajouter par la suite).


 

'Name             Type               Default 
'Backup           Read/Write      false  
'NameBase      Write-Only   
'PathBase        Write-Only   
'UidBase          Write-Only    
'PwdBase         Write-Only   
'Engine            Read/Write      5 
'Enctype          Read/Write      false 
'PathCompact  Read/Write   
'UidCompact    Read/Write   
'PwdCompact   Read/Write   

 

7/7

'Nous voici au quatrième et dernier écran. Il nous faut rentrer maintenant les méthodes de notre objet.
'Attention Les paramètres des méthodes doivent être séparés par de virgules.
'Si la méthode n'a aucun paramètre, laissez le champ vide.

 

'Name             Parameters 
'Compact          Compactor_NameBase 

 

'Il existe un cinqième écran qui vous demande le nom de vos événements. Je passerais ici sans plus d'explication.
'Le sixième écran vous donne les infos sur le composant que vous être en train de créer. 'Validez, et voyons un peu à quoi ressemble le fichier "Compactor.wsc".

'Lisez ce fichier avec les commentaires explicatifs que j'y ai mis.
'J'ai modifié ce fichier en y ajoutant l'extension ".xml" pour une meilleure lisibilité (visible à l'adresse : http://compactor.lenne.org/compactor.wsc.xml )

'Vous pouvez télécharger le composant LENNE.Compactor : http://compactor.lenne.org/compactor.wsc

'Attention Les commentaires ne sont pas autorisés dans le fichier final. Dans le cas contraire, une erreur sera générée.


'A présent, il vous reste à cliquer le bouton droit de votre souris sur le fichier Compactor.wsc et inscrire le composant.