更新时间:2023-12-03 18:50:58
我回来时回答了一个非常类似的问题.该示例使用了asdutil.vbs
工具,您可以从批处理文件中调用该工具:
I answered a very similar question a wee while back. The example uses the asdutil.vbs
tool which you can call from your batch file:
已更新:
由于您已经具有 CScript 脚本来创建网站,因此只需在脚本中设置AuthFlags
:
Because you've already got a CScript script to create the website, you can just set the AuthFlags
in the script:
'' Some values just as an example
iisNumber = 668
ipAddress = "172.16.3.200"
hostName = "myserver.com"
wwwfolder = "c:\mysites\www"
Dim serverBindings(1)
serverBindings(0) = ipAddress & ":80:www." & hostName
serverBindings(1) = ipAddress & ":80:" & hostName
'' Create server
Set w3svc = GetObject("IIS://localhost/w3svc")
Set newWebServer = w3svc.Create("IIsWebServer", iisNumber)
newWebServer.ServerBindings = serverBindings
newWebServer.ServerComment = "Server is: " & hostName
newWebServer.SetInfo
'' Create /root app
Set rootApp = newWebServer.Create("IIsWebVirtualDir", "ROOT")
rootApp.Path = wwwFolder
rootApp.AccessRead = true
rootApp.AccessScript = true
rootApp.AppCreate(True)
rootApp.AuthFlags = 4 '' <== Set AuthFlags here
rootApp.SetInfo