IIS 7 - проблема IIS 6

Question

Я пытаюсь запустить этот сценарий, чтобы назначить пул приложений веб-сайту, работающему под управлением IIS 6

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

Этот сценарий не может работать под IIS 6 ... Что-то не так?

Спасибо

Answer 1

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


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