|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 Sujet : Modifier le mode de démarrage d'un service [ Archives Visual Basic / Système ] (manshivas)
 Informations & options pour cette discussion
|
vendredi 3 février 2006 à 18:55:32 |
Modifier le mode de démarrage d'un service
manshivas
|
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....
|
|
|
|
vendredi 3 février 2006 à 19:00:41 |
Re : Modifier le mode de démarrage d'un service
manshivas
|
Petite précision, c'est en VB6... ;-)
|
|
|
|
samedi 4 février 2006 à 01:22:32 |
Re : Modifier le mode de démarrage d'un service
BruNews
|
Regarde ChangeServiceConfig() dans MSDN. ciao...  [ Lien ]BruNews, MVP VC++
|
|
|
|
lundi 6 février 2006 à 14:51:34 |
Re : Modifier le mode de démarrage d'un service
manshivas
|
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
|
|
|
|
lundi 6 février 2006 à 17:46:22 |
Re : Modifier le mode de démarrage d'un service
BruNews
|
MSDN donne les fonctions associées en bas de page: QueryServiceConfig(). ciao... [ Lien ]BruNews, MVP VC++
|
|
|
|
lundi 6 février 2006 à 17:58:59 |
Re : Modifier le mode de démarrage d'un service
manshivas
|
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 "..... :-(
|
|
|
|
mardi 7 février 2006 à 15:23:30 |
Re : Modifier le mode de démarrage d'un service
manshivas
|
Réponse acceptée !
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.....
|
|
|
Cette discussion est classé dans : modifier, démarrage, service, mode, serviceobject
 Répondre à ce message
 Sujets en rapport avec ce message
Modifier le mode de démarrage d'un service [ par manshivas ]
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é commen
Modifier le mode de démarrage d'un service [ par manshivas ]
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é commen
Service Windows [ par lim ]
Bonjour,J'aurais besoin de modifier les propriétés d'un service windows via du code.Je sais déjà arrêter et démarrer mon service avec net stop et net
Démarrage du programme par programme.exe -mode [ par azerty25 ]
Bonjour tout le monde !Je suis en train de faire un programme et en fait, il faut qu'il est 2 modes de démarrages. Le mode normal qui se démarrage qua
Problème pour démarrage userform [ par eastpeople ]
Bonjour tout le monde, j'ai un problème sur un bouton.Je vous explique.j'ai un userform "ADM" sur ce userform j'ai un bouton "modifier" et je veux que
APPLI EN SYSTRAY + SERVICE [ par damz ]
Bonjour,j'ai fais une appli en VB qui tourne en tant que service.Je désire mettre dans la barre des tâches (systray) mon appli à chaque démarrage de s
MYSQL en mode service avec ODBC [ par FRatvks ]
Bonsoir,Jai reussi a installer MYSQLD-NT en service sous windows XP par la base de registrej'ai juste le minimum dans /BIN le mysqld-nt.exeMon service
Modifier boîte de dialogue Ouvrir sous office 2007 [ par buldo1 ]
Bonjour, je cherche à modifier les emplacements par défaut de la boïte de dialogue ouvrir ou enregistrer sousje savais le faire avec office 2000 rajou
lancer un programme au démarrage de Windows [ par nerd24 ]
Bonjour, Comment fait-on pour lancer u
Modifier propriétés d'un fichier [ par maxsecurite2 ]
Bonjour,Comme vous le savez tous lorsque que l'on clic sur un exe vb avec le bouton droit de la souris et que l'on clic sur propriété et sur le bon on
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|