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