class NsBackgroundService

La classe NsBackgroundService permet de contrôler le service d'exécution des sauvegardes en arrière-plan.

VARIANT_BOOL IsRunning()

Une variable booléenne indiquant si le service est actuellement démarré.

VARIANT_BOOL Start()

Démarre le service, et renvoit une variable booléenne indiquant si l'opération a pu être effectuée avec succès ou non. Le programme appelant doit posséder des droits administrateur pour que l'opération aboutisse.

VARIANT_BOOL Stop()

Arrête le service, et renvoit une variable booléenne indiquant si l'opération a pu être effectuée avec succès ou non. Le programme appelant doit posséder des droits administrateur pour que l'opération aboutisse.

NsBackgroundExecuteBackupErrorCode ExecuteBackupByID(__int64 BackupID, BSTR UserProfileID)

Exécute de manière asynchrone la sauvegarde d'identifiant BackupID appartenant au profil utilisateur UserProfileID.

NsBackgroundExecuteBackupErrorCode ExecuteBackupByName(BSTR BackupName, BSTR UserProfileID)

Exécute de manière asynchrone la sauvegarde nommée BackupName appartenant au profil utilisateur UserProfileID.

VARIANT_BOOL ExecuteLogonBackups()

Exécute séquentiellement les sauvegardes marquées devant être exécutées à l'ouverture de session.

VARIANT_BOOL ExecuteLogoffBackups()

Exécute séquentiellement les sauvegardes marquées à exécuter à la fermeture de session.

Exécution d'une sauvegarde en arrière-plan

set backgroundSvc = CreateObject("NsClientAPI.NsBackgroundService")

' On vérifie que le service est démarré..
if not backgroundSvc.IsRunning then
  '...si ce n'est pas le cas, il est démarré maintenant
  MsgBox "Le service n'est pas démarré, il va être démarré maintenant."
  backgroundSvc.Start
end if

' On demande un nom de sauvegarde à exécuter
backupName = InputBox("Saisissez le nom d'une sauvegarde a exécuter ", "Test de l'API UB", "")

if backupName <> "" then
  ' Déterminer a quel profil utilisateur appartient cette sauvegarde
  ' Pour simplifier on suppose qu'il n'y a qu'un seul profil utilisateur paramétré sur le poste
  
  set cnxMngr = CreateObject("NsClientAPI.NsConnectionManager")
  set defaultProfile = cnxMngr.DefaultUser
  
  ' Exécuter la sauvegarde
  if backgroundSvc.ExecuteBackupByName(backupName, defaultProfile.LocalID) = 0 then
    MsgBox "La sauvegarde " & backupName & " a été déclenchée avec succès."
  else
    MsgBox "Une erreur est survenue durant le déclenchement de la sauvegarde."
  end if
end if