La classe NsUser représente un utilisateur du service de sauvegarde. Il est associé à un et un seul dispositif matériel contenant des données à sauvegarder.
L'identificateur unique de l'utilisateur. Les constantes suivantes peuvent-être utilisées :
La date de création de l'utilisateur sur le serveur de sauvegarde, au format UTC.
Le login de l'utilisateur, qui ne doit comporter que des caractères alphanumériques. Il est accolé au domaine du groupe auquel il est membre pour former le nom de connexion de l'utilisateur, tel qu'il est renvoyé par la fonction Login.
La description de l'utilisateur.
La plateforme cliente utilisée par l'utilisateur.
Une variable booléenne indiquant si l'utilisateur posséde des droits d'administration ou non.
L'identificateur unique du groupe (NsUserGroup) dans lequel est placé l'utilisateur.
L'identificateur du stockage (NsStorage) qui devra recevoir les nouvelles sauvegardes de l'utilisateur, si le stockage par défaut du groupe d'utilisateurs ne doit pas être utilisé. Les constantes suivantes peuvent-être utilisées :
Le domain du groupe dans lequel est placé l'utilisateur.
Les quotas en volume de données, exprimés en octets (limite d'avertissement).
Les quotas en volume de données, exprimés en octets (limite de blocage).
Les quotas en nombre maximum de fichiers (limite d'avertissement).
Les quotas en nombre maximum de fichiers (limite de blocage).
La langue par défaut de l'utilisateur, dans laquelle il recevra les alertes, rapports et informations envoyées par le serveur. Pour modifier la langue, appellez la méthode ChangeLanguage() en lui passant la nouvelle langue à utiliser.
Le fuseau horaire du client, transmis par l'agent de sauvegarde.
Si le mode de connexion désigné par ConnectionMode est défini à nsUserConnectionModeStaticIP, contient la seule adresse IP du client autorisée à se connecter au serveur. Sinon, retourne la dernière IP utilisée par l'utilisateur pour se connecter.
Le mode de connexion de l'utilisateur (IP fixe ou IP dynamique).
Réservé.
La version de l'agent client installée, au format X.Y.Z.
La version du système d'exploitation sur lequel s'exécute l'agent client.
Le jour de la dernière connexion de l'utilisateur (la date est au format UTC).
Indique si l'utilisateur est connecté au serveur de sauvegarde au moment du chargement des informations.
Indique si l'utilisateur est couvert par le système de licensing serveur.
Indique si l'utilisateur peut recevoir des commandes de type serveur-à-client (la version 4 de l'agent client est requise).
Indique l'état des services sur le poste client (la version 7 de l'agent client est requise).
Retourne le login de connexion de l'utilisateur (de la forme nom@groupe).
La date de dernière modification de la clé de chiffrement de l'utilisateur, au format UTC. Si l'information n'est pas connue, un objet null est renvoyé.
La date de dernière vérification de la clé de chiffrement de l'utilisateur, au format UTC. Si l'information n'est pas connue, un objet null est renvoyé.
Charge en mémoire l'utilisateur UserID.
Charge en mémoire l'utilisateur de nom (login) UserName.
Met à jour l'utilisateur représenté par l'objet.
Supprime l'utilisateur représenté par l'objet. Un utilisateur ne peut être supprimé que si aucune sauvegarde ne lui est attachée.
Change la langue de l'utilisateur. Si l'opération réussit, la nouvelle langue utilisateur est reflétée par la propriété Language de l'objet.
Retourne dans IsKeyStored une valeur booléenne indiquant si la clé de chiffrement de l'utilisateur est stockée sur le serveur de sauvegarde.
Retourne dans IsKeyCRCStored une valeur booléenne indiquant si la somme de contrôle de la clé de chiffrement de l'utilisateur est stockée sur le serveur de sauvegarde.
Retourne dans KeyCRC la somme de controle de la clé de chiffrement stockée sur le serveur.
Définit la clé de chiffrement de l'utilisateur et sa somme de contrôle à partir de la passphrase contenue dans Passphrase. Si la mise à jour réussit, le champ UserKeyLastModificationDate est mis à jour avec la date actuelle.
Vérifie que la passphrase passée en paramètre est bien la passphrase de l'utilisateur. Si la vérification réussit, le champ UserKeyLastVerificationDate est mis à jour avec la date actuelle.
Retourne les commentaires associés à l'objet.
Définit les commentaires associés à l'objet.
Renvoit les attributs personnalisés de l'objet.
Renvoit la liste des éléments exclus pour toutes les sauvegardes de l'utilisateur.
Définit la liste des éléments exclus pour toutes les sauvegardes de l'utilisateur.
Définit le mot de passe de connexion pour l'utilisateur.
Retourne la liste des sauvegardes attribuées à l'utilisateur.
Retourne la liste des sauvegardes locales attribuées à l'utilisateur.
Retourne la liste des fichiers partagés par l'utilisateur.
Retourne la liste des demandes d'exécution associées à l'utilisateur représenté par l'objet.
Poste une demande d'exécution de la sauvegarde TargetBackup. Si RetryIfInterrupted vaut true, la sauvegarde est relancée par l'agent client tant que l'exécution n'arrive pas à son terme. La fonction retourne l'objet NsExecutionRequest correspondant, ou une référence d'objet invalide en cas d'erreur.
Poste une demande d'exécution de la sauvegarde d'identificateur TargetBackupID. Si RetryIfInterrupted vaut true, la sauvegarde est relancée par l'agent client tant que l'exécution n'arrive pas à son terme. La fonction retourne l'objet NsExecutionRequest correspondant, ou une référence d'objet invalide en cas d'erreur.
Renvoit les alertes associées à l'objet. Si OnlyRaised vaut true, seul les alertes déclenchées sont renvoyées.
Retourne les Limit derniers événements réalisés sur les sauvegardes de l'utilisateur représenté par l'objet en mémoire.
Renvoit les informations de reporting de type e-mail pour l'utilisateur. Le mode de reporting est renvoyé dans Mode, et les e-mail de notifications sont renvoyés dans EMailAddresses.
Définit les informations de reporting de type e-mail pour l'utilisateur. Le mode de reporting est spécifié par Mode, et les e-mail de notifications sont spécifiés par EMailAddresses.
Renvoit les informations de reporting de type SMS pour l'utilisateur. Le numéro de téléphone mobile est renvoyé dans MobilePhoneNumber et le pays (nécessaire pour la génération du préfixe d'appel international) est renvoyé dans MobilePhoneNumberCountry.
Définit les informations de reporting de type SMS pour l'utilisateur. Le numéro de téléphone mobile est spécifié par MobilePhoneNumber, et le pays (nécessaire pour la génération du préfixe d'appel international) est spécifié par MobilePhoneNumberCountry.
Renvoit les informations de reporting e-mail et SMS pour l'utilisateur (cf. GetReportingSettings et GetReportingSettings2).
Définit les informations de reporting e-mail et SMS pour l'utilisateur (cf. GetReportingSettings et GetReportingSettings2).
Renvoit les profils matériels associés à l'utilisateur.
Retourne la liste des opérations ayant entraîné l'accès aux données dans lequel l'utilisateur est commanditaire des opérations.
Retourne la liste des opérations ayant entraîné l'accès aux données dans lequel l'utilisateur est propriétaire des données.
Renvoit la liste des opérations Push Restore associées à l'utilisateur.
Retourne les informations de stockage sur le volume de destination des sauvegardes locales.
Distribue la sauvegarde désignée par TemplateBackupID à l'utilisateur, en lui attributant le nouveau nom NewBackupName, et retourne dans NewBackupID l'identificateur de la nouvelle tâche. Les droits de sauvegarde, de restauration et de réinitialisation/suppression sont attribués.
Distribue la sauvegarde désignée par TemplateBackupID à l'utilisateur, en lui attributant le nouveau nom NewBackupName, et retourne dans NewBackupID l'identificateur de la nouvelle tâche. Les droits de sauvegarde, de restauration et de réinitialisation/suppression sont attribués en fonction des valeurs de CanBackup, CanRestore, et CanClearOrRemove.
Set connection = CreateObject("NsAPI.NsConnection")
Set sysutils = CreateObject("NsAPI.NsScriptUtils")
if connection.ConnectToLocalServer then
set server = CreateObject("NsAPI.NsServer")
if server.Load(connection) then ' Charger les informations serveur
' On veut créer un utilisateur dans le groupe "litware".
' Première étape : obtenir la liste des groupes.
set groups = server.UserGroups(connection)
' Seconde étape : obtenir la position du groupe dans la liste.
index = groups.FindByDomain("litware")
if index > -1 then
set parentGroup = groups(index)
set myUser = CreateObject("NsAPI.NsUser")
const nsPlatformWindowsNT = 1 ' Le client est un client Windows
const nsUserConnectionModeDynamicIP = 2 ' Il possède une IP dynamique
maxBytes = 1 * 1024 * 1024 * 1024 ' Quotas en volume de données : 1Gb
myUser.ID = -1 ' Constante nécessaire pour créer un nouvel utilisateur
myUser.UserName = "jlabarre" ' Nom de connexion
myUser.Description = "Jacques Labarre" ' Description
myUser.Platform = nsPlatformWindowsNT ' Platforme = Windows
myUser.IsAdmin = false ' L'utilisateur ne pourra PAS administrer le serveur
myUser.GroupID = parentGroup.ID ' Le groupe parent est Litware
myUser.ConnectionMode = nsUserConnectionModeDynamicIP ' Connexion avec une IP dynamique
myUser.SetPassword "secret" ' Affectation d'un mot de passe arbitraire
' Quotas en volume de données définis à 1 Gb
myUser.SizeQuotaSoft = int(0.95 * maxBytes)
myUser.SizeQuotaHard = maxBytes
' Pas de quotas en nombre d'éléments définis
myUser.MaxFilesQuotaSoft = 0
myUser.MaxFilesQuotaHard = 0
if myUser.Update(connection) then
' Définir les options de reporting
const nsEMailAlways = 2 ' Envoyer des e-mails à chaque exécution d'une tâche
if not myUser.SetReportingSettings(connection, nsEMailAlways, "jlabarre@litware.com") then
MsgBox "Echec de la définition des options de reporting !"
end if
MsgBox "L'utilisateur a été créé, son identifiant unique est #" & sysutils.Int64ToStr(myUser.ID) & "." & vbCrLf & "Nom de connexion : " & myUser.Login
else
MsgBox "Echec lors de la création de l'utilisateur" ' Utilisez la console d'admin pour voir le message d'erreur
end if
else
MsgBox "Impossible de trouver le groupe 'litware' pour lui créer un nouvel utilisateur !"
end if
else
MsgBox "Impossible de créer un groupe car les informations serveur n'ont pu être chargées."
end if
connection.Disconnect
else
MsgBox "Connexion au serveur local impossible."
end if