{"id":87,"date":"2006-03-29T08:16:00","date_gmt":"2006-03-29T15:16:00","guid":{"rendered":"http:\/\/www.jasemccarty.com\/blog\/2006\/03\/vbs-update-services-password-on-localremote-box.html"},"modified":"2006-03-29T08:16:00","modified_gmt":"2006-03-29T15:16:00","slug":"vbs-update-services-password-on-localremote-box","status":"publish","type":"post","link":"https:\/\/www.jasemccarty.com\/blog\/vbs-update-services-password-on-localremote-box\/","title":{"rendered":"VBS: Update Services Password on Local\/Remote Box"},"content":{"rendered":"
This script, will allow you to update passwords for services that “Log on As” set to use a domain account.<\/span><\/span><\/div>\n
<\/span><\/span> <\/div>\n
You can download it here<\/a><\/strong>.<\/span><\/span><\/div>\n
<\/span><\/span> <\/div>\n
‘***********************************************************
‘Written by Jase McCarty
‘Date: 03\/29\/2006
‘
‘UPD8SVCS.vbs
‘
‘Description: Change the password on a local
‘or remote system for a Service that has
‘”Logon As” set for a Domain Account
‘Useful for Servers when a service account
‘has a password change
‘***********************************************************<\/span><\/span><\/div>\n
<\/span> <\/div>\n
Option Explicit<\/span><\/span><\/div>\n
<\/span> <\/div>\n
Dim shellobj,env
Dim strUserDomain,strUserName,strPassword,strComputer
Dim CSComputerName,CSAccount,CSPassword,objWMIService
Dim objService<\/span><\/span><\/div>\n
<\/span> <\/div>\n
‘Check to make sure that we receive enough arguements (2 or more)
If Wscript.Arguments.Count < 2 Then<\/p>\n

Wscript.Echo “Usage: UPD8SVCS.vbs USERNAME PASSWORD COMPUTERNAME”
Wscript.Quit<\/p>\n

Else<\/p>\n

‘Create a Shell Object & be able to get environment variables
Set shellobj = CreateObject(“Wscript.Shell”)
Set env = shellobj.Environment(“process”) <\/span><\/span><\/div>\n

<\/span> <\/div>\n
‘Setup default domain for credentials
‘(could be modified to be an attribute)
strUserDomain = env(“USERDOMAIN”)
strUserName = Wscript.Arguments(0)
strPassword = Wscript.Arguments(1)<\/p>\n

‘Check to make sure we have enough arguements (2 or more)
If Wscript.Arguments.Count > 2 Then
‘If we 3, then the Computername will be the 3rd arguement
strComputer = Wscript.Arguments(2)
Else
‘If we only receive the first 2, then the Computername
‘will be the local computer
strcomputer = env(“COMPUTERNAME”)
End If<\/p>\n

‘Call the ChangeServices subroutine
Call ChangeServices(strComputer,strUserDomain & “” & strUserName,strPassword)<\/p>\n

WScript.Quit<\/p>\n

End If<\/p>\n

‘The ChangeServices SubRoutine
‘This requires a computername, account,and password to be passed to it
Sub ChangeServices(CSComputerName,CSAccount,CSPassword)<\/span><\/span><\/div>\n

<\/span> <\/div>\n
‘Setup a WMIService object, and setup a query to put all services in an array
Set objWMIService = GetObject(“winmgmts:\\” & CSComputerName & “rootcimv2”)
Set colItems = objWMIService.ExecQuery(“Select * from Win32_Service”,,48)<\/p>\n

‘Loop through the array
For Each objService in colItems <\/span><\/span><\/div>\n

<\/span> <\/div>\n
‘If the “Logon As” of the current service matches the user specified,
‘change the password to the one specified
If Lcase(objService.StartName) = LCase(CSAccount) Then
‘Make the credentials change
errReturn = objService.Change(,,,,,,CSAccount,CSPassword)<\/p>\n

‘Write to the screen and the computer’s event log, the success or failure
If err.number <> 0 then
shellobj.LogEvent 1,”Failure Changing Username and Password for ” _
& objService.DisplayName & ” run by user ” & CSAccount & “.”
Wscript.Echo “Failure Changing Username and Password for ” _
& objService.DisplayName & ” run by user ” & CSAccount & “.”
Else
shellobj.LogEvent 0,”Successfully Changed Username and Password for ” _
& objService.DisplayName & ” run by user ” & CSAccount & “.”
Wscript.Echo “Successfully Changed Username and Password for ” _
& objService.DisplayName & ” run by user ” & CSAccount & “.”
End If<\/p>\n

End If<\/p>\n

Next <\/span><\/span><\/div>\n


End Sub<\/span><\/span><\/div>\n
<\/span> <\/div>\n
<\/span><\/span> <\/div>\n","protected":false},"excerpt":{"rendered":"

This script, will allow you to update passwords for services that “Log on As” set to use a domain account. You can download it here. … <\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"class_list":["post-87","post","type-post","status-publish","format-standard","hentry","category-vbs"],"_links":{"self":[{"href":"https:\/\/www.jasemccarty.com\/blog\/wp-json\/wp\/v2\/posts\/87","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.jasemccarty.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.jasemccarty.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.jasemccarty.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.jasemccarty.com\/blog\/wp-json\/wp\/v2\/comments?post=87"}],"version-history":[{"count":0,"href":"https:\/\/www.jasemccarty.com\/blog\/wp-json\/wp\/v2\/posts\/87\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.jasemccarty.com\/blog\/wp-json\/wp\/v2\/media?parent=87"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.jasemccarty.com\/blog\/wp-json\/wp\/v2\/categories?post=87"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.jasemccarty.com\/blog\/wp-json\/wp\/v2\/tags?post=87"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}