:

Const OWN_PROCESS = 16
Const NOT_INTERACTIVE = False
Const NORMAL_ERROR_CONTROL = 2
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objService = objWMIService.Get("Win32_BaseService")
errReturn = objService.Create("Nom_du_service" ,"Sauvegarde du répertoire toto" , _
"d:\script\Bakup.bat", OWN_PROCESS, NORMAL_ERROR_CONTROL, "Manual", _
NOT_INTERACTIVE, "NT AUTHORITY\LocalService", "password" )
Wscript.Echo errReturn