'==========================================================================
'
' VBScript Source File
'
' NAME: WSUS_Client_Configure
'
' AUTHOR: FuLin , Systems Service Department , Chengdu Microsoft Technology Center
' DATE : 2007/2/20
'
' COMMENT: This Script Can Be Configure WSUS Client.
'
'==========================================================================
ON Error Resume Next
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut
Set oreg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
'HTTP(S) URL of the WSUS server used by Automatic Updates and (by default) API callers. This policy is paired with WUStatusServer; both must be set to the same value in order for them to be valid.
strKeyPath = "SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate"
strValueName = "WSUS_Server_URL"
strValue = " WUServer "
oreg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
'The HTTP(S) URL of the server to which reporting information will be sent for client computers that use the WSUS server configured by the WUServer key. This policy is paired with WUServer; both must be set to the same value in order for them to be valid.
strKeyPath = "SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate"
strValueName = "WSUS_Server_URL"
strValue = "WUStatusServer"
oreg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
' --------------------------------------------------------------
strKeyPath2 = "Software\Policies\Microsoft\Windows\WindowsUpdate\AU"
strValueName = "AUOptions"
dwValue = 2
' Range = 2|3|4|5
' 2 = Notify before download.
' 3 = Automatically download and notify of installation.
' 4 = Automatic download and scheduled installation. (Only valid if values exist for ScheduledInstallDay and ScheduledInstallTime.)
' 5 = Automatic Updates is required, but end users can configure it.
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strValueName,dwValue
strValueName = "AutoInstallMinorUpdates"
dwValue = 0
' Range = 0|1
' 0 = Treat minor updates like other updates.
' 1 = Silently install minor updates.
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strValueName,dwValue
strValueName = "NoAutoRebootWithLoggedOnUsers"
dwValue = 0
' Range = 0|1;
' 1 = Logged-on user gets to choose whether or not to restart his or her computer.
' 0 = Automatic Updates notifies user that the computer will restart in 5 minutes.
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strValueName,dwValue
strValueName = "RebootWarningTimeout"
dwValue = 15
' Range=n; where n=Time In minutes (1-30).
' Length, In minutes, of the restart warning countdown after installing updates With a deadline or scheduled updates.
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strValueName,dwValue
strValueName = "NoAutoUpdate"
dwValue = 0
' Range = 0|1
' 0 = Enable Automatic Updates.
' 1 = Disable Automatic Updates.
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strValueName,dwValue
strValueName = "ScheduledInstallDay"
dwValue = 0
' Range = 0|1|2|3|4|5|6|7
' 0 = Every day.
' 1 through 7 = The days of the week from Sunday (1) to Saturday (7).
' (Only valid if AUOptions equals 4.)
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strValueName,dwValue
strValueName = "ScheduledInstallTime"
dwValue = 12
' Range = n; where n = the time of Day In 24-Hour format (0-23).
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strValueName,dwValue