'************************************************ * ***
'Créer un serveur Web
'Paramètres requis : WRoot, est le répertoire physique dans lequel le site est créé ; WComment est la description du site ; WPort est le port du site. ServerRun indique s'il doit s'exécuter automatiquement ;
' Renvoie 1 lorsque la création réussit, invite à quitter et renvoie 0 en cas d'échec, renvoie 2 lorsque le site est créé avec succès mais ne parvient pas à démarrer.
'************************************************ * ****
'
'******************Remarque : WPort est de type liste, ce qui signifie le port du serveur
' Cette fonction passe sur IIS5.0, **Doit être connecté en tant qu'administrateur**
'Exemple de port :
' Dim WPort, listes de liaisons, createflag, oOrdinateur
' oOrdinateur=""""LocalHost""""
'binglists=Tableau(0)
' binglists(0)="""":80:""""'Le numéro de port est 80
' WPort=listes bing
' createflag=CreateWebServer(""""D:myweb"""",""""My Home"""",WPort,False)'Appeler la fonction de création de site Web
' Si creatflag=0 Alors
' Response.Write """"Échec de la création du site ! Veuillez vous assurer d'avoir l'autorisation """"
' SinonSi createflag=1 Alors
' Response.Write """"Site créé avec succès ! """"
' SinonSi createflag=2 Alors
' Response.Write """"Création du site réussie, mais échec du démarrage du site, il peut y avoir un conflit de port ! """"
'Fin si
'************************************************ * *********
'A propos de la création du site Ftp, je l'ai publié en version asp. Les amis intéressés peuvent le consulter par eux-mêmes.
'Si vous avez des questions, n'hésitez pas à me contacter : [email protected]
Fonction CreateWebServer(WRoot,WComment,WPort,ServerRun)
En cas d'erreur, reprendre ensuite
Dim ServiceObj,ServeurObj,VDirObj
Set ServiceObj = GetObject(""""IIS://""""&oComputer&""""/W3SVC""")' Créez d'abord une instance de service
WNumber=1
Faire pendant que IsObject(ServiceObj.GetObject(""""IIsWebServer"""",WNumber))
Si Err.number<>0 Alors
Err.Effacer()
Quitter Faire
Fin si
WNuméro=WNuméro+1
Loop
Set ServerObj = ServiceObj.Create(""""IIsWebServer"""", WNumber)' Puis créez un serveur WEBIf
(Err.Number <> 0) Then' Y a-t-il une erreur ?
'Response.Write """"Erreur : l'opération ADSI de création du serveur Web a échoué ! """"
Créer un serveur Web = 0
Fonction de sortie
Fin si
' Puis configurez le serveur
ServerObj.ServerSize = 1 ' Taille moyenne
ServerObj.ServerComment = WComment 'Description
ServerObj.ServerBindings = WPort 'Port
ServerObj.EnableDefaultDoc=True
' Soumettre les informations
ServerObj.SetInfo
' Enfin, créez un répertoire virtuel
Définir VDirObj = ServerObj.Create(""""IIsWebVirtualDir"""", """"ROOT"""")
If (Err.Number <> 0) Then' Y a-t-il une erreur ?
'Response.Write """"Erreur : l'opération ADSI pour créer un répertoire virtuel a échoué ! """"
Créer un serveur Web = 0
Fonction de sortie
End If
'Configurer le répertoire virtuel
VDirObj.Path = WRoot
VDirObj.AccessRead = True
VDirObj.AccessWrite = True
VDirObj.EnableDirBrowsing = False
VDirObj.EnableDefaultDoc=True
VDirObj.AccessScript=True
VDirObj.AppCreate2 2
VDirObj.AppFriendlyName=""""Application par défaut""""
VDirObj.SetInfo
Si ServerRun = True Alors
ServerObj.Start
Si (Err.Number <> 0) Alors ' Erreur !
'Response.Write """"Erreur : erreur de démarrage du serveur ! Veuillez démarrer le serveur Web """"&WComment&"""" manuellement ! <br>""""
Créer un serveur Web = 2
Fonction de sortie
Fin si
Fin si
Définir VDirObj=Rien
Définir ServerObj=Rien
Définir ServiceObj=Rien
Créer un serveur Web = 1
Fonction de fin