=========================================================================================.
'Obrigado por usar o programa de função prática desenvolvida pelo ASP001 Studio
'Http://www.asp001.net
'============================================================================' ASP001 Studio Você está com o desenvolvimento personalizado e o desenvolvimento da Internet Expidos
'QQ: 1974229
'E-mail: [email protected]
'Para mais programas Download, vá para http://www.asp001.net
'========================================================================================
'Função Introdução: Inicie/Pare de especificar o site usando ASP
'Esta função usa o ADSI e requer permissões de usuário do grupo de administradores
'Nome da função: adminwebsite (computador, websitenum, dowhat)
'Desenvolvimento do Programa: ASP001 Studio Chuqi
'Uso: adminwebsite (nome do computador, número do site, start/stop)
'Exemplo: Inicie um site com o site número 1 no computador 127.0.0.1
'Adminwebsite "127.0.0.1", "1", 1
'Exemplo: pare o site com o site número 1 no computador 127.0.0.1
'AdminWebsite "127.0.0.1", "1", 0
'========================================================================================
FunctionAdMinWebsite (Computador, Websitenum, Dowhat)
OnErrorReSumenext
SetObjServer = getObject ("iis: //" & Computer & "
Iferr.number <> 0then
Response.WritEnow & ". Código de erro:" & Hex (err) & "-" & "não pode abrir o site especificado <br>"
Endif
ifdowhat = 1hen
'Use inicie o site
objserver.start
Iferr.number <> 0then
Response.Write "Não é possível iniciar o site especificado <br>"
outro
Response.Write "Site especificado foi iniciado <br>"
Endif
elseifdowhat = 0then
'Pare o site usando o STOP
objserver.stop
Iferr.number <> 0then
Response.Write "Não consigo parar de especificar o site <br>"
outro
Response.Write "Especificando o site parou <br>"
Endif
endif
Função final