Set colItems = objWMIService.ExecQuery _ ("Select * from IIsWebServiceSetting")
For Each objItem in colItems objItem.AppAllowClientDebug = True objItem.AppAllowDebugging = True objItem.AspScriptErrorMessage = "Sorry, an error has occurred." objItem.AspScriptErrorSentToBrowser = True objItem.Put_ Next