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