La classe NsBackupStorageInformation contient les informations de stockage serveur pour une sauvegarde.
Le chemin d'accès au dossier de stockage, sur le serveur de sauvegarde.
Charge en mémoire les informations de stockage pour la sauvegarde d'identifiant BackupID.
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