Set colItems = objWMIService.ExecQuery _ ("Select * from IIsWebServiceSetting")
For Each objItem in colItems objItem.AllowKeepAlive = True objItem.ConnectionTimeout = 1200 objItem.DontLog = False objItem.ServerComment = "This is an intranet-only server." objItem.Put_ Next