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.
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
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 *
Dans le message news:%231K4g8OcFHA.2768@tk2msftngp13.phx.gbl ,
toon <deprime@hotmail.com> 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
Jean-Claude.Bellamy@wanadoo.fr * JC.Bellamy@free.fr
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 *
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 *
Merci a vous Mr BELLAMY !!!
Je vais suivre vos conseils, elaguer un peu votre script.
"Jean-Claude BELLAMY" <Jean-Claude.Bellamy@wanadoo.fr> a écrit dans le
message de news: eGHHv0PcFHA.3400@tk2msftngp13.phx.gbl...
Dans le message news:%231K4g8OcFHA.2768@tk2msftngp13.phx.gbl ,
toon <deprime@hotmail.com> 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
Jean-Claude.Bellamy@wanadoo.fr * JC.Bellamy@free.fr
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 *
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 *
Dans le message news:%232MoQ3XcFHA.2768@tk2msftngp13.phx.gbl ,
toon <deprime@hotmail.com> 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
Jean-Claude.Bellamy@wanadoo.fr * JC.Bellamy@free.fr
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 *
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
'------------------------------------ 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 *
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" <Jean-Claude.Bellamy@wanadoo.fr> a écrit dans le
message de news: Odl7AwYcFHA.4028@TK2MSFTNGP10.phx.gbl...
Dans le message news:%232MoQ3XcFHA.2768@tk2msftngp13.phx.gbl ,
toon <deprime@hotmail.com> 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
'------------------------------------
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
Jean-Claude.Bellamy@wanadoo.fr * JC.Bellamy@free.fr
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
'------------------------------------ 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 *