dim User, Users, DefSize, Count set Users=WScript.CreateObject("MailServerX.Users") DefSize=5 DefSize=InputBox("Please enter default Mailbox Size","Mailbox Size", DefSize) if DefSize<>"" then Count=0 for i=0 to Users.Count-1 set User=Users.Items(i) User.MailBoxSize=DefSize Users.Items(i)=User Count=Count+1 next MsgBox Count & " accounts updated", 65, "Mailbox Size" else MsgBox "Operation Canceled", 17, "Mailbox Size" end if