VBS Changer mot de pass d un service Windows

Question

Hello World,

J ai besoin de faire un script qui change le mot de pass d un account d un service

Mon script (c est celui de microsoft d ailleur) ne fonctionne pas
L account est a account d active directory (c est peut etre pour ca)
Voila merci de votre aide, si qelqu un a une autre id&#233;e

strComputer = "Nom du PC"

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")

Set colServiceList = objWMIService.ExecQuery _

    ("Select * from Win32_Service")

For Each objservice in colServiceList

    If objService.Startname = ".\Nom de l account utilis&#233; par le service" Then

        errReturn = objService.Change( , , , , , , , "le nouveau password")  

    End If 

Next

salska · Answer

Voila c est mieu

strComputer = "Nom du PC"
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service")
For Each objservice in colServiceList
    If objService.Startname = ".\Nom de l account utilis&#233;" Then
    
        errReturn = objService.Change( , , , , , , , "Nouveau mot de pass")  
    End If 
Next

arrozamiakram · Answer

merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii

VBS Changer mot de pass d un service Windows

2 réponses

Discussions similaires