Discussion :

[alex504]

Bonjour,

Je souhaite réaliser un script vbs qui permet de démarrer un service lors de son exécution.
Le problème est lorsque je veux lancer un service qui ne possède pas d'espace dans son nom (ici maconfservice) le script fonctionne parfaitement mais lorsque je veux lancer le service qui m'intéresse particulièrement (ici MG-SOFT SNMP Trap Service) celui-ci ne démarre pas, le script s’exécute normalement en lançant le second service mais pas le premier.
Je vous poste un bout de mon code ci-dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Set myShell = WScript.CreateObject("WScript.Shell")
 
myShell.Run """net start MG-SOFT SNMP Trap Service", 0, true
myShell.Run "net start maconfservice", 0, true

Si quelqu'un pouvait m'éclairer sur la syntaxe à avoir pour qu'il me prennent en compte ce service se serait super!

Merci d'avance

[omen999]

salut,
http://www.microsoft.com/resources/d....mspx?mfr=true
donc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myShell.Run "net start ""MG-SOFT SNMP Trap Service""", 0, true

[alex504]

Bonjour,

Merci pour ta réponse mais malheureusement le service ne se lance toujours pas...

[omen999]

question sournoise...
cette ligne de commande fonctionne ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

net start "MG-SOFT SNMP Trap Service"

[alex504]

Hello,

Cette ligne de commande fonctionne dans un script .bat en effet

[Cachlab]

Bonjour,

A priori tu essaies de démarrer le service via son nom complet.
Essai avec le nom du service et pas avec le nom complet.
(infos à chercher dans les propriétés du service)

Exemple :
Accès à distance au Registre --> nom complet
RemoteRegistry --> nom du service

net start "Accès à distance au Registre" = net start RemoteRegistry

[alex504]

Bonjour,

Le nom du service et le nom complet sont identiques malheureusement dans mon cas

[hackoofr]

et avec ceci ça donne quoi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set WS = CreateObject("WScript.Shell")
Command = "Cmd /c net start ""MG-SOFT SNMP Trap Service"" "
Exec = WS.Run(Command,0,True)

[alex504]

Hello,

Je viens de tester la soluce proposé par hackoor et elle ne fonctionne malheureusement pas avec le service MG-SOFT, par contre cela fonctionne avec n'importe quel autre service....

[pitchalov]

Bonjour,

C'est bizarre que ça ne marche pas avec uniquement ce service.
Es-tu certain de ta chaîne de caractère pour le nom du service?

Sinon est-ce que c'est la même chose avec la commande sc?
A tester d'abord en cmd :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sc start "MG-SOFT SNMP Trap Service"

Puis en vbs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myShell.Run "cmd /c net start ""MG-SOFT SNMP Trap Service""", 0, true

Sinon, peut-être en WMI :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
strService = "MG-SOFT SNMP Trap Service"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery ("Select * from Win32_Service Where Caption = '" & strService & "'")
For Each objService in colListOfServices
	WScript.Echo "Starting service <" & objService.Name & ">"
	objService.StartService()
Next

Est-ce qu'en lançant ce bout de code, l'affichage du nom du service est bien <MG-SOFT SNMP Trap Service>?

Bonne continuation

[alex504]

Bonjour,

Oui ce service est vraiment très énervant car c'est le seul qui contient des espaces dans son nom complet ET dans son nom de service (tout du moins sur ma machine)

Pour Pitchalov

-J'ai testé la ligne de commande sous cmd, celle-ci fonctionne seulement si je lance la console en tant qu'administrateur.
-Le code vbs ne donne rien
-Le WMI je ne connais pas du tout désolé je suis vraiment un débutant en script

Merci pour votre aide en tout cas!

[pitchalov]

Bonjour,

... fonctionne seulement si je lance la console en tant qu'administrateur.

Ca peut être une indication intéressante, qui expliquerait que tous les tests précédents ne fonctionnent pas. As-tu par hasard l'UAC d'activé?
Peux tu lancer le script donné par hackoofr depuis une console lancée "en tant qu'administrateur" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wscript votrescript.vbs

et voir si ça fonctionnerait mieux?

Bonne continuation.

[alex504]

Alors le lancement du script via la console en tant qu'administrateur fonctionne!
Enfin une lueur d'espoir!

Je précise que le poste où je développe fait partie d'un domaine où je suis moi même administrateur, le problème viendrait-il de là?
Ce script devra par la suite être distribué à nos clients je n'ai donc aucune certitude qu'il fonctionnera chez eux à priori

Merci pour cette première piste!

[pitchalov]

Pour qu'il fonctionne chez toi comme sur les postes clients, ce script doit avoir les privilèges nécessaires pour effectuer un lancement de service. C'est-à-dire, il doit être lancé avec des droits administrateurs, et être autorisé par l'UAC si elle est activée.

Bonne continuation.

[hackoofr]

Comme il a dit Pichalov, il faut désactiver le UAC , Sinon Testez ce code (Pas Testé) :

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
Dim Ws
Set Ws = CreateObject("WScript.Shell")
Set ProcessEnv = Ws.Environment("Process")
NomMachine = ProcessEnv("COMPUTERNAME") 
NomUtilisateur = ProcessEnv("USERNAME") 
sUser = NomMachine &"\"& NomUtilisateur
Command = "net start MG-SOFT SNMP Trap Service"
Ws.Run "Cmd /k RunAs /profile /user:" & sUser &" "&Dblquote(Command)&""
WScript.Sleep 2000
Ws.Sendkeys "Votre Mot de Passe" 'A Modifier 
Ws.Sendkeys "{ENTER}"
 
Function Dblquote(str)
    Dblquote = chr(34) & str & chr(34)
End Function