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