Click here to monitor SSC
SQLServerCentral is supported by Red Gate Software Ltd.
 
Log in  ::  Register  ::  Not logged in
 
 
 
        
Home       Members    Calendar    Who's On


Add to briefcase

Changing Logon account for SQL Server Service using VBScript. Expand / Collapse
Author
Message
Posted Tuesday, April 07, 2009 5:24 AM
Valued Member

Valued MemberValued MemberValued MemberValued MemberValued MemberValued MemberValued MemberValued Member

Group: General Forum Members
Last Login: Wednesday, April 09, 2014 5:23 AM
Points: 69, Visits: 303
I am trying to change the LogOn account for all SQL Server related services from LocalSystem to a domain account user details. I am using the below VBScript code, but doesn't work. It displays an error dialog box which says :

Line 14
Parameter is Incorrect
Error code : 80070057
Source : SWbemObjectEx

Can someone tell what is the solution please.

*******************************************************
Set objNet = CreateObject("WScript.NetWork")

sLogin = objNet.UserDomain & "\" & objNet.UserName

sPwd = InputBox("Please enter your password for the " & sLogin & " to login as service for SQL Server: ")


Set oWMI = GetObject( "winmgmts:\\.\root\cimv2" )
Set oServices = oWMI.ExecQuery("SELECT * FROM Win32_Service WHERE DisplayName like 'SQL%' and StartName = 'LocalSystem'", "WQL")
For each oService in oServices
Wscript.Echo "Service Name :" & oService.Name
Set oSQLService = GetObject("winmgmts:\\.\root\Microsoft\SqlServer\ComputerManagement:SqlService.ServiceName='" & oService.Name & "',SQLServiceType=1")
iError = oSQLService.SetServiceAccount sLogin, sPwd)
If (iError <> 0) Then
Wscript.Echo "Error"
Else
Wscript.Echo "Success"
End If
Next
***************************************************
Post #691855
« Prev Topic | Next Topic »

Add to briefcase

Permissions Expand / Collapse