Set colItems = objWMIService.ExecQuery _ ("Select * from IIsWebServiceSetting")
For Each objItem in colItems objItem.AspDiskTemplateCacheDirectory = "C:\Cache" objItem.AspMaxDiskTemplateCacheFiles = 5000 objItem.AspScriptEngineCacheMax = 250 objItem.AspScriptFileCacheSize = 500 objItem.Put_ Next