class NsBackupStorageInformation

La classe NsBackupStorageInformation contient les informations de stockage serveur pour une sauvegarde.

StoragePath : BSTR readonly

Le chemin d'accès au dossier de stockage, sur le serveur de sauvegarde.

VARIANT_BOOL LoadFromID(NsConnection Connection, __int64 BackupID)

Charge en mémoire les informations de stockage pour la sauvegarde d'identifiant BackupID.

Charge tous les chemins d'accès des sauvegardes d'un groupe d'utilisateurs donné

function internalExportPaths(connection, groupObj, outputFile)
  ' Charger les utilisateurs
  set usersObj = groupObj.Users(connection)
  ' Traiter tous les utilisateurs
  for each userObj in usersObj
  ' Charger les sauvegardes des utilisateurs
    set backupsObj = userObj.Backups(connection)
    ' Traiter toutes les sauvegardes
    for each backupObj in backupsObj
      ' Charger les informations de stockage
      set storageObj = CreateObject("NsAPI.NsBackupStorageInformation")
      if storageObj.LoadFromID(connection, backupObj.ID) then
        ' ...les inscrire dans le fichier cible.
        outputFile.WriteLine(storageObj.StoragePath)
      else
        MsgBox "Impossible de charger les informations de stockage sur une sauvegarde"
      end if
    next
  next
end function

function exportPaths(connection, allGroups, groupName, filePath)
  ' Obtenir le groupe depuis son domaine.
  pos = allGroups.FindByDomain(groupName)
  if pos = -1 then
    MsgBox "Impossible de trouver le groupe du domaine spécifié."
  else
     set objFSO=CreateObject("Scripting.FileSystemObject")
    ' Créer le fichier de destination
    set objFile = objFSO.CreateTextFile(filePath, true)
    ' Remplir avec les chemins d'accès
     internalExportPaths connection, allGroups(pos), objFile
    ' Fermer le fichier
     objFile.Close
  end if
end function

Set connection = CreateObject("NsAPI.NsConnection")
if connection.ConnectToLocalServer then
  ' Charger l'objet serveur
  set serverObj = CreateObject("NsAPI.NsServer")
  if serverObj.Load(connection) then
    ' Obtenir la liste des groupes
    set groupsObj = serverObj.UserGroups(connection)
    ' Appeler la fonction obtenant les chemins d'accès.
    ' Avant dernier paramètre : le domaine du groupe.
    ' Dernier paramètre : le chemin d'accès vers le fichier devant contenir les chemins d'accès.
    exportPaths connection, groupsObj, "netstation", "c:\Stats\output.txt"
  else
    MsgBox "Impossible de charger l'objet serveur."
  end if
  ' Déconnecter
  connection.Disconnect
else
  MsgBox "Connexion au serveur local impossible."
end if