LISTER LES SITES INTERNET CONFIGURER DANS IIS AVEC ADSI

Commentaire de thorspark le 24/11/2006 12:38:58

Pour info, voici un script (vbscript) permettant d'arrêter ou de démarrer un service web IIS sur un des serveurs du domaine

---------------------------------------------------------------------------------------

'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