Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Scripting Microsoft Question a deux balles sur la Methode RUN !!!

Question a deux balles sur la Methode RUN !!!

4 réponses
Avatar
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.
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jean-Claude BELLAMY
Dans le message news:% ,
toon s'est ainsi exprimé:

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
*


Avatar
toon
Merci a vous Mr BELLAMY !!!

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

"Jean-Claude BELLAMY" a écrit dans le
message de news:
Dans le message news:% ,
toon s'est ainsi exprimé:

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
*






Avatar
Jean-Claude BELLAMY
Dans le message news:% ,
toon s'est ainsi exprimé:

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
*

Avatar
toon
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" a écrit dans le
message de news:
Dans le message news:% ,
toon s'est ainsi exprimé:

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
*