========================================================================================.
'Merci d'utiliser le programme de fonctions pratiques développé par ASP001 Studio
'Http://www.asp001.net
'===========================================================================================.
'QQ: 1974229
'E-mail: [email protected]
«Pour plus de programmes, téléchargez, veuillez vous rendre sur http://www.asp001.net
'=========================================================================================================.
'Fonction Introduction: démarrage / arrêt du site Web à l'aide d'ASP
'Cette fonction utilise ADSI et nécessite des autorisations utilisateur de groupe des administrateurs
'Nom de la fonction: adminwebsite (ordinateur, sites Web, dowhat)
«Développement du programme: ASP001 Studio Chuqi
'Utilisation: adminwebsite (nom de l'ordinateur, numéro de site, démarrage / arrêt)
'Exemple: démarrez un site avec le site numéro 1 sur l'ordinateur 127.0.0.1
'Adminwebsite "127.0.0.1", "1", 1
'Exemple: Arrêtez le site avec le site numéro 1 sur l'ordinateur 127.0.0.1
'Adminwebsite "127.0.0.1", "1", 0
'=========================================================================================================.
FunctionAdminwebsite (ordinateur, sites Web, dowhat)
Onerrorresumenext
SetObjServer = getObject ("iis: //" & ordinateur & "/ w3svc /" & websitetenum)
IFerr.Number <> 0THEN
Response.Writenow & ". Code d'erreur:" & hex (err) & "-" & "Impossible d'ouvrir le site spécifié <br>"
Endire
ifdowhat = 1Then
'Utiliser Démarrer le site
objserver.start
IFerr.Number <> 0THEN
Response.Write "Impossible de démarrer le site Web spécifié <br>"
autre
Response.Write "Le site Web spécifié a été démarré <br>"
Endire
ElseIfDowhat = 0Then
'Arrêtez le site en utilisant Stop
objserver.stop
IFerr.Number <> 0THEN
Response.Write "Impossible de cesser de spécifier le site Web <br>"
autre
Response.Write "Spécification du site Web a arrêté <br>"
Endire
endire
Finition de fin