INNO打包网站,设置inter来宾帐户写入修改权限问题,高手帮忙解决

[xiongsenlin]

我打包了一个网站,但是就是不哓的怎么回事,怎么修改这个包中的脚本文件,虚拟目录中都没有inter来宾帐户写入修改权限,其它设置父路径,目录浏览权限功能都实现了.

有高手进来帮忙看一下,看看问题出在哪儿

'
' Create Virtual Dir in IIS
' Tested on: IIS 4.0 and IIS 5.0
' Autore: Vincenzo Giordano
' email: vincenzog(at)libero.it
' Data: 13 December 2001
'
' All variables must be created explicitly
Option Explicit
Dim sName, sPath
'name of virtual dir
sName = "exam"
'first parameter is dir to share
if WScript.Arguments.Count > 0 then
spath = WScript.Arguments(0)
else
'no parameters so set a default dir
sPath = "C:\InetPub\wwwroot"
end if
Dim oIIS, oDir
Set oIIS = GetObject("IIS://localhost/W3SVC/1/Root")
oIIS.AuthAnonymous = True
oIIS.AspRunOnEndAnonymously =True
oIIS.AuthNTLM = True
On Error Resume Next
Set oDir = oIIS.GetObject("IISWebVirtualDir", sName)
' This will return error -2147024893 if it doesn't exist
If Err.Number <> 0 Then Set oDir = oIIS.Create("IISWebVirtualDir", sName)
Err.Clear
oDir.AccessScript = True
oDir.Path = sPath
'oDir.defaultDoc = index.asp
oDir.AspEnableParentPaths = True
oDir.AuthAnonymous = True
oDir.AspRunOnEndAnonymously =True
oDir.AuthNTLM = True
oDir.AccessExecute = False
oDir.AccessSource =True
oDir.AccessScript = True
oDir.AccessExecute = True
oDir.AccessRead = True
oDir.AppIsolated = 2
'oDir.EnableDirBrowsing = True
ODir.DirBrowseShowDate = True
oDir.DirBrowseShowTime = True
oDir.DirBrowseShowSize = True
oDir.DirBrowseShowExtension =True
oDir.DirBrowseShowLongDate = True
oDir.EnableDefaultDoc = True
' Workaround for bug in IIS4
oDir.KeyType = "IIsWebVirtualDir"
oDir.SetInfo
oDir.AppCreate True
oDir.SetInfo
Set oDir = Nothing
Set oIIS = Nothing