=======================================================================================================================================
'Gracias por usar el programa de funciones prácticas desarrolladas por ASP001 Studio
'Http://www.asp001.net
'=====================================================================--
'QQ: 1974229
'Correo electrónico: [email protected]
'Para obtener más programas, descargue, visite http://www.asp001.net
'======================================================================================================================================
'Introducción de la función: iniciar/dejar de especificar el sitio web utilizando ASP
'Esta función utiliza ADSI y requiere permisos de los usuarios del grupo de administradores
'Nombre de la función: AdminWebSite (Computer, Websitenum, Dowhat)
'Desarrollo del programa: ASP001 Studio Chuqi
'Uso: AdminwebSite (nombre de la computadora, número de sitio, inicio/parada)
'Ejemplo: inicie un sitio con el sitio número 1 en la computadora 127.0.0.1
'AdminWebSite "127.0.0.1", "1", 1
'Ejemplo: detén el sitio con el sitio número 1 en la computadora 127.0.0.1
'AdminWebSite "127.0.0.1", "1", 0
'======================================================================================================================================
FunctionAdminwebsite (Computer, Websitenum, Dowhat)
OnerrorResumEnext
SetObJServer = getObject ("iis: //" & Computer & "/w3svc/" & witseSitenum)
Iferr.number <> 0then
Response.WriteNow & ". Código de error:" & Hex (err) y "-" & "no puede abrir el sitio especificado <br>"
Endif
ifdowhat = 1
'Use Iniciar el sitio
objserver.
Iferr.number <> 0then
Response.write "No se puede iniciar el sitio web especificado <br>"
demás
Response.write "Se ha iniciado el sitio web especificado <br>"
Endif
elseifdowhat = 0then
'Detente el sitio usando Stop
objserver.stop
Iferr.number <> 0then
Response.write "No se puede dejar de especificar el sitio web <br>"
demás
Response.write "Especificar el sitio web se ha detenido <br>"
Endif
endif
Función final