Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Scripting Microsoft Comment Lancer un service aprés l'avoir activer en automatique

Comment Lancer un service aprés l'avoir activer en automatique

3 réponses
Avatar
Georges
Bonjour,

J'utilise ce script pour activer le service RemoteRegistry lorsqu'il ne
l'est pas, mais une fois activ=E9, quelle est la fonction qui peut les
lancer ?

Merci

Dim Services, ObjetSet, Objet
Set Services =3D GetObject("winmgmts:\\")
Set ObjetSet =3D Services.InstancesOf("Win32_Service")
msg=3D"Affichage des services"& VBCRLF & VBCRLF
i=3D0
For Each Objet In ObjetSet

i=3Di+1
msg=3Dmsg & objet.name & VBCRLF
If i> 20 Then
i=3D0
wscript.echo msg
msg=3D"Affichage des services"& VBCRLF & VBCRLF
End If

if objet.name=3D"RemoteRegistry" then

if Objet.StartMode =3D "Disabled" Then
errReturnCode =3D objet.Change( , , , , "Automatic")
End If

if Objet.StartMode =3D "Manual" Then
errReturnCode =3D objet.Change( , , , , "Automatic")
End If

End If

Next
wscript.echo msg
Signaler un problème avec ce contenu

3 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
Gilles LAURENT
"Georges" a écrit dans le message de
news:
| Bonjour,

Bonjour,

| J'utilise ce script pour activer le service RemoteRegistry lorsqu'il
| ne l'est pas, mais une fois activé, quelle est la fonction qui peut
| les lancer ?

Objet.StartService ()

--
Gilles LAURENT
http://glsft.free.fr
Avatar
Gilles LAURENT
"Georges" a écrit dans le message de
news:
| Bonjour,

Bonsoir,

| J'utilise ce script pour activer le service RemoteRegistry lorsqu'il
| ne l'est pas, mais une fois activé, quelle est la fonction qui peut
| les lancer ?
[...]

Je suis de retour de week-end et ne voyant pas de réponse je présume que
la solution initiale ne convenait pas. Donc ci-dessous le script
VBScript 'StartRmtRegSvc.vbs' permettant d'une part de configurer le
service "Accès à distance au Registre" en démarrage automatique et
d'autre part de le démarrer si nécessaire.

--- Coupez-ici : StartRmtRegSvc.vbs ---

Option Explicit

' déclaration des variables
Dim oWMI, oService
Dim colServices

' initialisation des objets
Set oWMI = GetObject ("winmgmts:rootcimv2")

' requête WMI pour déterminer si le service
' "Accès à distance au Registre" est en démarrage automatique
' et ci celui-ci est démarré
Set colServices = oWMI.ExecQuery ( _
"SELECT * from Win32_Service " & _
"WHERE Name='RemoteRegistry' " & _
"AND (StartMode <> 'Auto' " & _
"OR Started = 'False')")

' lecture du résultat de la requête
For Each oService In colServices
' une condition n'a pas été vérifiée
' configuration du service en démarrage auto
oService.ChangeStartMode ("Automatic")
' démarrage du service (si celui-ci n'est pas déjà démarré)
oService.StartService ()
Next

--- Coupez-ici : StartRmtRegSvc.vbs ---

Merci de fermer ce fil si celui-ci est résolu ou de le compléter si
nécessaire.

--
Gilles LAURENT
http://glsft.free.fr
Avatar
Georges

"Georges" a écrit dans le message de
news:
| Bonjour,

Bonsoir,

| J'utilise ce script pour activer le service RemoteRegistry lorsqu'il
| ne l'est pas, mais une fois activé, quelle est la fonction qui peut
| les lancer ?
[...]

Je suis de retour de week-end et ne voyant pas de réponse je présume que
la solution initiale ne convenait pas. Donc ci-dessous le script
VBScript 'StartRmtRegSvc.vbs' permettant d'une part de configurer le
service "Accès à distance au Registre" en démarrage automatique et
d'autre part de le démarrer si nécessaire.

--- Coupez-ici : StartRmtRegSvc.vbs ---

Option Explicit

' déclaration des variables
Dim oWMI, oService
Dim colServices

' initialisation des objets
Set oWMI = GetObject ("winmgmts:rootcimv2")

' requête WMI pour déterminer si le service
' "Accès à distance au Registre" est en démarrage automatique
' et ci celui-ci est démarré
Set colServices = oWMI.ExecQuery ( _
"SELECT * from Win32_Service " & _
"WHERE Name='RemoteRegistry' " & _
"AND (StartMode <> 'Auto' " & _
"OR Started = 'False')")

' lecture du résultat de la requête
For Each oService In colServices
' une condition n'a pas été vérifiée
' configuration du service en démarrage auto
oService.ChangeStartMode ("Automatic")
' démarrage du service (si celui-ci n'est pas déjà démarré)
oService.StartService ()
Next

--- Coupez-ici : StartRmtRegSvc.vbs ---

Merci de fermer ce fil si celui-ci est résolu ou de le compléter si
nécessaire.

--
Gilles LAURENT
http://glsft.free.fr


Bonjour,


Merci beaucoup, cela me va à merveille.


Cordialement