|
 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
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
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
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
Service windows qui se lance au démarrage mais ne fait rien! [ par terminathan ]
Bonjour!Je suis en train de faire un service Windows ayant pour but de lancer toutes les deux minutes un .bat et un .VBs.Grâce à Renfield qui m'a aidé
Modifier un Label [ par Debenja84 ]
Bonjour, Bonsoir à tous,Je souhaiterais savoir s'il existe un équivalent pour le Label au :Text1.Text = blablablaJ'ai chercher sur le net, mais je n'a
modifier les données access [ par qmohamed ]
Bonjour,j ai créé un bouton cmdChg pour modifier les données dans une base de données access. voila le code :(Private Sub cmdChg_Click() ' Déclarat
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
|