1 2 3 4 5 6 7 8 9 10 11 12 13 14
   | '-----------------------------------------------------------------------------------------?----------------------------------------------
' Fichier VBScript : "StartService.vbs"
' Démarrage du service
'-----------------------------------------------------------------------------------------?----------------------------------------------
        Dim objFSO, objWMIService, objService, colServiceList
         Dim objReseau, Ordinateur
         Dim Reponse
	 Dim WshShell
	 Dim service
 
	Set arg = WScript.Arguments
	service = arg(0)
Set WshShell = CreateObject("WScript.Shell")
  Set objReseau = CreateObject("WScript.Network") | 
Partager