大家看看这段代码有什么问题，我执行没有错误，但是就是看不到结果

[coollzh]

myServer = Request.ServerVariables( "SERVER_NAME" )
ADSIPath = "IIS://" & myServer & "/W3SVC"
dim defaultSite

set defaultSite=getObject(ADSIPath)
‘新建站点
Set vDir=defaultSite.Create("IIsWebServer","newsite")
vDir.appRoot="c:\testdir"
vDir.AppFriendlyName="myFriendName"

'设置站点属性
vDir.AccessRead = TRUE
vDir.AccessScript = TRUE
vDir.DefaultDoc = "index.asp"

我用这段asp代码在我的win2000server上新建一个站点，执行没有错误,但是看不到结果，没有新站点被建立，高手指点

[coollzh]

高人帮我看看

[turbopeng]

MM

[coollzh]

where 高人

[donotbesilent]

何不放到ASP版?