'************************************************ * ***
'Webサーバーを作成する
'必須パラメータ: WRoot はサイトが作成される物理ディレクトリです。WComment はサイトの説明です。ServerRun は自動的に実行するかどうかです。
' 作成が成功した場合は 1 を返し、失敗した場合は終了を求めるプロンプトが表示されて 0 を返し、サイトが正常に作成されたが起動に失敗した場合は 2 を返します。
'************************************************ * ****
'
'*******************注: WPort はリスト型であり、サーバーポートを意味します
' この関数は IIS5.0 を継承します。**管理者としてログインする必要があります**
'ポートの例:
' Dim WPort、バインドリスト、作成フラグ、oComputer
' oコンピューター=""""ローカルホスト""""
'binglists=配列(0)
' binglists(0)="""":80:""""'ポート番号は 80 です
' WPort=binglists
' createflag=CreateWebServer(""""D:myweb"""",""""My Home"""",WPort,False)'Web サイト構築関数を呼び出す
' creatflag=0 の場合、次に
' Response.Write """"サイトの作成に失敗しました!許可があることを確認してください""""
' ElseIf createflag=1 then
' Response.Write """"サイトは正常に作成されました。 「」「」
' ElseIf createflag=2 then
' Response.Write """"サイトは正常に作成されましたが、サイトの起動に失敗しました。ポートが競合している可能性があります。 「」「」
'終了の場合
'************************************************ * *********
FTP サイトの作成については、ASP バージョンで公開しましたので、興味のある方はご自身で確認してください。
'ご質問がございましたら、お気軽にご連絡ください: [email protected]
Function CreateWebServer(WRoot,WComment,WPort,ServerRun)
エラー時は次へ再開
Dim ServiceObj、ServerObj、VDirObj
Set ServiceObj = GetObject(""""IIS://""""&oComputer&""""/W3SVC""")' まずサービス インスタンス
WNumber=1
を作成します。
Do While IsObject(ServiceObj.GetObject(""""IIsWebServer"""",WNumber))
Err.number<>0 の場合
エラークリア()
終了する
終了の場合
W番号=W番号+1
Loop
Set ServerObj = ServiceObj.Create(""""IIsWebServer"""", WNumber)' 次に、WEB サーバーを作成しますIf
(Err.Number <> 0) then' エラーはありますか?
'Response.Write """"エラー: Web サーバーを作成するための ADSI 操作が失敗しました。 「」「」
Webサーバーの作成=0
終了関数
終了の場合
' 次にサーバーを設定します
ServerObj.ServerSize = 1 ' 中サイズ
ServerObj.ServerComment = WComment '説明
ServerObj.ServerBindings = WPort 'ポート
ServerObj.EnableDefaultDoc=True
' 情報を送信します
ServerObj.SetInfo
' 最後に、仮想ディレクトリを作成します
Set VDirObj = ServerObj.Create(""""IIsWebVirtualDir"""", """"ROOT"""")
If (Err.Number <> 0) then' エラーがありますか?
'Response.Write """"エラー: 仮想ディレクトリを作成する ADSI 操作が失敗しました。 「」「」
Webサーバーの作成=0
終了関数
End If
'仮想ディレクトリを構成する
VDirObj.Path = WRoot
VDirObj.AccessRead = True
VDirObj.AccessWrite = True
VDirObj.EnableDirBrowsing = False
VDirObj.EnableDefaultDoc=True
VDirObj.AccessScript=True
VDirObj.AppCreate2 2
VDirObj.AppFriendlyName=""""デフォルトのアプリケーション""""
VDirObj.SetInfo
ServerRun = True の場合
ServerObj.Start
If (Err.Number <> 0) then ' エラー!
'Response.Write """"エラー: サーバーの起動エラー! WebServer """"&WComment&"""" を手動で起動してください。 <br>「」「」
Webサーバーの作成=2
終了関数
終了の場合
終了の場合
VDirObj=何も設定しない
ServerObj=Nothing を設定します
ServiceObj=Nothing を設定します
Webサーバーの作成=1
終了機能