Undo Windows Update Restriction

' xp_winupd_netpolicy.vbs

On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")

p1 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\WindowsUpdate\DisableWindowsUpdateAccess"
p2 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoWindowsUpdate"

WshShell.RegWrite p1, 0, "REG_DWORD"
WshShell.RegWrite p2, 0, "REG_DWORD"

Set WshShell = Nothing

x = MsgBox("Finished",4096,"Windows Update Restriction")