Discussion :

[PrinceMaster77]

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 ?

[PrinceMaster77]

Voici le contenu de mon fichier vbs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Chaps]

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