La classe NsStorage décrit un espace de stockage sur le serveur destiné à stocker les données sauvegardées par les agents client.
Vous pouvez créer et gérer plusieurs espaces de stockage, chacun pouvant exploiter des formats et des méthodes de stockage particulières.
L'identificateur unique de l'espace de stockage. Les constantes suivantes peuvent-être utilisées :
Le nom de l'espace de stockage.
Le type de l'espace de stockage.
Le chemin d'accès à l'espace de stockage. Il doit pointer vers un dossier local, un volume réseau, ou un fichier VHD.
Options supplémentaires de stockage. Les valeurs suivantes peuvent-etre combinées :
Le nom d'utilisateur à exploiter si l'espace de stockage est situé sur un volume réseau nécessitant une authentification.
Le mot de passe à exploiter si l'espace de stockage est situé sur un volume réseau nécessitant une authentification.
La taille des tampons à utiliser dans les opérations de lecture et d'écriture sur le volume de stockage. Par défaut, le logiciel utilise un tampon de 4 Mo lorsque le compte de stockage pointe sur un volume local, et 2 Mo lorsqu'il pointe vers un volume réseau. Il est recommandé d'utiliser ces valeurs lorsque vous crééez manuellement un nouveau compte de stockage.
Définis si la santé du périphérique doit être collectée.
L'identificateur du système de fichier, renvoyé par le système d'exploitation.
L'espace de stockage disponible, renvoyé par le système d'exploitation.
La taille totale du périphérique du stockage, renvoyée par le système d'exploitation.
L'état de santé actuel actuel de l'espace de stockage.
Une variable booléenne indiquant si l'espace de stockage est activé ou non. Un espace de stockage désactivé ne peut pas être accédé pour lire ou stocker des données.
Le nombre d'erreurs de stockage associées au périphérique de stockage.
Charge en mémoire l'espace de stockage d'identificateur StorageID.
Créée ou met à jour l'espace de stockage représenté par l'objet. Un espace de stockage est toujours créé désactivé, il devra être activé en utilisant la méthode Enable().
Supprime l'espace de stockage représenté par l'objet. Vous ne pouvez supprimer un espace de stockage que si aucune sauvegarde n'est placée sur ce dernier, qu'aucun utilisateur et qu'aucun groupe ne pointe sur celui-ci.
Active l'espace de stockage. La fonction renvoie true si la ressource a pu être montée avec succès.
Désactive l'espace de stockage. Si l'espace de stockage est un disque VHD ou un volume réseau, il est démonté.
Efface les erreurs de stockage enregistrées, si elles existent.
Retourne les commentaires associés à l'objet.
Définit les commentaires associés à l'objet.
Renvoit les attributs personnalisés de l'objet.
Crée un cliché des données contenues dans l'espace de stockage, afin de pouvoir sauvegardes les données stockées dans un état stable et non mouvementé. La création d'un cliché n'est possible que si l'espace de stockage est stocké sur un système de fichiers compatible (NTFS) et qu'il y a assez d'espace libre pour effectuer l'opératon. Si l'opération réussit SnapshotID contient l'identificateur du cliché et SnapshotPath le chemin d'accès dans lequel est exposé. L'opération ne peut être réalisée que par un administrateur du serveur de sauvegarde.
Supprime le cliché de données identifié par SnapshotID
Retourne les sauvegardes stockées sur le compte de stockage.
Renvoit les alertes associées à l'objet. Si OnlyRaised vaut true, seul les alertes déclenchées sont renvoyées.
Set connection = CreateObject("NsAPI.NsConnection") Set sysutils = CreateObject("NsAPI.NsScriptUtils") if connection.ConnectToLocalServer then ' Création d'un espace de stockage local. set myStorage = CreateObject("NsAPI.NsStorage") ' Les options nécessaires const nsStorageTypeFolder = 1 const THSTG_USETRANSACTIONNALNTFS = 8 myStorage.ID = -1 ' Constante nécessaire pour créer un nouvel espace de stockage myStorage.Name = "Mon espace de stockage" ' Le nom affiché dans la console myStorage.StorageType = nsStorageTypeFolder ' Le type de stockage : dossier de fichiers myStorage.StoragePath = "C:\Data" 'Le chemin de stockage myStorage.Options = THSTG_USETRANSACTIONNALNTFS ' Utiliser Transactionnal NTFS myStorage.UserName = "" ' Pas de nom d'utilisateur nécessaire myStorage.Password = "" ' Pas de mot de passe nécessaire myStorage.VolumeBuffersSize = 4 * 1024 * 1024 ' Tampons de 4 mégaoctets myStorage.CheckHealth = true ' Vérifier la santé de l'espace de stockage if myStorage.Update(connection) then ' Créer l'espace de stockage if myStorage.Enable(connection) then MsgBox "L'espace de stockage a été créé et activé !" & vbCrLf & "Identifiant unique : #" & sysUtils.Int64ToStr(myStorage.ID) & vbCrLf & "Système de fichiers : " & myStorage.FileSystem & vbCrLf & "Espace disponible : " & sysutils.SizeToStr(myStorage.FreeSpace) else MsgBox "L'espace de stockage a été créé mais n'a pas pu être activé." ' Utilisez la console d'admin pour voir le message d'erreur end if else MsgBox "Echec lors de la création de l'espace de stockage" ' Utilisez la console d'admin pour voir le message d'erreur end if ' Création d'un espace de stockage réseau ' Rappel : pour information, le service UB s'exécute par défaut dans le contexte ' d'un compte utilisateur système qui n'a pas accès au réseau. ' Pour manipuler des volumes réseau, soyez sûr que le compte associé au service ' de stockage est un compte administrateur local. set myNetworkStorage = CreateObject("NsAPI.NsStorage") const THSTG_NETSHARE = 1 ' L'espace de stockage est un partage réseau myNetworkStorage.ID = -1 ' Constante nécessaire pour créer un nouvel espace de stockage myNetworkStorage.Name = "Mon espace de stockage réseau" ' Le nom affiché dans la console myNetworkStorage.StoragePath = "\\NAS_01\BACKUPS" 'Le chemin de stockage myNetworkStorage.Options = THSTG_NETSHARE myNetworkStorage.UserName = "nas01" ' L'utilisateur de partage myNetworkStorage.Password = "secret" ' Le mot de passe de partage myNetworkStorage.VolumeBuffersSize = 2 * 1024 * 1024 ' Tampons de 2 mégaoctets myNetworkStorage.CheckHealth = false if myNetworkStorage.Update(connection) then ' Créer l'espace de stockage if myNetworkStorage.Enable(connection) then MsgBox "L'espace de stockage réseau a été créé et activé !" & vbCrLf & "Identifiant unique : #" & sysUtils.Int64ToStr(myNetworkStorage.ID) & vbCrLf & "Système de fichiers : " & myNetworkStorage.FileSystem & vbCrLf & "Espace disponible : " & sysutils.SizeToStr(myNetworkStorage.FreeSpace) else MsgBox "L'espace de stockage a été créé mais n'a pas pu être activé." ' Utilisez la console d'admin pour voir le message d'erreur end if else MsgBox "Echec lors de la création de l'espace de stockage réseau" ' Utilisez la console d'admin pour voir le message d'erreur end if connection.Disconnect else MsgBox "Connexion au serveur local impossible." end if