Modifier le mode de démarrage d'un service

Bonjours,
Je souhaite pouvoir modifier le mode de démarrage d'un service, j'arrive bien à récupérer son mode de démarrage, mais j'ai pas trouvé comment le modifier...

Dim ServiceObject As SWbemObject
Dim Locator As SWbemLocator
Dim services As SWbemServices

Set Locator = New SWbemLocator
Set services = Locator.ConnectServer("")
Set ServiceObject = services.Get("Win32_Service='PlugPlay'")
MsgBox ServiceObject.StartMode

Qui qui peut me donner un coup de main???

Merci d'avance.



Ben... si j'était dieu..., ben..., je crorais pas en moi .....
Et si j'étais moi..., ben..., j'me méfirais....

Petite précision, c'est en VB6... ;-)

Regarde ChangeServiceConfig() dans MSDN.

ciao...
[ Lien ]
BruNews, MVP VC++

Réponse presqu'acceptée... lol j'en suis à l'ouverture de mon service, mais je bloque au moment de la modification, comment puis-je laisser les valeurs que je ne veux pas modifier.....? Public Declare Function OpenSCManager Lib "advapi32.dll" Alias "OpenSCManagerA" (ByVal lpMachineName As String, ByVal lpDatabaseName As String, ByVal dwDesiredAccess As Long) As Long Public Declare Function OpenService Lib "advapi32.dll" Alias "OpenServiceA" (ByVal hSCManager As Long, ByVal lpServiceName As String, ByVal dwDesiredAccess As Long) As Long Public Declare Function ChangeServiceConfig Lib "advapi32.dll" Alias "ChangeServiceConfigA" (ByVal hService As Long, ByVal dwServiceType As Long, ByVal dwStartType As Long, ByVal dwErrorControl As Long, ByVal lpBinaryPathName As String, ByVal lpLoadOrderGroup As String, lpdwTagId As Long, ByVal lpDependencies As String, ByVal lpServiceStartName As String, ByVal lpPassword As String, ByVal lpDisplayName As String) As Long Public Function modifService() Dim scManager As Long Dim service As Long scManager = OpenSCManager(vbNullString, vbNullString, SC_MANAGER_ALL_ACCESS) service = OpenService(scManager, "Messenger", SERVICE_CHANGE_CONFIG) service = ChangeServiceConfig(service,.............) End Function

MSDN donne les fonctions associées en bas de page: QueryServiceConfig().

ciao...
[ Lien ]
BruNews, MVP VC++

j'en suis à cet état : Public Function modifService() Dim scManager As Long Dim service As Long Dim ret As Variant scManager = OpenSCManager(vbNullString, vbNullString, SC_MANAGER_ALL_ACCESS) service = OpenService(scManager, "Aconvert", SERVICE_CHANGE_CONFIG) MsgBox ChangeServiceConfig(service, SERVICE_NO_CHANGE, SERVICE_AUTO_START, SERVICE_NO_CHANGE, SERVICE_NO_CHANGE, SERVICE_NO_CHANGE, SERVICE_NO_CHANGE, SERVICE_NO_CHANGE, SERVICE_NO_CHANGE, SERVICE_NO_CHANGE, SERVICE_NO_CHANGE) CloseServiceHandle service CloseServiceHandle scManager End Function La fonction "ChangeServiceConfig" me renvoit désespérément " 0 "..... :-(