Lister les sites internet configurer dans iis avec adsi
Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 768 fois - Téléchargée 34 fois
Contenu du snippet
A voir également
- Lister les sites internet configurer dans iis avec adsi
- Template site internet gratuit - Conseils pratiques - PHP
- Code source site internet - Guide
- 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)
- Visual Basic / VB.NET : Trouver l'ip d' un site internet avec l 'api winsock - CodeS SourceS - Guide
---------------------------------------------------------------------------------------
'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.