Vbscript IIS 7-IIS 6问题

我正在尝试运行此脚本以将应用程序池分配给在IIS 6下运行的网站

Set oWebAdmin = GetObject("winmgmts:root\WebAdministration")
Set oSite = oWebAdmin.Get("Site.Name='Site'")
oSite.ApplicationDefaults.ApplicationPool = "NewAppPool"
oSite.Put_

此脚本无法在IIS 6下运行。。。有什么不对劲吗

---

谢谢，

是的，root\WebAdministration在IIS7中是新的，在IIS6中无法工作。使用ADSI。我在iis 7上遇到8004100E错误。有什么提示吗？如果你希望我可以发布我的代码。是的，root\WebAdministration在IIS7中是新的，在IIS6中无法工作。使用ADSI。我在iis 7上遇到8004100E错误。有什么提示吗？如果你愿意，我可以发布我的代码。

Set objVirtualDirectory = GetObject( "IIS://localhost/" + strSitePath + "/ROOT" )


' Assign the Pool to the Site
objVirtualDirectory.AppPoolID = strAppPool
objVirtualDirectory.AppFriendlyName = "me app"
objVirtualDirectory.Put_()