'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 2009
'
' NAME: ScanForUpdates.vbs
'
' AUTHOR: Mathias Haas, Techta AB.
' DATE  : 2011-11-24
'
' COMMENT: Sets registry keys to the WSUS/SUP-server and initiates a WSUS-rescan locally.
'		   Needed for Build And Capture image creation.
'==========================================================================

'----- Create Registry Settings Required for Workgroup Updating -----
Dim oShell
Set oShell = CreateObject("WScript.Shell")
oShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\WUServer", "https://SUPserver.name.com:8531", "REG_SZ"
oShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\WUStatusServer", "https://SUPserver.name.com:8531", "REG_SZ"
oShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\UseWUServer", 1, "REG_DWORD"

'----- Restart wuauserv Service so Settings Take Effect -----
Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colServiceList = oWMIService.ExecQuery ("Select * from Win32_Service Where Name='wuauserv'")
For Each objService in colServiceList
objService.StopService()
Wscript.Sleep 5000
objService.StartService()
Next
Wscript.Sleep 5000

'-------- Trigger Software Updates Rescan ------
Schid = "{00000000-0000-0000-0000-000000000113}"
sMachine = "."
Set WMItarget = GetObject("winmgmts://" & sMachine)
Set WMICCM=GetObject("Winmgmts:{impersonationLevel=impersonate,authenticationLevel=pktPrivacy}!\\" & sMachine & "\root\ccm")
set SMSCli = WMICCM.Get("SMS_Client")
set oParams = SMSCli.Methods_("TriggerSchedule").inParameters.SpawnInstance_()
oParams.sScheduleID = Schid
set res = WMICCM.ExecMethod("SMS_Client", "TriggerSchedule", oParams)
wscript.sleep(180000)

WScript.Quit(0)