Lister les sites internet configurer dans iis avec adsi
Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 683 fois - Téléchargée 33 fois
Contenu du snippet
A voir également
- Lister les sites internet configurer dans iis avec adsi
- Sécuriser son site internet - Conseils pratiques - PHP
- Intégration système de paiement en ligne sur site internet ✓ - Forum - PHP
- Site internet - Forum - Java
- Liste de sites traitant directx 7 sous vb - Codes sources - Visual Basic / VB.NET (Direct X)
- Gerer ses adresses de site internet d'une façon simple ... - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
Commentaire
---------------------------------------------------------------------------------------
'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.