script = arret service - commande - start service

[vercetty]

Salut!!
voila pour mon entreprise j'aimerai utiliser un vbscript qui ferai
1- arret d'un service (ex: spool impression)
2- lance commande (ex: cmd)
3- relance le service précédemment arété.

n'y connaissant pas grand chose en vbscript je voudrais votre avis concernant l'ampleur de la tâche, si il y aurait pas un script que je puisse reutiliser.
ou des liens qui pourraient m'aider.

Merci d'avance
a++

 

[KangOl]

un simple batch fait l'affaire

net stop <service>
commande
net start <service>

 

[vercetty]

voui mais j'aimerai du vbscript, merci quand meme kangol je prends cette solution comme secour...

alor a l'heure actuelle voici ce que j'ai pour demarrer un service "ici en l'occurence "aide et support"

[cpp]strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='netsvcs'")

For Each objService in colServiceList
errReturn = objService.StartService()
Next

Wscript.Sleep 5000

Set colServiceList = objWMIService.ExecQuery("Associators of " _
& "{Win32_Service.Name='netsvcs'} Where " _
& "AssocClass=Win32_DependentService " & "Role=Dependent" )
For Each objService in colServiceList
objService.StartService()
Next[/cpp]





Mais le pb c'est que j'ai un message d'erreur :

pb ligne :17 caract.:1 erreur : 0x80041002 code:80041002 source:null

c'est la ligne "For Each objService in colServiceList" et g le meme pb avec la mm ligne sur un script identique qui arrete un service....

si qulequn pourrait m'aider ce serait cool les gars!

 

[zeb]

Oh comme le message de KangOl est beau et bien présenté, avec son code correctement mis en forme.

[strike]Beurk, comme celui de vercetty est laid et NON CONFORME AUX REGLES DE PUBLICATION EN VIGUEUR SUR CE SITE.

Tout n'est pas perdu, vercetty, je t'invite à consulter ces règles et à mettre ton message en conformité. Ce n'est pas une condition sine qua non pour obtenir de l'aide, c'est une marque de politesse à l'égard de ceux qui te lisent.[/strike]

 

[vercetty]

ok autant pour moi

 

[Freeman23]

C'est quoi le type de objservice ?

 

[vercetty]

désolé freeman n'étant pas développeur je ne saurais te répondre avec certitude.....
Néanmoins voici ce que j'ai trouver comme script (il arrete le service telnet, lance la commande "cmd" puis est censer relancer le service "telnet").
Ce que je ne suis pas en mesure de comprendre, et c'est là que vous pourriez m'aider, c'est que la partie "start service" fonctionne très bien quand elle est isolée, mais dans mon script d'ensemble (stop+commande+start), la partie "start" ne relance pas le service.....

[cpp]'---------------------------------------------------------
'---------------------------------------------------------
'---------------------
' Fichier VBScript : "backupblackberry.vbs"
' Démarrage du service
'---------------------------------------------------------
'---------------------------------------------------------
'---------------------
'###stop services###
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colServiceList = objWMIService.ExecQuery("Associators of " _
& "{Win32_Service.Name='tlntsvr'} Where " _
& "AssocClass=Win32_DependentService " & "Role=Antecedent" )

For Each objService in colServiceList
objService.StopService()
Next

Wscript.Sleep 5000

Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='tlntsvr'")
For Each objService in colServiceList
errReturn = objService.StopService()
Next


'###commande###

Set WshShell = WScript.CreateObject("WScript.Shell")
ligne_cmd = "cmd"
WshShell.Run (ligne_cmd)


'###start services###

Dim objFSO, objWMIService, objService, colServiceList
Dim objReseau, Ordinateur
Dim Reponse

Set objReseau = CreateObject("WScript.Network")
Ordinateur = LCase(objReseau.ComputerName)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & Ordinateur & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='tlntsvr'")
For Each objService In colServiceList
If (objService.Name = "tlntsvr") Then
Reponse = objService.StartService()
End If
Next
Set objFSO = Nothing
Set objReseau = Nothing
WScript.Quit [/cpp]

Merci d'avance


Dixit Moderator: +100 caractères de commentaires inutiles ça décalait tout.