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
Bonjour à tous,

Je souhaiterai via VB2005 configurer (ajouter/supprimer) un site web dans mon IIS...
En cherchant pas mal, je n'ai pas trouvé grand chose à part ce code :
        Dim VdirObj, SFServ_Obj As Object
        SFServ_Obj = GetObject("IIS://LocalHost/w3svc/1/Root")

        Try
             VdirObj = SFServ_Obj.Create("IIsWebVirtualDir", "NomSite")
        Catch ex As Exception
             VdirObj = GetObject("IIS://LocalHost/w3svc/1/Root/ NomSite" )
        End Try

        VdirObj.AccessWrite = True
        VdirObj.AccessRead = True
        VdirObj.AccessScript = True
        VdirObj.DefaultDoc = "index.asp"
        VdirObj.EnableDefaultDoc = True
        VdirObj.Put("Path", "PathDuNouveauSite")
        VdirObj.SetInfo()

Le problème c'est que ce code me permet seulement de créer un répertoire virtuel dans le site web par défaut...
Or je souhaite créer un nouveau site web dans IIS...

Est-ce possible ???

Merci d'avance

PS : désolé si le sujet n'entre pas dans la catégorie... mais je ne savais pas où mettre mon post...

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
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 :)
Rejoignez-nous