Dim Srv, Usr Set Srv = CreateObject("UserManager.Server") 'Srv.Select "SERVER" For Each Usr In Srv.Users Usr.PasswordExpired = True Next