La classe NsStorageError représente une erreur de stockage enregistrée par le serveur de sauvegarde.
L'identificateur de l'erreur de stockage.
L'identificateur du compte de stockage (NsStorage) sur lequel l'erreur est survenue.
L'identificateur de la sauvegarde (NsBackup) sur laquelle l'erreur est survenue.
La date de l'erreur, au format UTC.
Le message d'erreur enregistré par le logiciel.
Set connection = CreateObject("NsAPI.NsConnection") Set sysutils = CreateObject("NsAPI.NsScriptUtils") if connection.ConnectToLocalServer then set server = CreateObject("NsAPI.NsServer") errorsCount = 0 if server.Load(connection) then ' Charger les informations serveur set storages = server.StorageAccounts(connection) ' Obtenir la liste des espaces de stockage for each storage in storages ' Pour chaque espace de stockage set errorsList = storage.StorageErrorsList(connection) ' Obtenir la liste des erreurs if errorsList.count > 0 then listOfErrors = "" ' Réinitialiser la liste des erreurs errorsCount = errorsCount + errorsList.count for each e in errorsList ' Pour chaque erreur... ' ...on l'enregistre sous la forme Date, Sauvegarde, Message listOfErrors = listOfErrors & sysutils.UTCToLocal(e.DateTime) & " - Sauvegarde #" & sysutils.Int64ToStr(e.BackupID) & " : " & e.Message & vbCrLf next ' Afficher la liste des erreurs de stockage MsgBox "Erreurs de stockage enregistrées pour l'espace de stockage " & storage.Name & ": " & vbCrLf & listOfErrors end if next end if if errorsCount = 0 then MsgBox "Aucune erreur de stockage à afficher." end if connection.Disconnect else MsgBox "Connexion au serveur local impossible." end if