--------------------------- @Echo Off Title Tentive de lancement d'un service Rem Verif des argument If a%1==a Goto Usage If a%2==a Goto Usage Rem Tente de lancer le service ... Net Start %1 Rem Test de la bon execution de la dernière commande Rem En cas d'erreur, aller au label CantStartService If ErrorLevel 1 Goto CantStartService Rem En cas de succès, plus rien à faire Goto End :CantStartService Rem Un joli message d'erreur dans un fichier de log Echo Le Service %1 n'a pas voulu démarré > Log.txt Rem Un appel à un exe vb pour envoyer un mail à partir du Log EnvoiMail.exe %2 Log.txt Del Log.txt Goto End :Usage Echo StartService.cmd NomDuService AdresseMailPourAlerte Rem Fin du travail du Batch :End
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionStartAService.cmd ---------------------------- @Echo Off Title Tentive de lancement d'un service Rem Verif des argument If a$1==a Goto Usage If a$2==a Goto Usage Rem Tente de lancer le service ... Net Start $1 $2 Rem Test de la bon execution de la dernière commande Rem En cas d'erreur, aller au label CantStartService If ErrorLevel 0 Goto CantStartService Rem En cas de succès, plus rien à faire Goto End CantStartService: Rem Un jolie message d'erreur dans un fichier de log Echo Le Service $1 n'a pas voulu démarré > Log.txt Rem Un appel à un exe vb pour envoyer un mail à partir du Log EnvoiMail.exe $2 Log.txt Del Log.txt Goto End Usage: Echo StartService.cmd NomDuService AdresseMailPourAlerte Rem Fin du travail du Batch End:
Dim Args() as String Args = Split(Command$," ") Msgbox Args(0) Msgbox Args(1)
@ECHO OFF CLS TITLE Tentive de lancement d'un service REM Tente de lancer le service ... Net Start %1 REM Test de la bonne execution de la dernière commande REM En cas d'erreur, aller au label CantStartService If ErrorLevel 0 Goto CantStartService REM En cas de succès, plus rien à faire GOTO End CantStartService: REM Un jolie message d'erreur dans un fichier de log ECHO Le Service %1 n'a pas voulu démarrer > Log.txt REM Un appel à un exe vb pour envoyer un mail à partir du Log EnvoiMail.exe $2 Log.txt Del Log.txt Goto End Usage: ECHO StartService.cmd NomDuService AdresseMailPourAlerte REM Fin du travail du Batch End:
@ECHO OFF REM ======================================== REM REM OBJECTIF : REM REM Procède au démarrage d'un service et rapporte REM l'état d'accomplissement via mail. REM REM DÉPENDANCES : REM REM - EnvoieMail.exe (exécutable VB) REM REM PARAMÈTRES : REM REM %1 ===> Nom du service à arrêter. REM %2 ===> Adresse de messagerie du destinataire du REM rapport d'état d'accomplissement. REM REM CRÉDIT : REM REM Développé le 23 Septembre 2004 pour le MRNFP par REM Louis Tremblay (DSI) REM REM REMERCIEMENTS : REM REM Merci à crenaud76 http://www.vbfrance.com pour REM sa patience et ses précieux conseils... REM REM ======================================== REM Rafraîchir l'écran... CLS ECHO. REM Définition du titre de la fenêtre... TITLE [Tentive de lancement d'un service] REM Vérification des argument... IF a%1==a GOTO Usage IF a%2==a GOTO Usage REM Tente de lancer le service... NET START %1 REM Teste la bonne execution de la dernière commande. REM En cas d'erreur, aller au label CantStartService... IF ErrorLevel 1 GOTO CantStartService REM (En cas de réussite...) REM Enregistrement dans le fichier Log... ECHO [%Date% - %Time%] - SUCCES - Démarrage du service %1. >> Log.txt REM Envoi du rapport d'accomplissement... EnvoiMail.exe %2 REUSSITE GOTO End :CantStartService REM (En cas d'échec...) REM Enregistrement dans le fichier Log... ECHO [%Date% - %Time%] - ERREUR - Démarrage du service %1. >> Log.txt REM Envoi du rapport d'accomplissement... EnvoiMail.exe %2 ECHEC GOTO End :Usage CLS ECHO. ECHO USAGE : StartService.cmd [NomDuService] [AdresseDestinataire] ECHO. REM Fin du travail du Batch... :End
@ECHO OFF SET ECHEC = A ECHO A PAUSE
@ECHO OFF SET ECHEC = %A ECHO %A PAUSE
@ECHO OFF SET %A = ECHEC ECHO %A PAUSE