@echo off
SET PMgrDir=%Programfiles%\Windows AIK\Tools\Servicing
SET Extract=%PMgrDir%
SET VistaUpdates=C:\VistaWork\Packages

IF NOT EXIST "%PMgrDir%"\Expand.exe SET Extract=%Windir%\System32
IF EXIST "%VistaUpdates%"\Temp RD "%VistaUpdates%"\Temp /S /Q
IF NOT EXIST "%VistaUpdates%"\Temp MD "%VistaUpdates%"\Temp
IF EXIST "%VistaUpdates%"\Temp\integrate.xml DEL /Q "%VistaUpdates%"\Temp\integrate.xml

cd "%VistaUpdates%"

FOR /f "tokens=*" %%G IN ('dir /b /s *.msu') DO (
	echo %%G
	START "Expand" /WAIT "%Extract%"\Expand.exe "%%G" -f:* "%VistaUpdates%"\Temp
)

ECHO ^<^?xml version="1.0" encoding="utf-8"?^>^ >> "%VistaUpdates%"\Temp\integrate.xml
ECHO ^<^unattend xmlns="urn:schemas-microsoft-com:unattend"^>^ >> "%VistaUpdates%"\Temp\integrate.xml
ECHO    ^<^servicing^>^ >> "%VistaUpdates%"\Temp\integrate.xml

FOR /F "tokens=*" %%G IN ('dir /b Temp\*.xml') DO ( Call :WriteXML %%G )

ECHO     ^<^/servicing^>^ >> "%VistaUpdates%"\Temp\integrate.xml
ECHO ^<^/unattend^>^ >> "%VistaUpdates%"\Temp\integrate.xml

GOTO :EOF

:WriteXML
	IF "%1"=="WSUSSCAN.cab" Goto :EOF
	IF "%1"=="integrate.xml" Goto :EOF
	SET Name=%1
	IF ".%Name%"=="." GOTO :EOF
	SET XML=%Name:~0,-4%.xml
	SET Cab=%Name:~0,-4%.cab
	ECHO     ^<^package action="install"^>^ >> "%VistaUpdates%"\Temp\integrate.xml
	FOR /F "Tokens=*" %%i IN ('FINDSTR "assemblyIdentity" "%VistaUpdates%"\Temp\%XML%') DO (Echo            %%i >> "%VistaUpdates%"\Temp\integrate.xml)
	ECHO             ^<^source location="%VistaUpdates%\Temp\%Cab%" /^>^ >> "%VistaUpdates%"\Temp\integrate.xml
	ECHO     ^<^/package^>^ >> "%VistaUpdates%"\Temp\integrate.xml	
GOTO :EOF


:EOF