'********************************************** ***
'Cria um servidor web
'Parâmetros obrigatórios: WRoot, é o diretório físico onde o site é criado; WComment é a descrição do site;
' Retorna 1 quando a criação é bem-sucedida, solicita a saída e retorna 0 quando falha, retorna 2 quando o site é criado com sucesso, mas falha ao iniciar.
'********************************************** ****
'
'******************Nota: WPort é do tipo List, ou seja, porta do servidor
'Esta função passa no IIS5.0, **Deve estar logado como administrador**
'Exemplo de porta:
' Dim WPort,bindlists,createflag,oComputer
'oComputador=""""LocalHost""""
'binglists=Array(0)
' binglists(0)="""":80:""""'O número da porta é 80
' WPort=listas de bing
' createflag=CreateWebServer(""""D:myweb"""",""""My Home"""",WPort,False)'Chama a função de construção de site
'Se creatflag=0 Então
' Response.Write """"Falha ao criar site! Por favor, certifique-se de ter permissão""""
' ElseIf createflag=1 Então
' Response.Write """"Site criado com sucesso! """"
' ElseIf createflag=2 Então
' Response.Write """"Criando o site com sucesso, mas falhando ao iniciar o site, pode haver um conflito de porta! """"
'Fim se
'********************************************** *********
'Sobre a criação do site FTP, publiquei na versão asp. Amigos interessados podem conferir por si mesmos.
'Se você tiver alguma dúvida, não hesite em entrar em contato comigo: [email protected]
Função CreateWebServer(WRoot,WComment,WPort,ServerRun)
Em caso de erro, retomar o próximo
Dim ServiceObj,ServerObj,VDirObj
Set ServiceObj = GetObject(""""IIS://""""&oComputer&""""/W3SVC""")' Primeiro crie uma instância de serviço
WNumber=1
Faça enquanto IsObject(ServiceObj.GetObject(""""IIsWebServer"""",WNumber))
Se Err.number<>0 Então
Err.Limpar()
Sair, fazer
Terminar se
WNúmero=WNúmero+1
Loop
Set ServerObj = ServiceObj.Create(""""IIsWebServer"""", WNumber)' Então crie um servidor WEBIf
(Err.Number <> 0) Then' Há algum erro?
'Response.Write """"Erro: falha na operação ADSI para criar servidor web! """"
CriarWebServidor=0
Função de saída
Terminar se
'Depois configure o servidor
ServerObj.ServerSize = 1 'Tamanho médio
ServerObj.ServerComment = WComment 'Descrição
ServerObj.ServerBindings = WPort 'Porta
ServerObj.EnableDefaultDoc=True
'Enviar informações
ServerObj.SetInfo
' Finalmente, crie um diretório virtual
Definir VDirObj = ServerObj.Create(""""IIsWebVirtualDir"""", """"ROOT"""")
If (Err.Number <> 0) Then' Há algum erro?
'Response.Write """"Erro: falha na operação ADSI para criar diretório virtual! """"
CriarWebServidor=0
Função de saída
End If
'Configurar diretório virtual
VDirObj.Path = WRoot
VDirObj.AccessRead = Verdadeiro
VDirObj.AccessWrite = Verdadeiro
VDirObj.EnableDirBrowsing = Falso
VDirObj.EnableDefaultDoc = Verdadeiro
VDirObj.AccessScript = Verdadeiro
VDirObj.AppCreate2 2
VDirObj.AppFriendlyName=""""Aplicativo padrão""""
VDirObj.SetInfo
se ServerRun = True então
ServidorObj.Start
If (Err.Number <> 0) Then ' Erro!
'Response.Write """"Erro: Erro ao iniciar o servidor! Por favor, inicie o WebServer """"&WComment&"""" manualmente! <br>""""
CriarWebServidor=2
Função de saída
Terminar se
Terminar se
Definir VDirObj=Nada
Definir ServerObj=Nada
Definir ServiceObj=Nada
CriarWebServidor=1
Função final