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 Gestion des services sur des serveurs rometes

Gestion des services sur des serveurs rometes

4 réponses
Avatar
OlivierT
Bonjour,

Je souhaiterai savoir si il est possible de changer le compte et le mot de
passe d'un service W2K sur une machine distante.
Quelqu'un peut-il m'aider ?

Merci par avance,

Olivier
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
Stéphane [MS]
Bonjour,

Sur Script Center :
============================ strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")

Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service Where StartName = '.netsvc'")

For each objService in colServices
errServiceChange = objService.Change _
( , , , , , , "NT AUTHORITYLocalService" , "")
Next
=============================
Alternativement, il existe la commande SC qui permet de le faire également.
C'est du style :
sc ordinateur config ...

Cdlt
Stéphane

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

Je souhaiterai savoir si il est possible de changer le compte et le mot de
passe d'un service W2K sur une machine distante.
Quelqu'un peut-il m'aider ?

Merci par avance,

Olivier


Avatar
OlivierT
Bonjour,

merci de votre reponse. Cependant, je n'arrive pas a le faire fonctionner.
J'ai modifier le script pour faire celui-ci :
strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")

Set colServiceList = objWMIService.ExecQuery ("Select * from Win32_Service
Where StartName = '.Telnet'")

For each objService in colServiceList
errServiceChange = objService.Change ( , , , , , , "NT
AUTHORITYLocalService" , "")
Next

Le script s'execute sans m'afficher d'erreur de code mais le service tourne
toujours avec le compte de domaine... Idem pour le mot de passe.

Aurai-je fais une erreure ????


Bonjour,

Sur Script Center :
============================ > strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")

Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service Where StartName = '.netsvc'")

For each objService in colServices
errServiceChange = objService.Change _
( , , , , , , "NT AUTHORITYLocalService" , "")
Next
============================= >
Alternativement, il existe la commande SC qui permet de le faire également.
C'est du style :
sc ordinateur config ...

Cdlt
Stéphane

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

Je souhaiterai savoir si il est possible de changer le compte et le mot de
passe d'un service W2K sur une machine distante.
Quelqu'un peut-il m'aider ?

Merci par avance,

Olivier







Avatar
Stéphane [MS]
Une toute petite erreur :
La requête indiquée ne porte pas sur le nom du service mais sur le compte
utilisé pour le démarrer.
Utilisez la requête suivante :
Set colServiceList = objWMIService.ExecQuery ("Select * from Win32_Service
Where Name = 'Telnet'")

Cdlt
Stéphane

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

merci de votre reponse. Cependant, je n'arrive pas a le faire fonctionner.
J'ai modifier le script pour faire celui-ci :
strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")

Set colServiceList = objWMIService.ExecQuery ("Select * from Win32_Service
Where StartName = '.Telnet'")

For each objService in colServiceList
errServiceChange = objService.Change ( , , , , , , "NT
AUTHORITYLocalService" , "")
Next

Le script s'execute sans m'afficher d'erreur de code mais le service
tourne
toujours avec le compte de domaine... Idem pour le mot de passe.

Aurai-je fais une erreure ????


Bonjour,

Sur Script Center :
============================ >> strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")

Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service Where StartName = '.netsvc'")

For each objService in colServices
errServiceChange = objService.Change _
( , , , , , , "NT AUTHORITYLocalService" , "")
Next
============================= >>
Alternativement, il existe la commande SC qui permet de le faire
également.
C'est du style :
sc ordinateur config ...

Cdlt
Stéphane

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

Je souhaiterai savoir si il est possible de changer le compte et le mot
de
passe d'un service W2K sur une machine distante.
Quelqu'un peut-il m'aider ?

Merci par avance,

Olivier









Avatar
OlivierT
Super, ca fonctionne.
Merci beaucoup

Olivier


Une toute petite erreur :
La requête indiquée ne porte pas sur le nom du service mais sur le compte
utilisé pour le démarrer.
Utilisez la requête suivante :
Set colServiceList = objWMIService.ExecQuery ("Select * from Win32_Service
Where Name = 'Telnet'")

Cdlt
Stéphane

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

merci de votre reponse. Cependant, je n'arrive pas a le faire fonctionner.
J'ai modifier le script pour faire celui-ci :
strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")

Set colServiceList = objWMIService.ExecQuery ("Select * from Win32_Service
Where StartName = '.Telnet'")

For each objService in colServiceList
errServiceChange = objService.Change ( , , , , , , "NT
AUTHORITYLocalService" , "")
Next

Le script s'execute sans m'afficher d'erreur de code mais le service
tourne
toujours avec le compte de domaine... Idem pour le mot de passe.

Aurai-je fais une erreure ????


Bonjour,

Sur Script Center :
============================ > >> strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")

Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service Where StartName = '.netsvc'")

For each objService in colServices
errServiceChange = objService.Change _
( , , , , , , "NT AUTHORITYLocalService" , "")
Next
============================= > >>
Alternativement, il existe la commande SC qui permet de le faire
également.
C'est du style :
sc ordinateur config ...

Cdlt
Stéphane

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

Je souhaiterai savoir si il est possible de changer le compte et le mot
de
passe d'un service W2K sur une machine distante.
Quelqu'un peut-il m'aider ?

Merci par avance,

Olivier