有没有办法编写一个IIS 6网站的创build？ 我没有权限访问PowerShell，所以它将不得不使用常规命令或cscript脚本。
此方法适用于Windows Server 2003 IIS 6.0：
strComputer = "." Set objWMIService = GetObject _ ("winmgmts:{authenticationLevel=pktPrivacy}\\" _ & strComputer & "\root\microsoftiisv2") Set objWebService = objWMIService.ExecQuery _ ("Select * From IISWebService") arrBindings = Array(0) Set arrBindings(0) = _ objWMIService.Get("ServerBinding").SpawnInstance_() arrBindings(0).IP = "192.168.1.1" arrBindings(0).Port = "80" arrBindings(0).Hostname = "www.example.com" For Each objItem in objWebService objItem.CreateNewSite "Test Site", arrBindings, _ "c:\inetpub\wwwroot\testsite" Next 以下是指向与Internet Information Server 6.0上的Web站点相关的Microsoft TechNet脚本存储库的链接。
另一个有用的TechNet文章解释了如何以编程方式创buildAppPool。
这是另一种方法，它也适用于Windows Server 2000（IIS 5.0）。 写一个.vbs文件：
IISWebName = "Name of the Web" IISWebPath = "D:\Websites\MyWeb" IISWebHeader = "http://www.example.com" IISIPAddress = "10.0.0.10" Set wsShell = CreateObject("WScript.Shell") wsShell.Run "iisweb.vbs /create """ & IISWebPath & """ """ & IISWebName & """ /b 80 /i """ & IISIPAddress & """" /d """ & IISWebHeader & """"
如果你想添加虚拟目录，你可以这样做：
oShell2.Run "iisvdir.vbs /create """ & IISWebName & """ pfengine ""D:\Common\engine"""
您可能还想要自定义网站，而不是保留其默认设置。 经过多次争吵，这就是我想到的：
Sub CreateWebsite(name, hostName, physicalPath) ' Make connections to WMI, to the IIS namespace on the local machine. Then grab a reference to the WWW service Dim locatorObj : set locatorObj = CreateObject("Wbemscripting.SWbemLocator") Dim providerObj : set providerObj = locatorObj.ConnectServer(".", "root/MicrosoftIISv2") Dim serviceObj : set serviceObj = providerObj.Get("IIsWebService='W3SVC'") 'Create a new instance as per splattne's answer Dim Bindings : Bindings = Array(0) Set Bindings(0) = providerObj.get("ServerBinding").SpawnInstance_() Bindings(0).IP = "" Bindings(0).Port = "80" Bindings(0).Hostname = hostName ' Create the new Web site using the CreateNewSite method of the IIsWebService object. Dim newSitePath : newSitePath = serviceObj.CreateNewSite(name, Bindings, physicalPath) ' CreateNewSite returns a string reference to the created web service. To alter the settings we need to create a string which references the root virtual directory settings. Dim settingsPath : settingsPath = Replace(Left(newSitePath, Len(newSitePath) - 1) & "/ROOT'", "IIsWebServer","IIsWebVirtualDirSetting") ' Grab a reference to the settings Dim settings : set settings = providerObj.get(settingsPath) ' By comparing the settings of an existing, manually set up site, and one created with Splattne's method I realised I needed to change the following settings.AspEnableParentPaths = True settings.AccessFlags = 512 settings.AccessRead = True settings.AuthAnonymous = True settings.AuthFlags = 5 settings.AuthNTLM = True settings.AccessScript = True settings.AppFriendlyName = name settings.Put_() ' Set a custom handler for 500 errors. In this case a url called 500.asp. This is a bit hacky but it works. settings.HttpErrors(41).Properties_("HttpErrorCode") = 500 settings.HttpErrors(41).Properties_("HttpErrorSubcode") = "*" settings.HttpErrors(41).Properties_("HandlerType") = "URL" settings.HttpErrors(41).Properties_("HandlerLocation") = "/500.asp" settings.Put_() ' Start the service Dim newSite: set newSite = providerObj.Get(newSitePath) newSite.Start End Sub
我认为PowerShell是真正用于IIS 7.你确定你想要IIS 6而不是IIS 7吗？ IIS 7有appcmd命令这是有点难以使用，但工程。