Question a deux balles sur la Methode RUN !!!

Le
toon
Comment faire marcher ce bout de code je plante sur les guillemets qui
specifie le nom du service !!!

nError = oWSH.Run("cmd /c netsvc.exe 'service de cluster' \cluster1 /query
> c:etat-cluster.txt")

En fait je cherche a savoir si le service est ok lors du redemarrage d'un
des serveurs de cluster.
Dans le "System Administration Scripting Guide" il y a des choses, mais je
n'y comprends rien pour l'instant.

D'avance merci.
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
Jean-Claude BELLAMY
Le #467196
Dans le message news:% ,
toon
Comment faire marcher ce bout de code ... je plante sur les
guillemets qui specifie le nom du service !!!

nError = oWSH.Run("cmd /c netsvc.exe 'service de cluster' \cluster1
/query
c:etat-cluster.txt")


En fait je cherche a savoir si le service est ok lors du redemarrage
d'un des serveurs de cluster.
Dans le "System Administration Scripting Guide" il y a des choses,
mais je n'y comprends rien pour l'instant.



J'ai écrit un script SETSVC.VBS qui permet de lister et obtenir/définir
l'état de services
http://www.bellamyjc.org/fr/vbsdownload.html#setsvc

Tu peux t'en inspirer (il suffira "d'élaguer")


P.ex. :

'------------------------------------
Svcname ="service de cluster"

Set net = Wscript.CreateObject("WScript.Network")
computer=net.ComputerName

Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set ObjService = objLocator.ConnectServer(computer, "rootCIMV2","","")
ObjService.Security_.impersonationlevel = 3
Set ServiceSet=ObjService.ExecQuery("SELECT * FROM Win32_service")
foundúlse
result="non trouvé"
for each Service in ServiceSet
If StrComp(Service.DisplayName,Svcname,vbTextCompare)=0 or _
StrComp(Service.Name,Svcname,vbTextCompare)=0 Then
If StrComp(Service.state,"running",vbTextCompare)=0 Then _
etat="démarré" else etat="arrêté"
wscript.echo Service.DisplayName & " (" & Service.Name _
& ") est " & etat
found=true
exit for
end if
next
If not found then wscript.echo Svcname & " non trouvé"
'------------------------------------


--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
*


toon
Le #467193
Merci a vous Mr BELLAMY !!!

Je vais suivre vos conseils, elaguer un peu votre script.

"Jean-Claude BELLAMY" message de news:
Dans le message news:% ,
toon
Comment faire marcher ce bout de code ... je plante sur les
guillemets qui specifie le nom du service !!!

nError = oWSH.Run("cmd /c netsvc.exe 'service de cluster' \cluster1
/query
c:etat-cluster.txt")


En fait je cherche a savoir si le service est ok lors du redemarrage
d'un des serveurs de cluster.
Dans le "System Administration Scripting Guide" il y a des choses,
mais je n'y comprends rien pour l'instant.



J'ai écrit un script SETSVC.VBS qui permet de lister et obtenir/définir
l'état de services
http://www.bellamyjc.org/fr/vbsdownload.html#setsvc

Tu peux t'en inspirer (il suffira "d'élaguer")


P.ex. :

'------------------------------------
Svcname ="service de cluster"

Set net = Wscript.CreateObject("WScript.Network")
computer=net.ComputerName

Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set ObjService = objLocator.ConnectServer(computer, "rootCIMV2","","")
ObjService.Security_.impersonationlevel = 3
Set ServiceSet=ObjService.ExecQuery("SELECT * FROM Win32_service")
foundúlse
result="non trouvé"
for each Service in ServiceSet
If StrComp(Service.DisplayName,Svcname,vbTextCompare)=0 or _
StrComp(Service.Name,Svcname,vbTextCompare)=0 Then
If StrComp(Service.state,"running",vbTextCompare)=0 Then _
etat="démarré" else etat="arrêté"
wscript.echo Service.DisplayName & " (" & Service.Name _
& ") est " & etat
found=true
exit for
end if
next
If not found then wscript.echo Svcname & " non trouvé"
'------------------------------------


--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
*






Jean-Claude BELLAMY
Le #467192
Dans le message news:% ,
toon
Merci a vous Mr BELLAMY !!!

Je vais suivre vos conseils, elaguer un peu votre script.


L'exemple que je t'ai donné (et repris ci-dessous) est déjà un "élagage" de
SETSVC.VBS
http://www.bellamyjc.org/fr/vbsdownload.html#setsvc

'------------------------------------
Svcname ="service de cluster"

Set net = Wscript.CreateObject("WScript.Network")
computer=net.ComputerName

Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set ObjService = objLocator.ConnectServer(computer,"rootCIMV2","","")
ObjService.Security_.impersonationlevel = 3
Set ServiceSet=ObjService.ExecQuery("SELECT * FROM Win32_service")
foundúlse
for each Service in ServiceSet
If StrComp(Service.DisplayName,Svcname,vbTextCompare)=0 or _
StrComp(Service.Name,Svcname,vbTextCompare)=0 Then
If StrComp(Service.state,"running",vbTextCompare)=0 Then _
etat="démarré" else etat="arrêté"
wscript.echo Service.DisplayName & " (" & Service.Name _
& ") est " & etat
found=true
exit for
end if
next
If not found then wscript.echo Svcname & " non trouvé"
'------------------------------------

A toi de l'adapter à ce que tu veux faire exactement ..


--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
*

toon
Le #470815
OK ... merci Mr Bellamy.

Mais aujourd'hui, je voudrai savoir comment resoudre mon probleme de methode
RUN avec mon pb initial.
En effet, je veux l'utiliser avec wzzip. Construire le chemin des data a
compresser dynamiquement par recherche recursive (en fait j'ai un
repertoire parent qui contient plein de petits repertoires plein de petits
fichiers que je souhaite zipper automatiquement. Pour ce faire j'explore mon
repertoire parent, et je comprer chaque fichier independement).
Je sais que la methode de compression n'est pas super optimisee, mais ce qui
m'interesse le plus aujourd'hui c'est la methode de syntaxe de RUN.


"Jean-Claude BELLAMY" message de news:
Dans le message news:% ,
toon
Merci a vous Mr BELLAMY !!!

Je vais suivre vos conseils, elaguer un peu votre script.


L'exemple que je t'ai donné (et repris ci-dessous) est déjà un "élagage"
de

SETSVC.VBS
http://www.bellamyjc.org/fr/vbsdownload.html#setsvc

'------------------------------------
Svcname ="service de cluster"

Set net = Wscript.CreateObject("WScript.Network")
computer=net.ComputerName

Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set ObjService = objLocator.ConnectServer(computer,"rootCIMV2","","")
ObjService.Security_.impersonationlevel = 3
Set ServiceSet=ObjService.ExecQuery("SELECT * FROM Win32_service")
foundúlse
for each Service in ServiceSet
If StrComp(Service.DisplayName,Svcname,vbTextCompare)=0 or _
StrComp(Service.Name,Svcname,vbTextCompare)=0 Then
If StrComp(Service.state,"running",vbTextCompare)=0 Then _
etat="démarré" else etat="arrêté"
wscript.echo Service.DisplayName & " (" & Service.Name _
& ") est " & etat
found=true
exit for
end if
next
If not found then wscript.echo Svcname & " non trouvé"
'------------------------------------

A toi de l'adapter à ce que tu veux faire exactement ..


--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
*





Poster une réponse
Anonyme