Update service account identity with login interactive

[Kozimoto]

Hi.

I am looking for a vbscript that when ran would ask for a domain\loginid as the parameter and update a service to use these credential for starting the the service and grant it log on interactively.

Any help would be very much appreciated.

 

[Geates]

I think you will find most of what you are looking for here:

http://www.activexperts.com/activmonitor/windowsmanagement/scripts/operatingsystem/services/#MSA.htm

strSvcName = "myService"
strUsername = inputBox("Enter your FQDN (domain\userid):")
strPassword = inputBox("Enter your password:")

strComputer = "."
set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set colServiceList = objWMI.ExecQuery("Select * from Win32_Service Where StartName=" & strSvcName)

for each objService in colServiceList
    errReturn = objService.Change( , , , , , , strUsername, strPassword)  
next

Not sure about granting it rights. Although, if the user is in the correct AD Groups, this shouldn't be an issue.

-Geates

 

[mrmovie]

i cheat and use the ntrights.exe at install / config time for the rights, knowing full well that GroupPolicy will come and along and explicitly grant or deny the rights anwyway. at least i have done my bit, i cant help it if AD comes along and changes it later

 

[Kozimoto]

Thanks to both of you. I'll give this a go.