[Soman_X]

UPDATE:
Problem gelöst...

Falls Zukünftig jemand über die SuFu drauf stöße: Es ist mit Batch Scripten so ohne weiteres nicht möglich. Hier wird tatsächlich nur der Reg-Key verändert. Dem Dienst selbst ist das (bis zum Neustart des Rechners) egal.
Eine Lösung ist lediglich über ein vbScript ohne Neustart des PC's möglich.

'Service-ID: 2 = Autostart, 3 = Start on Demand, 4 = Disabled
Const SERVICE_START_ID = 4 

Set oShell = CreateObject("WScript.Shell") 
Set oWshNet = CreateObject("WScript.Network") 
sComputer = oWshNet.ComputerName
logfile = ""

sService = "TlntSvr" 
x = StopService(sService, oShell)

WScript.Echo logfile

Function StopService(sService, oShell)
	' set Messenger to Enabled 
	bOK = ConfigureService(sService, SERVICE_START_ID, sComputer) 
	' start the Messenger service 
	oShell.Run "net.exe stop """ & sService & """", 0, True 
	If bOK Then 
		logfile = logfile & sService & " configured" & vbCrLf
	Else 
		logfile = logfile & "Failed to configure " & sService  & vbCrLf
	End If
End Function

Function ConfigureService(sService, iType, sNode) 
    Dim oComputer, oService 
    Set oComputer = GetObject("WinNT://" & sNode & ",computer") 
    On Error Resume Next 
    Set oService = oComputer.GetObject("Service", sService) 
    If Err.Number <> 0 Then 
      ConfigureService = False 
      Exit Function 
    End If

    If oService.StartType <> iType Then 
      oService.StartType = iType 
      oService.SetInfo 
      WScript.Sleep 1000 
    End If 
    ConfigureService = True 
End Function