ConfigMgr : Deploy MSU Windows Updates not in WSUS catalog

A revised version of a script I found here:
http://ccmexec.com/2012/02/installing-multiple-windows-7-hotfixes-msu-with-sccm/

Use this script in an SCCM package that contains MSU fuiles to mass install updates. You can include as many MSU files as you like.

Dim objfso, objShell Dim folder, files, sFolder, folderidx, Iretval, return  Set objfso = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("Wscript.Shell")  sFolder = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName))) Set folder = objfso.GetFolder(sFolder) Set files = folder.Files  For each folderIdx In files     If Ucase(Right(folderIdx.name,3)) = "MSU" then         wscript.echo "---------------------"         wscript.echo "wusa.exe " & sfolder & folderidx.name & " /quiet /norestart"         iretval=objShell.Run ("wusa.exe " & sfolder & folderidx.name & " /quiet /norestart", 1, True)         If (iRetVal = 0) or (iRetVal = 3010) then             wscript.echo folderidx.name & " ***SUCCESS*** Update Installed"         ElseIf (iRetVal = -2145124329) Then             wscript.echo folderidx.name & " ***WARNING*** Update Not Applicable"         ElseIf (iRetVal = 2359302) Then             wscript.echo folderidx.name & " ***WARNING*** Update Already Installed"         Else             wscript.echo folderidx.name & " ***ERROR*** Upadte Installation Failed"             wscript.quit(1)         End If     End If Next