Ajouter un site web sous IIS
Résolu
cs_Jordel
Messages postés
27
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
14 décembre 2007
-
7 déc. 2007 à 10:07
cs_Jordel Messages postés 27 Date d'inscription vendredi 1 février 2002 Statut Membre Dernière intervention 14 décembre 2007 - 12 déc. 2007 à 15:31
cs_Jordel Messages postés 27 Date d'inscription vendredi 1 février 2002 Statut Membre Dernière intervention 14 décembre 2007 - 12 déc. 2007 à 15:31
1 réponse
cs_Jordel
Messages postés
27
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
14 décembre 2007
12 déc. 2007 à 15:31
12 déc. 2007 à 15:31
Bonjour à tous,
Après de nombreuses recherches, j'ai réussi à faire ceci :
Public Sub CreateWebsite(ByVal serverComment As String, ByVal serverBindings As String, ByVal homeDirectory As String)
Dim w3svc As DirectoryEntry
Dim newsite() As Object
Dim websiteId As Object
w3svc = New DirectoryEntry("IIS://localhost/w3svc")
newsite = New Object() {serverComment, New Object() {serverBindings}, homeDirectory}
Try
websiteId = w3svc.Invoke("CreateNewSite", newsite)
Catch ex As Exception
' **********************************************
' Je cherche à récupérer l'identifiant du site WEB existant
' **********************************************
websiteId = ???
w3svc = New DirectoryEntry("IIS://localhost/w3svc/" & websiteId & "/")
w3svc.Path = homeDirectory
w3svc.CommitChanges()
End Try
End Sub
Ici, je souhaiterai savoir si mon site web TOTO existe et au lieu de le créer, je change simple le chemin du site !!!
Si z'avez une piste, n'hésitez pas :)
Après de nombreuses recherches, j'ai réussi à faire ceci :
Public Sub CreateWebsite(ByVal serverComment As String, ByVal serverBindings As String, ByVal homeDirectory As String)
Dim w3svc As DirectoryEntry
Dim newsite() As Object
Dim websiteId As Object
w3svc = New DirectoryEntry("IIS://localhost/w3svc")
newsite = New Object() {serverComment, New Object() {serverBindings}, homeDirectory}
Try
websiteId = w3svc.Invoke("CreateNewSite", newsite)
Catch ex As Exception
' **********************************************
' Je cherche à récupérer l'identifiant du site WEB existant
' **********************************************
websiteId = ???
w3svc = New DirectoryEntry("IIS://localhost/w3svc/" & websiteId & "/")
w3svc.Path = homeDirectory
w3svc.CommitChanges()
End Try
End Sub
Ici, je souhaiterai savoir si mon site web TOTO existe et au lieu de le créer, je change simple le chemin du site !!!
Si z'avez une piste, n'hésitez pas :)