IIS自動開通組件編程_電腦知識網
熱點推薦:
您现在的位置: 電腦知識網 >> 操作系統 >> Windows服務器 >> 正文

IIS自動開通組件編程

2013-11-11 22:14:15  來源: Windows服務器 

   創建一個WebServer
   必須參數WRoot為創建站點的物理目錄WComment為站點說明WPort為站點端口ServerRun為是否自動運行&n
  bsp;
   當創建成功時返回失敗時提示退出並返回當創建站點成功但啟動失敗時返回
  **************************************
    
  ******************注意WPort為List類型意為服務器端口***************
    本函數在IIS上通過**必須以管理員身份登錄**
   端口舉例
   Dim WPortbindlistscreateflagoComputer
   oComputer=LocalHost
   binglists=Array()
   binglists()=::端口號為
   WPort=binglists
   createflag=CreateWebServer(D:\myweb我的家園WPortFalse)調用建站函數
    If creatflag= Then
   ResponseWrite 創建站點失敗!請確定是否有權限
   ElseIf createflag= Then
   ResponseWrite 創建站點成功!
   ElseIf createflag= Then
   ResponseWrite 創建站點成功但啟動站點失敗可能端口沖突!
   End If
  **************************************
  
  Function CreateWebServer(WRootWCommentWPortServerRun)
  On Error Resume Next
  Dim ServiceObjServerObjVDirObj
  Set ServiceObj = GetObject(IIS://&oComputer&/WSVC) 首先創建一個服務實例
  
  WNumber=
  Do While IsObject(ServiceObjGetObject(IIsWebServerWNumber))
  If Errnumber<> Then
  ErrClear()
  Exit Do
  End If
  WNumber=WNumber+
  Loop
  
  Set ServerObj = ServiceObjCreate(IIsWebServer WNumber) 然後創建一個WEB服務器
  
  If (ErrNumber <> ) Then 是否出錯
  ResponseWrite 錯誤: 創建Web服務器的ADSI操作失敗!
  CreateWebServer=
  Exit Function
  End If
  
   接著配置服務器
  ServerObjServerSize = 中型大小
  ServerObjServerComment = WComment 說明
  ServerObjServerBindings = WPort 端口
  ServerObjEnableDefaultDoc=True
  
   提交信息
  ServerObjSetInfo
  
   最後建立虛擬目錄
  Set VDirObj = ServerObjCreate(IIsWebVirtualDir ROOT)
  
  If (ErrNumber <> ) Then 是否出錯
  ResponseWrite 錯誤: 創建虛擬目錄的ADSI操作失敗!
  CreateWebServer=
  Exit Function
  End If
  
   配置虛擬目錄
  VDirObjPath = WRoot
  VDirObjAccessRead = True
  VDirObjAccessWrite = True
  VDirObjEnableDirBrowsing = False
  VDirObjEnableDefaultDoc=True
  VDirObjAccessScript=True
  VDirObjAppCreate
  VDirObjAppFriendlyName=默認應用程序
  VDirObjSetInfo
  
  If ServerRun = True Then
  ServerObjStart
  If (ErrNumber <> ) Then Error!
  ResponseWrite 錯誤: 起動服務器時出錯!請手動啟動WebServer &WComment&
  
  CreateWebServer=
  Exit Function
  End If
  End If
  Set VDirObj=Nothing
  Set ServerObj=Nothing
  Set ServiceObj=Nothing
  CreateWebServer=
  End Function
From:http://tw.wingwit.com/Article/os/fwq/201311/10228.html
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.