Set colItems = objWMIService.ExecQuery _ ("Select * from IIsSmtpServiceSetting")
For Each objItem in colItems objItem.MaxOutConnections = 500 objItem.MaxOutConnectionsPerDomain = 250 objItem.RemoteSmtpPort = 25 objItem.RemoteTimeout = 900 objItem.Put_ Next