Besion d'aide
Résolu
sebroulet
Messages postés
11
Date d'inscription
lundi 2 juillet 2007
Statut
Membre
Dernière intervention
11 novembre 2007
-
16 oct. 2007 à 17:14
Kristof_Koder Messages postés 918 Date d'inscription vendredi 3 août 2007 Statut Membre Dernière intervention 27 octobre 2008 - 16 oct. 2007 à 22:26
Kristof_Koder Messages postés 918 Date d'inscription vendredi 3 août 2007 Statut Membre Dernière intervention 27 octobre 2008 - 16 oct. 2007 à 22:26
4 réponses
Kristof_Koder
Messages postés
918
Date d'inscription
vendredi 3 août 2007
Statut
Membre
Dernière intervention
27 octobre 2008
10
16 oct. 2007 à 22:26
16 oct. 2007 à 22:26
Utilises plutôt WMI !! C'est fait pour cela !
Option Explicit
Dim strMachine, strService
Dim wmiService, colServices, Item
Dim Ret
strMachine = "."
strService = "SMS Remote Control Agent"
Set wmiService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strMachine & "\root\cimv2")
Set colServices = wmiService.ExecQuery("SELECT * FROM Win32_Service WHERE Name=" & strService)
For Each Item in colServices
Ret = Item.StartService()
Next
Il ne reste qu'à remplacer la ligne strMachine = "." par ce qui va bien et c'est nice !
Option Explicit
Dim strMachine, strService
Dim wmiService, colServices, Item
Dim Ret
strMachine = "."
strService = "SMS Remote Control Agent"
Set wmiService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strMachine & "\root\cimv2")
Set colServices = wmiService.ExecQuery("SELECT * FROM Win32_Service WHERE Name=" & strService)
For Each Item in colServices
Ret = Item.StartService()
Next
Il ne reste qu'à remplacer la ligne strMachine = "." par ce qui va bien et c'est nice !
sebroulet
Messages postés
11
Date d'inscription
lundi 2 juillet 2007
Statut
Membre
Dernière intervention
11 novembre 2007
16 oct. 2007 à 17:18
16 oct. 2007 à 17:18
Oups, Il y a un parametre que j'ai oublié de mettre dans l'énoncer
Set MonShell1 = Wscript.CreateObject("WScript.Shell")
Set MonShell1 = Wscript.CreateObject("WScript.Shell")
Polack77
Messages postés
1098
Date d'inscription
mercredi 22 mars 2006
Statut
Membre
Dernière intervention
22 octobre 2019
1
16 oct. 2007 à 17:25
16 oct. 2007 à 17:25
Heeeeee, je n'ai jamais fait ça mais j'ai une idée (à tout hasard) :
"net stop " " SMS Remote Control Agent "
Il me semble qu'il manque des 'truc'
moi j'écrirais plutôt :
"net stop " & " SMS Remote Control Agent "
Donnerais la chaine :
|net stop SMS Remote Control Agent |
Ou peut être :
"net stop ""SMS Remote Control Agent"""
Qui donnerais la chaine :
|net stop "SMS Remote Control Agent"|
Amicalement
Pensez "Réponse acceptée"
"net stop " " SMS Remote Control Agent "
Il me semble qu'il manque des 'truc'
moi j'écrirais plutôt :
"net stop " & " SMS Remote Control Agent "
Donnerais la chaine :
|net stop SMS Remote Control Agent |
Ou peut être :
"net stop ""SMS Remote Control Agent"""
Qui donnerais la chaine :
|net stop "SMS Remote Control Agent"|
Amicalement
Pensez "Réponse acceptée"
sebroulet
Messages postés
11
Date d'inscription
lundi 2 juillet 2007
Statut
Membre
Dernière intervention
11 novembre 2007
16 oct. 2007 à 17:52
16 oct. 2007 à 17:52
Merci Polack77 pour ton aide
J'ai testé les 2 possiblitées et rien a faire.
A chaque fois le processus est toujours en cours
Impossible de stopé le service ,
si tu as d'autre idée , je suis prenneur.
A bientot
seb
J'ai testé les 2 possiblitées et rien a faire.
A chaque fois le processus est toujours en cours
Impossible de stopé le service ,
si tu as d'autre idée , je suis prenneur.
A bientot
seb
