Set colItems = objWMIService.ExecQuery _ ("Select * from IIsFtpServiceSetting")
For Each objItem in colItems objItem.AllowAnonymous = True objItem.AnonymousOnly = True objItem.AnonymousUserName = "TestUser" objItem.AnonymousUserPass = "password" objItem.Put_ Next