1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Lister les sites internet configurer dans iis avec adsi

Lister les sites internet configurer dans iis avec adsi

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 638 fois - Téléchargée 33 fois

Commenter

Contenu du snippet

Aucune description n'est fournie pour ce projet

A voir également

Ajouter un commentaire

Commentaire

Signaler
thorspark
Messages postés
15
Date d'inscription
mercredi 25 janvier 2006
Statut
Membre
Dernière intervention
24 août 2009
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
S'inscrire maintenant

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.

Du même auteur (ABL-Online)