Hi,
while searching for an solution to deploy a complete installed and configured Windows 7 OS with SCCM i have build the following solution to
integrate the Windows Update process in an OSD task sequence.
The advantage of this procedure is that the whole progress of the deployment will be shown in the original SCCM progress UI, and that you have an integrated, automated workflow installing the machine in an actual OS-state.
Here are the Steps to build the SCCM Package.
Step 1. In the new installed Windows PC you must install the correct Windows Update Agent for your OS Version.
For Example, on my Windows 7 Machines I actually need version 7.4.7600.226 (WindowsUpdateAgent30-x86.exe) to work with WSUS.
Step 2. The following scripts and files are also needed, they actually provide the automated WSUS patch installation integration.
- PSEXEC.EXE (Microsoft / Sysinternals)
- AU.REG
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate]
"WUServer"="http://wsus.company.com:8530"
"WUStatusServer"="http://wsus.company.com:8530"
[HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU]
"AUPowerManagement"=dword:00000001
"NoAutoUpdate"=dword:00000000
"AUOptions"=dword:00000004
"ScheduledInstallDay"=dword:00000000
"ScheduledInstallTime"=dword:00000003
"UseWUServer"=dword:00000001
"NoAutoRebootWithLoggedOnUsers"=dword:00000001
"RebootRelaunchTimeoutEnabled"=dword:00000001
"RebootRelaunchTimeout"=dword:0000003c
[HKEY_CURRENT_USER\Software\Sysinternals]
[HKEY_CURRENT_USER\Software\Sysinternals\PsExec]
"EulaAccepted"=dword:00000001
- UPDATE.CMD
@echo off
regedit /s %~dp0au.reg
copy %~dp0update.vbs %temp%\update.vbs
%~dp0psexec.exe -i 1 -s wscript.exe %temp%\update.vbs
del %temp%\update.vbs
- UPDATE.VBS
'==========================================================================
'
' NAME: SCCM Windows Update Task Sequence
'
' AUTHOR: Lutz Fiebach , NEXT GHmbH
' DATE : 23.07.2010
'
'==========================================================================
On error Resume Next
Class DummyClass
Public Default Function DummyFunction()
End Function
End Class
Dim gObjShell, gObjProgressUI, gObjFileSystem, strScriptPath, strCommand, strCurrentUpdate
Dim gObjSearchResult, gObjUpdateSearcher, gObjUpdateSession, gObjUpdateCollection, gStrTmpDir
Dim gStrWinDir, objDownload, objInstall, gObjDummyDict, varScriptPath, gStrOrgName, gStrTSName
Set gObjShell = CreateObject("WScript.Shell")
Set gObjFileSystem = CreateObject("Scripting.FileSystemObject")
Set gObjUpdateSession = CreateObject("Microsoft.Update.Session")
Set gObjUpdateCollection = CreateObject("Microsoft.Update.UpdateColl")
Set gObjProgressUI = CreateObject("Microsoft.SMS.TsProgressUI")
Set gObjDummyDict = CreateObject("Scripting.Dictionary")
Call gObjDummyDict.Add("DummyFunction", New DummyClass)
gStrOrgName = "COMPANY"
gStrTSName = "Microsoft Windows Update"
gStrWinDir = gObjShell.ExpandEnvironmentStrings("%windir%")
gStrTmpDir = gObjShell.ExpandEnvironmentStrings("%temp%")
Set gObjUpdateDownloader = gObjUpdateSession.CreateUpdateDownloader()
fncDebugLog "update.vbs::main", "CreateUpdateDownloader" & vbTab & "Result: " & err.description & "(" & err.number & ")"
Set gObjUpdateInstaller = gObjUpdateSession.CreateUpdateInstaller()
fncDebugLog "update.vbs::main", "CreateUpdateInstaller" & vbTab & "Result: " & err.description & "(" & err.number & ")"
varScriptPath = split(WScript.ScriptFullName, "\")
For x = 0 To ubound(varScriptPath) - 1
strScriptPath = strScriptPath & varScriptPath(x) & "\"
Next
fncDebugLog "update.vbs::main", "strScriptPath :" & strScriptPath & vbTab & "Result: " & err.description & "(" & err.number & ")"
strCommand = gStrWinDir & "\System32\CCM\TsProgressUI.exe /Register"
gObjShell.Run strCommand,0 ,1
fncDebugLog "update.vbs::main", "Run :" & strCommand & vbTab & "Result: " & err.description & "(" & err.number & ")"
'##
Call gObjProgressUI.ShowActionProgress(gStrOrgName, gStrTSName, gStrTSName, _
"Windows Update initialize ...", 1, 4, _
"Configure Windows Update ...", 3, 4)
'##
Call gObjProgressUI.ShowActionProgress(gStrOrgName, gStrTSName, gStrTSName, _
"Windows Update initialize ...", 1, 4, _
"Stopping Service ...", 3, 4)
strCommand = "net stop wuauserv"
gObjShell.Run strCommand,0 ,1
fncDebugLog "update.vbs::main", "Run :" & strCommand & vbTab & "Result: " & err.description & "(" & err.number & ")"
'##
Call gObjProgressUI.ShowActionProgress(gStrOrgName, gStrTSName, gStrTSName, _
"Windows Update initialize ...", 1, 4, _
"Starting Service ...", 4, 4)
strCommand = "net start wuauserv"
gObjShell.Run strCommand,0 ,1
fncDebugLog "update.vbs::main", "Run :" & strCommand & vbTab & "Result: " & err.description & "(" & err.number & ")"
'##
WScript.Sleep 500
Call gObjProgressUI.ShowActionProgress(gStrOrgName, gStrTSName, gStrTSName, _
"Windows Update search ...", 2, 4, _
"Checking for Updates ...", 0, 1)
'##
Set gObjUpdateSearcher = gObjUpdateSession.CreateupdateSearcher()
fncDebugLog "update.vbs::main", "CreateupdateSearcher" & vbTab & "Result: " & err.description & "(" & err.number & ")"
Set gObjSearchResult = gObjUpdateSearcher.Search("IsInstalled=0 and Type='Software'")
fncDebugLog "update.vbs::main", "Search(IsInstalled=0 and Type=Software)" & vbTab & "Result: " & err.description & "(" & err.number & ")"
fncDebugLog "update.vbs::main", "UpdateCount :" & gObjSearchResult.Updates.Count & vbTab & "Result: " & err.description & "(" & err.number & ")"
Call gObjProgressUI.ShowActionProgress(gStrOrgName, gStrTSName, gStrTSName, _
"Windows Update search ...", 3, 4, _
"Checking for Updates ...", 1, 1)
WScript.Sleep 500
If gObjSearchResult.Updates.Count < 1 Then
fncDebugLog "update.vbs::main", "Abort : No Updates Found!" & vbTab & "Result: " & err.description & "(" & err.number & ")"
Call gObjProgressUI.ShowActionProgress(gStrOrgName, gStrTSName, gStrTSName, _
"Windows Update finalize ...", 4, 4, _
"No Updates available !", 1, 1)
WScript.Sleep 1000
Set gObjProgressUI = Nothing
WScript.Quit
Else
gObjUpdateDownloader.Updates = gObjSearchResult.Updates
gObjUpdateInstaller.Updates = gObjSearchResult.Updates
Set objDownload = gObjUpdateDownloader.BeginDownload(gObjDummyDict.Item("DummyFunction"), _
gObjDummyDict.Item("DummyFunction"), _
vbNull)
fncDebugLog "update.vbs::main", "BeginDownload" & vbTab & "Result: " & err.description & "(" & err.number & ")"
'## Download Updates
While Not objDownload.IsCompleted = True
If strCurrentUpdate <> gObjUpdateDownloader.Updates.Item(objDownload.GetProgress.CurrentUpdateIndex).Title Then
strCurrentUpdate = gObjUpdateDownloader.Updates.Item(objDownload.GetProgress.CurrentUpdateIndex).Title
fncDebugLog "update.vbs::main", "Download :" & strCurrentUpdate & vbTab & "Result: " & err.description & "(" & err.number & ")"
End If
Call gObjProgressUI.ShowActionProgress(gStrOrgName, _
gStrTSName, _
"", _
"Windows Update download (" & (objDownload.GetProgress.CurrentUpdateIndex + 1) & " / " & objDownload.Updates.Count & ")", _
objDownload.GetProgress.CurrentUpdateIndex, _
objDownload.Updates.Count - 1, _
gObjUpdateDownloader.Updates.Item(objDownload.GetProgress.CurrentUpdateIndex).Title, _
objDownload.GetProgress.CurrentUpdatePercentComplete , _
100)
WScript.Sleep 100
Wend
Set objDownload = Nothing
'## Install Updates
Set objInstall = gObjUpdateInstaller.BeginInstall(gObjDummyDict.Item("DummyFunction"), _
gObjDummyDict.Item("DummyFunction"), _
vbNull)
fncDebugLog "update.vbs::main", "BeginInstall" & vbTab & "Result: " & err.description & "(" & err.number & ")"
While Not objInstall.IsCompleted = True
If strCurrentUpdate <> gObjUpdateInstaller.Updates.Item(objInstall.GetProgress.CurrentUpdateIndex).Title Then
strCurrentUpdate = gObjUpdateInstaller.Updates.Item(objInstall.GetProgress.CurrentUpdateIndex).Title
fncDebugLog "update.vbs::main", "Install :" & strCurrentUpdate & vbTab & "Result: " & err.description & "(" & err.number & ")"
End If
Call gObjProgressUI.ShowActionProgress(gStrOrgName, _
gStrTSName, _
"", _
"Windows Update install (" & (objInstall.GetProgress.CurrentUpdateIndex + 1) & " / " & objInstall.Updates.Count & ")", _
objInstall.GetProgress.CurrentUpdateIndex, _
objInstall.Updates.Count - 1, _
gObjUpdateInstaller.Updates.Item(objInstall.GetProgress.CurrentUpdateIndex).Title, _
objInstall.GetProgress.CurrentUpdatePercentComplete , _
100)
WScript.Sleep 250
Wend
Set objInstall = Nothing
End If
Function fncDebugLog(strFunction, strMessage)
Dim objLogFile
Set objLogFile = gObjFileSystem.OpenTextFile(gStrTmpDir & "\sccm_wsus_ts.log", 8, 1)
objLogFile.WriteLine now() & vbTab & strFunction & vbTab & strMessage
objLogFile.Close
Set objLogFile = Nothing
End Function
At this stage you will have an package directory with 5 files:
1. PSEXEC.EXE
2. update.cmd
3. update.vbs
4. AU.REG
5. WindowsUpdateAgent30-x86.exe
Step 3. Create an SCCM package named "PKG_Windows_Update" and set the directory containig your files as source.
Step 4. Create an Programm in this Package named "Install Update Agent" to Install the Update Agent.
(example: WindowsUpdateAgent30-x86.exe /norestart /quiet)
Step 5. Create an Programm namend "Install Updates" that starts the
update.cmd.
Step 6. Add the "Install Update Agent" Programm one step before the "Install Updates" Programm to your OSD Task Sequence.
Description of the Process:
The "update.cmd" file imports the Windows Update Configuration and Starts the UPDATE.VBS with PSEXEC.EXE.
PSEXEC.EXE is needed to start the Script in the environment session of the SCCM Progress UI.
Then the script creates an "Windows Update Session", "Update Searcher", "Update Downloader" and "Update Installer" Object from the Windows Update API.
First the update searcher object returns an update collection of all available updates.
After finishing the update search the collection is assigned to the update downloader object, and an asynchronus download starts.
During the download progress a loop will monitor the current progress an put it into the SCCM ProgressUI.
When the download has finished the collection is assigned to the update installer object and an asynchronus install starts.
Now another loop monitors the installation and puts it into the UI.
Conclusion:
This is the Solution to integrate all actually provided Updates to your SCCM OSD Task Sequence.
One Step to build an Zero Touch Oparating System Deployment in your Environment.
