用ASP.NET（VB版）创建WINDOWS 2000 SERVER站点

HandleSameCase = False

CreateSite:

@#MsgBox I

WWWServer = WWWService.Create("IISWebServer", i) @#创建新站点

WWWServer.ServerComment = WWWSiteName @#设置站点名

WWWServer.Serverbindings = ":" & WWWTCPPort & ":" @#设置端口号

WWWServer.DefaultDoc = "default.asp,index.asp,default.htm,index.htm" @#设置默认启动文件

WWWServer.AccessScript = True @#设置权限

WWWServer.AccessRead = True

WWWServer.SetInfo()

@#创建设置主目录

WWWServer = GetObject("IIS://" & ComputerName & "/W3SVC/" & i)

WWWVdir = WWWServer.Create("IISWebVirtualDir", "root")

WWWVdir.Path = WWWFilesPath @#主目录的实际磁盘路径

WWWVdir.SetInfo()

WWWVdir.AppCreate(True)

WWWServer.Start() @#启动新站点

@#建立虚拟目录

@#Set WWWVdirRes = WWWVdir.Create("IISWebVirtualDir", "Resource") @#创建虚拟目录