Discussion :

[ZERS]

Bonjour,

voilà, je souhaite démarrer (ou arreter) un service via le WMI.
Super facile.

Par contre, je voudrais avoir une alerte quand le service est effectivement démarré. En effet, entre la demande de démarrage et le démarrage, il peut se passer plusieurs secondes.

Voici un script que j'ai écris, j'indique dedans la commande qui me manque :

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
Dim Services, ObjetSet, Objet
Set Services = GetObject("winmgmts:\\")
Set ObjetSet = Services.InstancesOf("Win32_Service")
Dim etat
For Each Objet In ObjetSet
if Objet.name = "MSSQLSERVER" Then
etat = ucase(Objet.state)
if etat <> "RUNNING" Then
	Objet.StartService
	etat = ucase&#40;Objet.state&#41;
                'ici je cherche un truc genre &#40;tant que en cours de demaraage&#41;...
	while &#40;etat <>"RUNNING"&#41;
		etat = ucase&#40;Objet.state&#41;
		
	wend
End If
End If
Next

Il semble que la ligne

Code :

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

etat = ucase(Objet.state)

dans le while ne soit jamais remise à jour car même lorsque le service est en état demarrer dans windows, la variable ETAT est toujours à STOPPED.

Une idée ?

[Aurelien.Regat-Barrel]

Il semble que la ligne

Code :

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

etat = ucase(Objet.state)

dans le while ne soit jamais remise à jour car même lorsque le service est en état demarrer dans windows, la variable ETAT est toujours à STOPPED.

ben si tu réaffecte jamais etat, je vois pas trop pourquoi elle changerait toute seule de valeur. Note que y'a un boolean Started dans la classe, et que ta boucle risque d'être sans fin si le démarrage du service échoue.
La commande "net start MSSQLSERVER" fait ce que tu recherches...

[Laurent Dardenne]

Pour info :
http://laurent-dardenne.developpez.c...es/wmi-p2/#L18