class NsUserStats

La classe NsUserStats encapsule les statistiques propres à un utilisateur du système de sauvegarde, de type (NsUser).

CountAllVersions : __int64 readonly

Le nombre total de fichiers et de leurs versions stockées par l'utilisateur.

StoredSize : __int64 readonly

Le volume total stocké par l'utilisateur.

CountBrokenFiles : __int64 readonly

Le nombre de transferts en attente de reprise.

BrokenFilesSize : __int64 readonly

Le volume total de transferts en attente de reprise.

QuotasExceeded : VARIANT_BOOL readonly

Une variable booléenne indiquant si les quotas client ont été atteints ou non.

QuotaInterruptedBackups : long readonly

Le nombre de sauvegardes interrompues car les quotas avaient été atteints.

VARIANT_BOOL LoadFromID(NsConnection Connection, __int64 UserID)

Charge en mémoire les statistiques pour l'utilisateur d'identifieur UserID.

Affichage du nombre d'utilisateurs hors quotas.

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