LISTER LES SITES INTERNET CONFIGURER DANS IIS AVEC ADSI
thorspark
Messages postés
15
Date d'inscription
mercredi 25 janvier 2006
Statut
Membre
Dernière intervention
24 août 2009
-
24 nov. 2006 à 12:38
thorspark Messages postés 15 Date d'inscription mercredi 25 janvier 2006 Statut Membre Dernière intervention 24 août 2009 - 24 nov. 2006 à 12:38
thorspark Messages postés 15 Date d'inscription mercredi 25 janvier 2006 Statut Membre Dernière intervention 24 août 2009 - 24 nov. 2006 à 12:38
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/28410-lister-les-sites-internet-configurer-dans-iis-avec-adsi
https://codes-sources.commentcamarche.net/source/28410-lister-les-sites-internet-configurer-dans-iis-avec-adsi
24 nov. 2006 à 12:38
---------------------------------------------------------------------------------------
'Script d'arrêt ou de démarrage d'un service Web
'sur ordinateur distant
'-------------------------------------------------------------------------
'Usage :
'ServIIS -s nomserveur -n nomservice -a action -?
'nomserveur : nom du serveur sur le domaine
'nomservice : nom descriptif du service web à stopper ou démarrer
'action : Start ou Stop selon s'il faut démarrer ou arrêter le service
'-? : Affiche l'utilisation
'-------------------------------------------------------------------------
' On force la déclaration des variables
Option Explicit
On Error Resume Next
' Variables
dim fullPath,Service
dim fini,i
dim Options,numopt
dim nserveur,nservice,action
Set Options = wscript.Arguments
numopt=0
' Récupération des infos mises en arguments de la ligne de commande
while numopt< Options.count
Select Case LCase(Options(numopt))
Case "-s":
numopt=numopt+1
nserveur=Options(numopt)
Case "-n":
numopt=numopt+1
nservice=Options(numopt)
Case "-a":
numopt=numopt+1
action=Options(numopt)
Case "-?":
call usage
Case Else:
call usage
End Select
numopt=numopt+1
wend
' Programme d'arrêt ou de démarrage
fini= false
i=1:i=cint(i)
fullPath = "IIS://"&nserveur&"/w3svc/"
Do while Not fini
Set Service = GetObject(fullPath&i)
if Service.ServerComment=nservice then
if action="Start" then
Service.Start
else
Service.Stop
End if
fini=True
End if
i=i+1
Loop
' fonction qui indique la façon d'utiliser le programme
Sub Usage
MsgBox _
"ServIIS -s nomserveur -n nomservice -a action -?"&VBCRLF& _
" -s nomserveur : nom du serveur sur le domaine"&VBCRLF& _
" -n nomservice : nom du service Web dans IIS"&VBCRLF& _
" -a action : Start ou Stop"&VBCRLF& _
" -? aide",vbInformation,"Usage"
WScript.Quit (1)
End Sub