[Inno Setup] Créer un alias IIS

Je voudrais créer un alias IIS lors de l'installation de mon application, mon soucis est qu'il ne rajoute pas dans les propriétés de mon alias "le nom de l'application" et d"autres part je voudrais rajouter un document par défaut qui soit en premier dans la liste mon application commencant par une page "Index.Asp", j'ai eu beau chercher sur le net j'ai pas trouvé grand chose pour m'aider ?

Voici le contenu de mon fichier vbs :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

' All variables must be created explicitly Option Explicit   Dim sName, sPath   'name of virtual dir sName = "DkRepro"   'first parameter is dir to share sPath = "D:\DkRepro"   Dim oIIS, oDir Set oIIS = GetObject("IIS://localhost/W3SVC/1/Root") On Error Resume Next Set oDir = oIIS.GetObject("IISWebVirtualDir", sName) ' This will return error -2147024893 if it doesn't exist If Err.Number <> 0 Then Set oDir = oIIS.Create("IISWebVirtualDir", sName) Err.Clear oDir.AccessScript = True oDir.Path = sPath   ' Workaround for bug in IIS4 oDir.KeyType = "IIsWebVirtualDir"   oDir.SetInfo oDir.AppCreate True oDir.SetInfo Set oDir = Nothing Set oIIS = Nothing

---

Bonjour,

L'ADSI (Active Directory Service Interface) te permet de faire ça. C'est une tribu d'objets COM qui donne accés aux différents objets du system. Il existe des objets pour IIS qui permettent l'accés aux métadonnées qui correspondent aux sites.

L'exemple le plus connu avec Delphi (via l'import IISEXT.dll) :
http://groups.google.com/groups?selm...&output=gplain

un autre exemple : http://groups.google.com/groups?hl=f....microsoft.com

Le script VBS de PrinceMaster77 utilise cette technique.
Le site : www.15Seconds.com est plein d'exemples de script ADSI (en VB généralement mais c'est pareil avec delphi).

Article : http://www.15seconds.com/issue/980304.htm

Pascal