'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
---------------------------------------------------------------------------------------
'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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.