Modifier le mode de démarrage d'un serviceRésolu

Question

Bonjours,
Je souhaite pouvoir modifier le mode de d&#233;marrage d'un service, j'arrive bien &#224; r&#233;cup&#233;rer son mode de d&#233;marrage, mais j'ai pas trouv&#233; 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'&#233;tait dieu..., ben..., je crorais pas en moi .....
Et si j'&#233;tais moi..., ben..., j'me m&#233;firais....

manshivas · Accepted Answer

Enfin !!!!! ca marche, pour ceux que ça interresse, voici la solution (assezz simple en fait....)

faire référence à "Microsoft WMI Scripting"

puis 

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='Aconvert'")
        
   MsgBox ServiceObject.changestartmode("Automatic") ' ou Boot, System, Manual, Disabled

Et hop, service modifier.....

manshivas · Answer

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

BruNews · Answer

Regarde ChangeServiceConfig() dans MSDN.

ciao...
http://dev.winsysdev.com
BruNews, MVP VC++

manshivas · Answer

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

BruNews · Answer

MSDN donne les fonctions associ&#233;es en bas de page: QueryServiceConfig().

ciao...
http://dev.winsysdev.com
BruNews, MVP VC++

manshivas · Answer

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 "..... :-(

Modifier le mode de démarrage d'un service

6 réponses

Discussions similaires