IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Vérification et demarrage d'1 service


Sujet :

VBScript

  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2009
    Messages
    85
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Février 2009
    Messages : 85
    Par défaut Vérification et demarrage d'1 service
    Bonjour,

    j'ai un script qui vérifie l'etat d'un service et le relance si il est arreté mais cela ne fonctionne pas.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
     Dim objFSO, objWMIService, objService, colServiceList
     Dim objReseau, Ordinateur
     Dim Reponse
     
     Set objReseau = CreateObject("WScript.Network")
     Ordinateur = LCase(objReseau.ComputerName)
     Set objFSO = CreateObject("Scripting.FileSystemObject")
     Set objWMIService = GetObject("winmgmts:" & _
     "{impersonationLevel=impersonate}!\\" & Ordinateur & "\root\cimv2")
     Set colServiceList = objWMIService.ExecQuery _
     ("Select * from Win32_Service where Name='opsstart'")
     For Each objService In colServiceList
     If (objService.Name = "opsstart") Then
     	If (objService.State <> "Stopped")Then
     Reponse = objService.StartService()
     End If
     End If
     Next
     Set objFSO = Nothing
     Set objReseau = Nothing
    WScript.Quit
    Quelqu'un peut-il me venir en aide?

  2. #2
    Membre expérimenté
    Inscrit en
    Mai 2008
    Messages
    189
    Détails du profil
    Informations forums :
    Inscription : Mai 2008
    Messages : 189
    Par défaut
    je crois qu'il y a une erreur dans la ligne :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
     	If (objService.State <> "Stopped")Then
     Reponse = objService.StartService()
    ca devrait logiquement être

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    If (objService.State = "Stopped")Then
     Reponse = objService.StartService()

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2009
    Messages
    85
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Février 2009
    Messages : 85
    Par défaut
    Tout à fait thierry!!!!!

    Merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 1
    Dernier message: 02/04/2010, 13h40
  2. desactivé le type de demarrage d un service
    Par mathos21 dans le forum VBScript
    Réponses: 2
    Dernier message: 27/05/2008, 20h48
  3. Erreur 1067 de demarrage d'un service sous Windows XP
    Par almensour dans le forum Windows XP
    Réponses: 5
    Dernier message: 08/04/2008, 16h24
  4. probleme de demarrage d'un service
    Par sacofan dans le forum Windows XP
    Réponses: 3
    Dernier message: 20/12/2005, 13h06
  5. Comment empêcher le démarrage d'un service ?
    Par narmataru dans le forum Administration système
    Réponses: 2
    Dernier message: 17/01/2005, 10h15

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo