La classe NsConnection encapsule une connexion réseau au serveur de sauvegarde. Tout accès au serveur nécessite un objet NsConnection correctement configuré, dans un état "connecté", afin de permettre l'envoi et la réception des données.
L'adresse IP ou le nom de domaine du serveur de sauvegarde auquel se connecter.
Le port sur lequel a été configuré le service de sauvegarde auquel se connecter.
Une valeur booléenne définissant si la connexion au serveur de sauvegarde doit utiliser le protocole SSL ou non. Le certificat SSL du serveur doit au préalable être approuvé dans les interfaces du logiciel, sauf si les paramètres actuels permettent la connexion sécurisée à des serveurs sans approbation manuelle de leur certificat.
Le nom d'utilisateur avec lequel se connecter au serveur.
Le mot de passe de l'utilisateur exploité pour la connexion.
Le code d'erreur renvoyé par la dernière commande exécutée.
L'identificateur unique de session, si celle-ci a été établie.
Une valeur booléenne indiquant si la connection est ouverte.
Une valeur booléenne indiquant si des droits administrateur sont attribués à la connexion active.
L'utilisateur (NsUser) actuellement connecté, si la connexion est établie avec le serveur de sauvegarde.
Vérifie que les valeurs affectées aux propriétés Host, Port, et UseSSL permettent de joindre correctement un serveur de sauvegarde existant.
Etablit une connexion au serveur de sauvegarde en utilisant les valeurs des propriétés Host, Port, UseSSL, UserName et Password préalablement renseignées.
Etablit une connexion au serveur local, en lisant dans les fichiers de configuration les paramètres de connexion à utiliser pour contacter l'instance locale.
Ferme la connexion préalablement établie avec Connect ou ConnectToLocalServer.
Set connection = CreateObject("NsAPI.NsConnection") if connection.ConnectToLocalServer then if connection.isAdmin then MsgBox "Connecté avec des droits administrateur !" else MsgBox "Connecté sans droits administrateur." end if connection.Disconnect else MsgBox "Connexion au serveur local impossible." end if
Set connection = CreateObject("NsAPI.NsConnection") connection.Host = "backup.astase.com" ' Serveur hôte connection.Port = 1985 ' Port de fonctionnement connection.UseSSL = false ' On utilise pas SSL if connection.CheckIsAvailable then ' Serveur joignable ? connection.UserName = "jlabarre@netstation" ' Spécifie le nom d'utilisateur... connection.Password = "secret" '... et le mot de passe à utiliser. if connection.Connect then ' Tentative de connexion MsgBox "Connecté au serveur distant !" ' Succès ! connection.Disconnect else MsgBox "Connexion au serveur impossible." ' Echec... end if else MsgBox "Le serveur ne répond pas." end if