'************************************************ * ***
'웹서버 생성
'필수 매개변수: WRoot는 사이트가 생성되는 물리적 디렉터리입니다. WComment는 사이트 설명이며, ServerRun은 자동으로 실행될지 여부입니다.
' 생성이 성공하면 1을 반환하고, 종료하라는 메시지를 표시한 후 실패하면 0을 반환하고, 사이트가 성공적으로 생성되었지만 시작에 실패하면 2를 반환합니다.
'************************************************ * ****
'
'********************참고: WPort는 목록 유형으로, 서버 포트를 의미합니다.
' 이 함수는 IIS5.0에서 전달됩니다. **관리자로 로그인해야 합니다**
'포트 예:
' 희미한 WPort,bindlists,createflag,o컴퓨터
' oComputer=""""LocalHost""""
'binglists=배열(0)
' binglists(0)="""":80:""""'포트 번호는 80입니다
' WPort=빙리스트
' createflag=CreateWebServer(""""D:myweb"""",""""My Home"""",WPort,False)'웹사이트 구축 기능 호출
' creatflag=0이면
' Response.Write """"사이트를 생성하지 못했습니다! 권한이 있는지 확인하세요.""""
' ElseIf createflag=1 그러면
' Response.Write """"사이트가 성공적으로 생성되었습니다! """"
' ElseIf createflag=2 그러면
' Response.Write """"사이트를 성공적으로 생성했으나 사이트 시작에 실패하면 포트 충돌이 발생할 수 있습니다! """"
'끝나면
'************************************************ * *********
'Ftp 사이트 생성에 대해서는 ASP 버전으로 공개했습니다. 관심 있는 친구들은 직접 확인해 보세요.
'질문이 있으시면 언제든지 저에게 연락주세요: [email protected]
기능 CreateWebServer(WRoot,WComment,WPort,ServerRun)
오류 발생 시 다음 재개
희미한 ServiceObj,ServerObj,VDirObj
Set ServiceObj = GetObject(""""IIS://""""&oComputer&""""/W3SVC"""))' 먼저 서비스 인스턴스를 생성합니다.
WNumber=1
IsObject(ServiceObj.GetObject(""""IIsWebServer"""",WNumber)) 동안 수행할 작업
Err.number<>0이면
Err.Clear()
나가기
종료 조건
W번호=W번호+1
Loop
Set ServerObj = ServiceObj.Create(""""IIsWebServer"""", WNumber)' 그런 다음 WEB 서버를 만듭니다.If
(Err.Number <> 0) Then' 오류가 있습니까?
'Response.Write """"오류: 웹 서버를 생성하는 ADSI 작업이 실패했습니다! """"
CreateWebServer=0
종료 기능
종료 조건
' 그런 다음 서버를 구성합니다.
ServerObj.ServerSize = 1 ' 중간 크기
ServerObj.ServerComment = WComment '설명
ServerObj.ServerBindings = WPort '포트
ServerObj.EnableDefaultDoc=True
' 정보 제출
ServerObj.SetInfo
' 마지막으로 가상 디렉터리를 만듭니다.
VDirObj = ServerObj.Create(""""IIsWebVirtualDir"""", """"ROOT"""") 설정
If (Err.Number <> 0) Then' 오류가 있습니까?
'Response.Write """"오류: 가상 디렉터리를 생성하는 ADSI 작업이 실패했습니다! """"
CreateWebServer=0
종료 기능
End If
'가상 디렉터리 구성
VDirObj.Path = WRoot
VDirObj.AccessRead = 참
VDirObj.AccessWrite = 참
VDirObj.EnableDirBrowsing = 거짓
VDirObj.EnableDefaultDoc=참
VDirObj.AccessScript=참
VDirObj.AppCreate2 2
VDirObj.AppFriendlyName=""""기본 응용 프로그램""""
VDirObj.SetInfo
ServerRun = True이면
ServerObj.Start
If (Err.Number <> 0) Then ' 오류!
'Response.Write """"오류: 서버 시작 중 오류가 발생했습니다! WebServer """"&WComment&""""를 수동으로 시작하십시오! <br>""""
CreateWebServer=2
종료 기능
종료 조건
종료 조건
VDirObj=아무것도 설정하지 않음
ServerObj=아무것도 설정하지 않음
ServiceObj=아무것도 설정하지 않음
CreateWebServer=1
기능 종료