台灣最大程式設計社群網站
線上人數
873
 
會員總數:245608
討論主題:189311
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> ADSI的方式控制IIS
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
ADSI的方式控制IIS
價值 : 0 QP  點閱數:718 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員

Function CreateNewNode(strUsername)




Dim oParentNode, oNewNode, oRootNode
Dim oParent1Node, oNew1Node, oRoot1Node




Set oParentNode = GetObject("IIS://localhost/MSFTPSVC/2/ROOT")
Set oParent1Node = GetObject("IIS://localhost/W3SVC/3/ROOT")


Set oNewNode=oParentNode.Create("IIsFTPVirtualDir", strUsername)
Set oNew1Node=oParent1Node.Create("IIsWebVirtualDir", strUsername)





'Set some vdir stuff. This creates an application, etc.
oNewNode.Path="C:\Inetpub\workweb\users\" & strUsername
oNew1Node.Path="C:\Inetpub\workweb\users\" & strUsername


'(允許這個站台的匿名存取)
oNew1Node.AuthAnonymous = True

oNew1Node.AppFriendlyName = "預設的應用程式"

'應用程式等級(1 or 2 or 3)
oNew1Node.AppCreate2 2
'是否能瀏覽目錄
oNew1Node.EnableDirBrowsing = FALSE
'是否能執行指令
oNew1Node.AccessScript = TRUE
oNew1Node.EnableDefaultDoc = TRUE
oNew1Node.AccessExecute = FALSE
oNew1Node.AccessRead = TRUE
oNew1Node.AccessWrite = FALSE
'是否能讀取
'False=no 讀取
oNewNode.AccessRead = True
oNewNode.AccessWrite = True


'Commit the changes...

oNewNode.SetInfo
oNew1Node.SetInfo
Set oNewNode = Nothing
Set oNew1Node = Nothing


End Function

去MSDN查!

本篇文章發表於2002-04-21 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.