La classe NsUserStats encapsule les statistiques propres à un utilisateur du système de sauvegarde, de type (NsUser).
Le nombre total de fichiers et de leurs versions stockées par l'utilisateur.
Le volume total stocké par l'utilisateur.
Le nombre de transferts en attente de reprise.
Le volume total de transferts en attente de reprise.
Une variable booléenne indiquant si les quotas client ont été atteints ou non.
Le nombre de sauvegardes interrompues car les quotas avaient été atteints.
Charge en mémoire les statistiques pour l'utilisateur d'identifieur UserID.
Set connection = CreateObject("NsAPI.NsConnection") if connection.ConnectToLocalServer then set server = CreateObject("NsAPI.NsServer") usersOutOfQuotas = 0 if server.Load(connection) then ' Charger les informations serveur set groups = server.UserGroups(connection) ' Obtenir la liste des groupes for each group in groups ' Pour chaque groupe... set users = group.Users(connection) '... obtenir ses utilisateurs. for each user in users ' Pour chaque utilisateur du groupe... set stats = CreateObject("NsAPI.NsUserStats") if stats.LoadFromID(connection, user.ID) then ' Charger les statistiques utilisateur if stats.QuotasExceeded then usersOutOfQuotas + usersOutOfQuotas + 1 end if end if next next end if MsgBox "Nombre d'utilisateurs hors quotas : " & usersOutOfQuotas connection.Disconnect else MsgBox "Connexion au serveur local impossible." end if