End Services

#RequireAdmin ;Requires Script With Administrator Rights for Stopping Services

#cs ----------------------------------------------------------------------------
    AutoIt Version: v3.3.14.5
    Author:      SevWren
    Requirements:    Only Confirmed in Windows 10x64
    Script Function: Stop Services every 10 minutes
#ce ----------------------------------------------------------------------------

;Define and Assign user input to variables

;~ $result = RunWait(@ComSpec & " /c pause", @ScriptDir, @SW_MAXIMIZE)
Global $Windows = InputBox("", "Turn Off Update Crap?", "y/n")
Global $MiscCrap = InputBox("", "Turn Misc Crap?", "y/n")

While 1 = 1 ;do functions based on $Windows & $MiscCrap input
    If $Windows = "y" Or $Windows = "Y" Then
        _StopWinUpdateServices() ;goto _StopWinUpdateServices function
    EndIf
    If $MiscCrap = "y" Or $MiscCrap = "Y" Then
        _StopMiscCrap() ;goto _StopMiscCrap() function
    EndIf
    Sleep(600000) ;do nothing for 10 minutes
WEnd


Func _StopWinUpdateServices() ;Stop Services
    ;$result returns 0 = Success, 2 = Already Stopped / Started
    $result = RunWait(@ComSpec & " /c net stop " & '"Windows Update"', @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop " & '"Background Intelligent Transfer Service"', @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop " & '"Update Orchestrator Service"', @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop " & '"Windows Update Medic Service"', @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop " & '"Workstation"', @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop " & '"TCP/IP NetBIOS Helper"', @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop server", @ScriptDir, @SW_HIDE)
EndFunc   ;==>_StopWinUpdateServices

Func _StopMiscCrap()         ;crappy services good to stop. shouldn't be perm "disabled"
    $result = RunWait(@ComSpec & " /c net stop " & '"SSDP Discovery"', @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop " & '"Clipboard User Service_b5784"', @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop " & '"Contact Data_b5784"', @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop " & '"Sync Host_b5784"', @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop " & '"Quality Windows Audio Video Experience"', @ScriptDir, @SW_HIDE)

EndFunc   ;==>_StopMiscCrap

#cs
;Notes for future addition to offer turning services on if needbe
Func _TurnOnStuff() ;starts all services stopped previously
    $result = RunWait(@ComSpec & " /c net stop " & '"Windows Update"', @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop " & '"Background Intelligent Transfer Service"', @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop " & '"Update Orchestrator Service"', @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop " & '"Windows Update Medic Service"', @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop " & '"Workstation"', @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop " & '"TCP/IP NetBIOS Helper"', @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop server", @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop " & '"SSDP Discovery"', @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop " & '"Clipboard User Service_b5784"', @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop " & '"Contact Data_b5784"', @ScriptDir, @SW_HIDE)
    $result = RunWait(@ComSpec & " /c net stop " & '"Sync Host_b5784"', @ScriptDir, @SW_HIDE)
EndFunc   ;==>_TurnOnStuff
#ce