question

NitzanBakman-8927 avatar image
0 Votes"
NitzanBakman-8927 asked DSPatrick answered

Windows Server's Services

My customer is experiencing issues with Windows Server's Services. Services who are logged on with domain user authentication or NT Services stopped repeatedly each time a Server restarts, and the same password is entered manually in order to start the Service back.
The passwords are valid and the users are not locked.
I'll be happy to advice how can he fix it?
Thanks
Nitzan

windows-server
5 |1600 characters needed characters left characters exceeded

Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

DSPatrick avatar image
0 Votes"
DSPatrick answered

What services? what errors are in the system event log?





5 |1600 characters needed characters left characters exceeded

Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

NitzanBakman-8927 avatar image
0 Votes"
NitzanBakman-8927 answered

Hi
Thanks for getting back to me

Any services running on domain user or NT services

The customer receive this note:
Windows could not start the WorkSiteCommunication Service for the web Services sevice on local computer
Error: 1069: The service dod not start due to logon failure

To resolve the issue we need to reenter the user’s password.

Thanks
Best Regards
Nitzan

5 |1600 characters needed characters left characters exceeded

Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

DSPatrick avatar image
0 Votes"
DSPatrick answered

The most likely cause is the network or domain was not available when the service tried to start up. What I usually did here was schedule a script to run via task scheduler at 15 min interval

 Option Explicit
 Dim objWMIService, colRunningServices, objService, colServiceList
 If servstate <> "Running" AND servstate <> "Starting"
     Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\.\root\cimv2")
     Set colServiceList = objWMIService.ExecQuery _
      ("Select * from Win32_Service where Name='FactoryTalk AssetCentre Server'")
     For each objService in colServiceList
       errReturn = objService.StartService()
     Next
     Wscript.Sleep 20000
     Set colServiceList = objWMIService.ExecQuery("Associators of " _
      & "{Win32_Service.Name='FactoryTalk AssetCentre Server'} Where " _
      & "AssocClass=Win32_DependentService " & "Role=Dependent" )
     For each objService in colServiceList
       objService.StartService()
     Next
 End If
    
 Function servstate
     Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\.\root\cimv2")
    
     Set colRunningServices = objWMIService.ExecQuery("Select * " _
      & "from Win32_Service Where DisplayName = 'FactoryTalk AssetCentre Server'")
    
     For Each objService in colRunningServices 
       servstate = objService.State
     Next
 End Function
    
 Set objWMIService = Nothing
 Set colRunningServices = Nothing
 Set oShell = Nothing
 Set colServiceList = Nothing


5 |1600 characters needed characters left characters exceeded

Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.