Windows Server's Services

Question

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

Answer 1

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

Answer 2

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

Answer 3

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