sc openservice failed 5 access is denied Task Schedule Windows 2008 R2

Question

Hello,

I want to enable check box "Allow service to interact with desktop" for Task Scheduler service, but when make this steps:

Start -> Run -> services.msc -> Task Scheduler -> Right Click -> Properties -> Log on tab all options are grey 

All other tabs for that services are grey and I can not do anything. Also I can not start/stop Task Scheduler service. 

I'm loged with system build in account [e-mail]. I try to make above steps and with local administrator of the machine, but result is the same. Why?

When try to run in cmd this commands:

C:\Users\Administrator.NEXTPOINTHOST>sc sdshow Schedule
[SC] OpenService FAILED 5:

Access is denied.


C:\Users\Administrator.NEXTPOINTHOST>sc stop Schedule
[SC] OpenService FAILED 5:

Access is denied.

 Where the problem how I can reconfigure Task Scheduler service?

Answer 1

On NT6.x, services usually don't interact with desktop.

Regards,

--pa

Answer 2

Ok in this way how to run this vbs script and it to running normal, because when I run via cmd the script do what I want, but when I run like schedule task job complete without any errors, but script do not do anything why?

This is the script:

' преравя процесите в Windows, взима ползваната памет и притежателите им. спира процесите с голям разход на памет
' изисква администраторски права за четенето на притежателите и за спирането на процеси

' Mem Usage = Working Set (Memory)
' VM size = Commit Size

Option Explicit
Dim objWMIService, objProcess, colProcess			' to loop processes
Dim strNameOfUser, Return					' to get owner of process
Dim intUsedMemory, boolKill					' to calc total used memory by processes owner
Dim strUserName, intQuotaTotalMemory, intQuotaAppMemory		' input parameters

If WScript.Arguments.Count = 3 Then														' get parameteres from command line
	strUserName = WScript.Arguments.Item(0)													' Get UserName	
	If IsNumeric(WScript.Arguments.Item(1)) Then intQuotaTotalMemory = Int(WScript.Arguments.Item(1)) Else intQuotaTotalMemory = 0 End If 	' Get QuotaTotalMemory for the user
	If intQuotaTotalMemory <= 0 Then
		WScript.Echo "Invalid value for 'QuotaTotalMemory'"
		WScript.Quit
	End If
	If IsNumeric(WScript.Arguments.Item(2)) Then intQuotaAppMemory = Int(WScript.Arguments.Item(2)) Else intQuotaAppMemory = 0 End If	' Get QuotaAppMemory
	If intQuotaAppMemory <= 0 Then
		WScript.Echo "Invalid value for 'QuotaAppMemory'"
		WScript.Quit
	End If
Else
	WScript.Echo "Usage: processes.vbs UserName QuotaTotalMemory[kb] QuotaAppMemory[kb]"
	WScript.Quit
End If


intUsedMemory = 0
boolKill = false

'Dim objLoc

'Set objLoc = createobject("wbemscripting.swbemlocator")
'objLoc.Security_.privileges.addasstring "sedebugprivilege", true

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate, (Debug)}!\\.\root\cimv2") 	' Computer = .
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process")

For Each objProcess in colProcess
	Return = objProcess.GetOwner(strNameOfUser)
'If Return = 0 Then msgbox strNameOfUser
	If Return = 0 Then
		If strNameOfUser = strUserName Then		
			intUsedMemory = intUsedMemory + (objProcess.WorkingSetSize / 1024)
			'MsgBox intUsedMemory
			If intUsedMemory > intQuotaTotalMemory Then
				boolKill = true
				Exit For
			End If
		End If
	End If
Next

Function KillByProcess(Name)
	Dim objProc, colProc, strUsr
	Set colProc = objWMIService.ExecQuery("Select * from Win32_Process where Name = '" & Name & "'")
	
	For Each objProc in colProc
		On Error Resume Next
			' Get process owner
			Return = objProc.GetOwner(strUsr)
			' Terminate the process 
			If Return = 0 And Err.Number = 0 And strUsr = strUserName Then objProc.Terminate()
		On Error Goto 0
	Next
	
	Set colProc = Nothing
End Function

If boolKill Then
	For Each objProcess in colProcess
		On Error Resume Next
			Return = objProcess.GetOwner(strNameOfUser)
		
			If Return = 0 And Err.Number = 0 Then
				'If strNameOfUser = strUserName And (objProcess.WorkingSetSize / 1024) > intQuotaAppMemory Then MsgBox objProcess.WorkingSetSize & " " & objProcess.Name & " : " & objProcess.Terminate()
				If (strNameOfUser = strUserName) And (objProcess.Name <> "explorer.exe") And (objProcess.WorkingSetSize / 1024) > intQuotaAppMemory Then 
					call KillByProcess(objProcess.Name)
				End If
			End If
		On Error Goto 0
	Next
End If

' http://msdn.microsoft.com/en-us/library/aa394372(v=vs.85).aspx

Answer 3

Ask the  scripting guys?

http://social.technet.microsoft.com/Forums/en-US/ITCG/threads

Regards,

--pa

Answer 4

Thank you I will ask scripting guys.