class NsStorageError

La classe NsStorageError représente une erreur de stockage enregistrée par le serveur de sauvegarde.

ID : __int64 readonly

L'identificateur de l'erreur de stockage.

StorageID : __int64 readonly

L'identificateur du compte de stockage (NsStorage) sur lequel l'erreur est survenue.

BackupID : __int64 readonly

L'identificateur de la sauvegarde (NsBackup) sur laquelle l'erreur est survenue.

DateTime : VARIANT readonly

La date de l'erreur, au format UTC.

Message : BSTR readonly

Le message d'erreur enregistré par le logiciel.

Lister les erreurs de stockage enregistrées sur le serveur

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