'************************************************ * ***
'Crear un servidor web
'Parámetros requeridos: WRoot, es el directorio físico donde se crea el sitio; WComment es la descripción del sitio; WPort es el puerto del sitio ServerRun;
' Devuelve 1 cuando la creación es exitosa, solicita salir y devuelve 0 cuando falla, devuelve 2 cuando el sitio se crea exitosamente pero no se inicia.
'************************************************ * ****
'
'******************Nota: WPort es del tipo Lista, es decir, puerto del servidor
' Esta función pasa a IIS5.0, **Debe iniciar sesión como administrador**
'Ejemplo de puerto:
' Dim WPort,bindlists,createflag,oComputadora
' oComputadora=""""LocalHost""""
'binglists=Matriz(0)
' binglists(0)="""":80:""""'El número de puerto es 80
' WPort=listas de bing
' createflag=CreateWebServer(""""D:myweb"""",""""Mi casa"""",WPort,False)'Llamar a la función de creación de sitios web
' Si creatflag=0 Entonces
' Response.Write """"¡Error al crear el sitio! Por favor asegúrese de tener permiso""""
' De lo contrario, si createflag=1 entonces
' Response.Write """"¡Sitio creado exitosamente! """"
' De lo contrario, si createflag=2 entonces
' Response.Write """"Creando el sitio correctamente, pero no se puede iniciar, puede haber un conflicto de puerto. """"
'Finalizar si
'************************************************ * *********
'Sobre la creación del sitio Ftp, lo he publicado en la versión asp. Los amigos que estén interesados pueden comprobarlo por sí mismos.
'Si tiene alguna pregunta, no dude en ponerse en contacto conmigo: [email protected]
Función CreateWebServer(WRoot,WComment,WPort,ServerRun)
En caso de error Continuar siguiente
Atenuar ServiceObj,ServerObj,VDirObj
Set ServiceObj = GetObject(""""IIS://""""&oComputer&""""/W3SVC""")' Primero cree una instancia de servicio
WNumber=1
Hacer mientras IsObject(ServiceObj.GetObject(""""IIsWebServer"""",WNumber))
Si número de error<>0 entonces
Err.Borrar()
Salir Hacer
Terminar si
WNúmero=WNúmero+1
Loop
Set ServerObj = ServiceObj.Create(""""IIsWebServer"""", WNumber)' Luego cree un servidor WEB. Si
(Err.Number <> 0) Then' ¿Hay algún error?
'Response.Write """"Error: ¡Error en la operación ADSI para crear el servidor web! """"
CrearServidorWeb=0
Función de salida
Terminar si
' Luego configuramos el servidor
ServerObj.ServerSize = 1 ' Tamaño mediano
ServerObj.ServerComment = WComment 'Descripción
ServerObj.ServerBindings = WPort 'Puerto
ServerObj.EnableDefaultDoc=True
'Enviar información
ServerObj.SetInfo
'Finalmente, crea un directorio virtual
Establecer VDirObj = ServerObj.Create(""""IIsWebVirtualDir"""", """"ROOT"""")
Si (Err.Number <> 0) Entonces' ¿Hay algún error?
'Response.Write """"Error: ¡Error en la operación ADSI para crear el directorio virtual! """"
CrearServidorWeb=0
Función de salida
Fin si
'Configurar directorio virtual
VDirObj.Path = WRoot
VDirObj.AccessRead = Verdadero
VDirObj.AccessWrite = Verdadero
VDirObj.EnableDirBrowsing = Falso
VDirObj.EnableDefaultDoc=Verdadero
VDirObj.AccessScript=Verdadero
VDirObj.AppCreate2 2
VDirObj.AppFriendlyName=""""Aplicación predeterminada""""
VDirObj.SetInfo
Si ServerRun = True Entonces
ServerObj.Inicio
Si (Err.Number <> 0) Entonces ' ¡Error!
'Response.Write """"Error: ¡Error al iniciar el servidor! ¡Inicie WebServer """"&WComment&"""" manualmente! <br>""""
CrearServidorWeb=2
Función de salida
Terminar si
Terminar si
Establecer VDirObj=Nada
Establecer ServerObj = Nada
Establecer ServiceObj=Nada
CrearServidorWeb=1
Función final