Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement WinDev Installation et suppression d'un service

Installation et suppression d'un service

4 réponses
Avatar
Pierre BOUSQUET
Pour ceux que ca intéresse, 2 scripts en VBS pour installer/supprimer
un service

//Installation d'un service
Const OWN_PROCESS = 16
Const NOT_INTERACTIVE = False
Const NORMAL_ERROR_CONTROL = 2
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objService = objWMIService.Get("Win32_BaseService")
errReturn = objService.Create("Nom_du_service" ,"Sauvegarde du
répertoire toto" , _
"d:\script\Bakup.bat", OWN_PROCESS, NORMAL_ERROR_CONTROL, "Manual", _
NOT_INTERACTIVE, "NT AUTHORITY\LocalService", "password" )


// Suppression d'un service
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name = 'Nom_du_service'")
FOR EACH objService IN colListOfServices
objService.StopService()
objService.delete()
Next

--
Pierre BOUSQUET

" Ne me dites pas que ce problème est difficile.
S'il n'était pas difficile, ce ne serait pas un problème. "
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pierre BOUSQUET
un petit plus :

PROCEDURE VBSExecuteScript(ProgrammeVbs)
objVBS est un objet Automation dynamique
objVBS = allouer un objet Automation "MSScriptControl.ScriptControl"

objVBS>>Language("VBScript")
objVBS>>Reset()

QUAND EXCEPTION DANS
objVBS>>AddCode(ProgrammeVbs)
FAIRE
RENVOYER Faux
FIN

libérer objVBS

RENVOYER Vrai

Pierre BOUSQUET avait énoncé :
Pour ceux que ca intéresse, 2 scripts en VBS pour installer/supprimer un
service

//Installation d'un service
Const OWN_PROCESS = 16
Const NOT_INTERACTIVE = False
Const NORMAL_ERROR_CONTROL = 2
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set objService = objWMIService.Get("Win32_BaseService")
errReturn = objService.Create("Nom_du_service" ,"Sauvegarde du répertoire
toto" , _
"d:scriptBakup.bat", OWN_PROCESS, NORMAL_ERROR_CONTROL, "Manual", _
NOT_INTERACTIVE, "NT AUTHORITYLocalService", "password" )


// Suppression d'un service
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name = 'Nom_du_service'")
FOR EACH objService IN colListOfServices
objService.StopService()
objService.delete()
Next




--
Pierre BOUSQUET

" Ne me dites pas que ce problème est difficile.
S'il n'était pas difficile, ce ne serait pas un problème. "
Avatar
Romain PETIT
Pierre BOUSQUET a présenté l'énoncé suivant :

Pour ceux que ca intéresse, 2 scripts en VBS pour installer/supprimer un
service





Ca oblige donc a installer MSCriptcontrol ? (A moins qu'il soit
installé par défaut ?)
Il faut j'imagine également des droits d'éxécution de scripts en plus
du droit d'accès aux services ?

Pour le moment, la classe de Denis Reimstein [1] a ma préférence mais à
voir...

A+


[1]
http://www.windasso.org/cgi-bin/gesmod.exe?exec=VISU&NUMRUBRIQUEX0&MDP=&TYPE=SOURCE

--
Romain PETIT
http://cerbermail.com/?O16kfXOFcq
(cliquez sur le lien ci-dessus pour me contacter en privé)
Avatar
Pierre BOUSQUET
cette classe permet-elle d'être indépendant de WDSERVICE ?

Romain PETIT a exprimé avec précision :
Pierre BOUSQUET a présenté l'énoncé suivant :

Pour ceux que ca intéresse, 2 scripts en VBS pour installer/supprimer un
service





Ca oblige donc a installer MSCriptcontrol ? (A moins qu'il soit installé par
défaut ?)
Il faut j'imagine également des droits d'éxécution de scripts en plus du
droit d'accès aux services ?

Pour le moment, la classe de Denis Reimstein [1] a ma préférence mais à
voir...

A+


[1]
http://www.windasso.org/cgi-bin/gesmod.exe?exec=VISU&NUMRUBRIQUEX0&MDP=&TYPE=SOURCE




--
Pierre BOUSQUET

" Ne me dites pas que ce problème est difficile.
S'il n'était pas difficile, ce ne serait pas un problème. "
Avatar
Romain PETIT
Pierre BOUSQUET avait écrit le 10/02/2006 :
cette classe permet-elle d'être indépendant de WDSERVICE ?



Oui oui (je n'ai jamais utilisé WDSERVICE)
Elle me sert à démarrer ou stoppper les services.
Pour le service lui-même : XYNTService
http://groups.google.com/group/fr.comp.developpement.agl.windev/msg/d1680b4a70cf9cd5?hl=fr&

A+

--
Romain PETIT
http://cerbermail.com/?O16kfXOFcq
(cliquez sur le lien ci-dessus pour me contacter en privé)