1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| sLigneDeCommande=ChaîneConstruit([
"%1WDModFic.exe" [-error] [-nobackup] /WDD="%2" /PWD="apap"/SERVER=%3:%4@%5:%6/%7
],ComplèteRep(sRepertoireWDModFic),sNomCompletWDD, gsUser, sMotDePasse, sAdresseOuNomServeurHF, nNumPortServeurHF, sNomBaseDeDonnees)
//Pour test il est possible d afficher la ligne de commande
//Info(sLigneDeCommande)
// Ouvrir la connexion
Changer_connexion(sMotDePasse,sAdresseOuNomServeurHF,sNomBaseDeDonnees)
SI bConnecte=Faux ALORS
TitreSuivant("La connexion au serveur a échoué!")
Erreur("Vérifier la connexion réseau, le nom d'utilisateur ou le mot de passe!")
FinProgramme()
FIN
//Lancement de la modification automatique en attendant la fin
SI PAS LanceAppli(sLigneDeCommande,exeActif,exeBloquant) ALORS
//Echec du lancement, affichage de l erreur
Erreur("Impossible d executer la modification automatique des donnees : ",ErreurInfo(),"Ligne de commande utilisee : ",sLigneDeCommande)
FinProgramme()
SINON
//Modification automatique executee
Changer_connexion(sMotDePasse,sAdresseOuNomServeurHF,sNomBaseDeDonnees)
FIN |
Partager