-
Notifications
You must be signed in to change notification settings - Fork 0
/
Windows_Update_Pause_TR.vbs
84 lines (64 loc) · 3.85 KB
/
Windows_Update_Pause_TR.vbs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
' INFO:
' Windows Update Pause / Resume
' Copyright (C) 2024 Abdullah ERTÜRK
' https://github.com/abdullah-erturk/Windows-Update-Pause-Resume
'=====================================
If Not WScript.Arguments.Named.Exists("elevate") Then
CreateObject("Shell.Application").ShellExecute WScript.FullName _
, """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1
WScript.Quit
End If
'=====================================
Set objShell = CreateObject("WScript.Shell")
Const HKEY_LOCAL_MACHINE = &H80000002
strKeyPath = "SOFTWARE\Microsoft\WindowsUpdate\UX\Settings"
strValueName = "PauseFeatureUpdatesStartTime"
Set objRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv")
On Error Resume Next
intReturnValue = objRegistry.GetStringValue(HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue)
If intReturnValue = 0 Then
Set objShell = CreateObject("WScript.Shell")
strKeyPath = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsUpdate\UX\Settings"
strValueName1 = "PauseFeatureUpdatesStartTime"
strValueName2 = "PauseFeatureUpdatesEndTime"
strValueName3 = "PauseQualityUpdatesStartTime"
strValueName4 = "PauseQualityUpdatesEndTime"
strValueName5 = "PauseUpdatesStartTime"
strValueName6 = "PauseUpdatesExpiryTime"
strValueName7 = "FlightSettingsMaxPauseDays"
objShell.RegDelete strKeyPath & "\" & strValueName1
objShell.RegDelete strKeyPath & "\" & strValueName2
objShell.RegDelete strKeyPath & "\" & strValueName3
objShell.RegDelete strKeyPath & "\" & strValueName4
objShell.RegDelete strKeyPath & "\" & strValueName5
objShell.RegDelete strKeyPath & "\" & strValueName6
objShell.RegDelete strKeyPath & "\" & strValueName7
objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsUpdate\UX\Settings\FlightSettingsMaxPauseDays", 35, "REG_DWORD"
MsgBox "Windows Güncelleþtirme Duraklatma Süresi varsayýlan ayara (5 hafta) dönüþtürüldü." & vbCR & "" & vbCR & "Windows Update hizmeti etkinleþtirildi.", vbInformation + vbSystemModal, "Win Update Pause / Resume | by Abdullah ERTÜRK"
Set objShell = CreateObject("WScript.Shell")
strPowerShellCmd1 = "Stop-Process -Name SystemSettings -Force"
strPowerShellCmd2 = "Start-Process ms-settings:windowsupdate"
objShell.Run "powershell.exe -ExecutionPolicy Bypass -Command """ & strPowerShellCmd1 & """", 0, True
objShell.Run "powershell.exe -ExecutionPolicy Bypass -Command """ & strPowerShellCmd2 & """", 0, True
Set objShell = Nothing
Else
PauseWeeks = InputBox("Windows Güncelleþtirmeleri Duraklat seçeneðine eklemek istediðiniz hafta sayýsýný girin:" & vbCR & "" & vbCR & "Örnek: 10, 20, 30, 40, vb.", "Güncelleþtirmeleri Duraklatma Süresi")
If IsNumeric(PauseWeeks) Then
PauseWeeks = CInt(PauseWeeks)
If PauseWeeks > 0 Then
FlightSettingsMaxPauseDays = PauseWeeks * 7
objShell.RegWrite "HKEY_LOCAL_MACHINE\" & strKeyPath & "\FlightSettingsMaxPauseDays", CInt(FlightSettingsMaxPauseDays), "REG_DWORD"
objShell.Run "cmd /c net start wuauserv", 0, True
MsgBox "Windows Güncelleþtirmeleri Duraklat seçeneðine " & PauseWeeks & " hafta (" & FlightSettingsMaxPauseDays & " gün) eklendi.", vbInformation + vbSystemModal, "Win Update Pause / Resume | by Abdullah ERTÜRK"
Set objShell = CreateObject("WScript.Shell")
strPowerShellCmd1 = "Stop-Process -Name SystemSettings -Force"
strPowerShellCmd2 = "Start-Process ms-settings:windowsupdate"
objShell.Run "powershell.exe -ExecutionPolicy Bypass -Command """ & strPowerShellCmd1 & """", 0, True
objShell.Run "powershell.exe -ExecutionPolicy Bypass -Command """ & strPowerShellCmd2 & """", 0, True
Set objShell = Nothing
End If
Else
MsgBox "Lütfen geçerli bir sayý girin.", vbExclamation + vbSystemModal, "Win Update Pause / Resume | by Abdullah ERTÜRK"
End If
End If
Set objShell = Nothing