La classe NsBackupStats décrit les statistiques d'une sauvegarde stockée par le serveur, de type NsBackup.
Une variable booléenne indiquant si la sauvegarde contient des fichiers compressés. La sauvegarde peut avoir activé la compression sans pour autant qu'elle contienne actuellement des fichiers compressés.
Une variable booléenne indiquant si la sauvegarde contient des fichiers chiffrés. La sauvegarde peut avoir activé le chiffrement des données sans pour autant qu'elle contienne actuellement des fichiers chiffrés.
Le nombre de fichiers uniques stockés.
Le nombre total de fichiers et de leurs versions stockées.
Le volume de données stocké sur le serveur pour la sauvegarde.
Le volume total de données sur le poste client représenté par les fichiers stockés.
Le nombre de transferts en attente de reprise pour la sauvegarde.
Le volume total de données en attente de reprise pour la sauvegarde.
Une variable booléenne indiquant si la sauvegarde est en cours d'utilisation au moment du chargement de la structure.
Une variable booléenne indiquant si la sauvegarde a été marquée comme à récupérer au moment du chargement de la structure. Si la sauvegarde est en cours d'exécution, la présence de cet indicateur est normal car il permet sa réparation en cas de crash serveur durant son traitement.
Une variable booléenne indiquant si la sauvegarde est en cours de vérification au moment du chargement de la structure.
Un indicateur de progression de l'opération en cours entre 0 et 100, si disponible.
Retourne des informations sur la prochaine date d'exécution de la sauvegarde, calculée en fonction des paramètres de planification récurrents définis.
Charge en mémoire les statistiques de la sauvegarde possédant l'identificateur BackupID.
Set connection = CreateObject("NsAPI.NsConnection") Set sysutils = CreateObject("NsAPI.NsScriptUtils") containingEncryptedFiles = 0 containingCompressedFiles = 0 if connection.ConnectToLocalServer then set server = CreateObject("NsAPI.NsServer") if server.Load(connection) then ' Chargement des infos serveur set backupsList = server.AllBackups(connection) ' Obtention de la liste de toutes les sauvegardes for each backup in backupsList ' Pour chaque sauvegarde set backupStats = CreateObject("NsAPI.NsBackupStats") if not backupStats.LoadFromID(connection, backup.ID) then ' Charger ses stats MsgBox "Impossible de charger les statistiques sur la sauvegarde" else ' Mettre à jour les indicateurs if backupStats.ContainsCompressedFiles then containingCompressedFiles = containingCompressedFiles + 1 end if if backupStats.ContainsCompressedFiles then containingEncryptedFiles = containingEncryptedFiles + 1 end if end if next ' Afficher le total MsgBox "Le serveur contient : " & vbCrLf & containingCompressedFiles & " sauvegardes possédant des fichiers compressés," & vbCrLf & containingEncryptedFiles & " sauvegardes possédant des fichiers chiffrés." else MsgBox "Impossible de charger les informations serveur." end if connection.Disconnect else MsgBox "Connexion au serveur local impossible." end if