vbscript 新建IIS 应用程序池 急~~~~~~~~~~~~~~

[szlovejf]

现准备用NSIS写一个包用于发布一个web app，因为是用.NET 4.0 写的，而现在的应用程序池中的都是用.NET 2.0写的，所以在配置IIS的时候想用VBSCRIPT新建一个应用程序池然后将项目发布，求高手代码~~~~~~~~~~~~~~

[chinaskysun]

iis6的，iis7你就要自己再找了

Function Create_vAppPool(ID)
	Dim vRoot,vAppPool
	Set vRoot = GetObject("IIS://localhost/W3SVC/AppPools", "")
	Set vAppPool = vRoot.Create("IISApplicationPool", "AppPool_" & ID)
	vAppPool.SetInfo() 
	Set vAppPool = Nothing
	Set vRoot = Nothing
End Function 

Create_vAppPool(1)

[shupo]

来学习下。

[szlovejf]

[Quote=引用楼主 szlovejf 的回复:]
现准备用NSIS写一个包用于发布一个web app，因为是用.NET 4.0 写的，而现在的应用程序池中的都是用.NET 2.0写的，所以在配置IIS的时候想用VBSCRIPT新建一个应用程序池然后将项目发布，求高手代码~~~~~~~~~~~~~~
[/Quote]


非常感谢，顺便你能告诉如何用vbscript如何重启IIS服务吗？

[szlovejf]

[Quote=引用 1 楼 chinaskysun 的回复:]

iis6的，iis7你就要自己再找了

VBScript code
Function Create_vAppPool(ID)
Dim vRoot,vAppPool
Set vRoot = GetObject("IIS://localhost/W3SVC/AppPools", "")
Set vAppPool = vRoot.Create("IISApplicatio……
[/Quote]

非常感谢，顺便你能告诉如何用vbscript如何重启IIS服务吗？