Discussion :

[kevain_09]

bonjour tt l'monde !
voici mon script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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='Schedule'")
    For Each objService In colServiceList
        If (objService.Name = "Schedule") Then
            Reponse = objService.StartService()
        End If
    Next
    Set objFSO = Nothing
    Set objReseau = Nothing
WScript.Quit

Ce script démmarre le service windows "Schedule" ou le plannificateur de tâches si vous preferez (panneau de config/outils d'admin/services)

C'est bien , mais malheuresement insufisant !
j'aimerais egalement qu'il puisse le configurer et mettre la valeur "Type de demmarrage" à " automatique"

Merci pour votre aide

[omen999]

salut,
un peu de lecture ? : http://msdn2.microsoft.com/en-US/library/aa384901.aspx
la propriété qui t'intéresse est StartMode mais tu l'avais déjà deviné...

[kevain_09]

merci, mais je me suis pas embeté !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set objWshShell = WScript.CreateObject("WScript.Shell")  
'regle le type demarrage sur automatique 
objWshShell.Run("sc config Schedule start= auto")
'demarre le service
objWshShell.Run("net start Schedule")

pkoi faire compliqué quand on peut faire simple