'Option Explicit
Dim objfso, objShell
Dim folder, sFolder, Iretval, return

Set objfso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.Shell")  
Set objEnv = objShell.Environment("Process")
objEnv("SEE_MASK_NOZONECHECKS") = 1

sFolder = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))  
Set folder = objfso.GetFolder(sFolder)  
  
'Install the Configuration Manager 2007 Sp2 console
wscript.echo "Installing the Adminconsole"
iretval= objShell.Run (sfolder & "ConfigMgr_sp2\bin\i386\setup.exe /script " & sfolder & "ConfigMgr_sp2\unattend.ini", 1, True)
wscript.echo sfolder & "ConfigMgr_sp2\bin\i386\setup.exe /script " & sfolder & "ConfigMgr_sp2\unattend.ini" 
    If (iRetVal = 0) or (iRetVal = 3010) then
		wscript.echo "Installing the Adminconsole Success"
	Else 
		wscript.echo "Installing the Adminconsole Failed"	        
		call SMSWriteStatusMIF("AdminUI.MIF","Microsoft","SCCM Admin Console", "2007", "ConfigMgr_sp2\bin\i386\setup.exe reported error: " & iretval &" and failed to install","fail")
		wscript.quit
	End If



'Install the Configuration Manager 2007 KB97384
wscript.echo "Installing kb977384"
iretval=objShell.Run ("msiexec.exe /i " & sfolder & "KB977384\SCCM2007-SP2-KB977384-ENU.msi /qb! /L*v c:\SCCM2007-SP2-KB977384-ENU.log ", 1, True)
wscript.echo "msiexec.exe /i " & sfolder & "KB977384\SCCM2007-SP2-KB977384-ENU.msi /qb! /L*v c:\SCCM2007-SP2-KB977384-ENU.log "
    If (iRetVal = 0) or (iRetVal = 3010) then
	wscript.echo "Installing kb977384 Success"
	Else 
		wscript.echo "Installing kb977384 Failed"	        
		call SMSWriteStatusMIF("AdminUI.MIF","Microsoft","SCCM Admin Console", "2007", "KB977384\SCCM2007-SP2-KB977384-ENU.msi reported error:"  & iretval &" and failed to install","fail")
		wscript.quit
	End If
  
'Install the Configuration Manager 2007 R3
wscript.echo "Installing R3"
iretval=objShell.Run ("msiexec.exe /i " & sfolder & "Configmgr_R3\CONFIGMGR2007R3.msi /qb! /L*v c:\AdminConsoleR3.log ", 1, True)
wscript.echo " msiexec.exe /i " & sfolder & "Configmgr_R3\CONFIGMGR2007R3.msi /qb! /L*v c:\AdminConsoleR3.log "
    If (iRetVal = 0) or (iRetVal = 3010) then
	wscript.echo "Installing R3 Success"
	Else 
		wscript.echo "Installing R3 Failed"	        
		call SMSWriteStatusMIF("AdminUI.MIF","Microsoft","SCCM Admin Console", "2007", "CONFIGMGR2007R3.msi reported error: " & iretval &" and failed to install","fail")
		wscript.quit
	End If
objEnv.Remove("SEE_MASK_NOZONECHECKS")
call SMSWriteStatusMIF("AdminUI.MIF","Microsoft","SCCM Admin Console", "2007","The operation completed successfully.","true")


Sub SMSWriteStatusMIF(FileName,Manufacturer, Product, Version, Description, bSuccess) 
' Writing a status MIF for SWDist to return a success or a failure to execute 
' Product is the name of the Script and MIF file. 
' Description is the status message 
' bSuccess is True/False of success 

 
Const ForWriting = 2 
Dim mifFile 
Dim WinpDir 

 
Set FileSys = CreateObject("Scripting.FileSystemObject") 
WinDir = objShell.ExpandEnvironmentStrings("%WINDIR%") 
Set mifFile = FileSys.CreateTextFile(WinDir & "\" & FileName , ForWriting) 

 
With mifFile 
.Writeline ("START COMPONENT") 
.Writeline ("NAME = ""WORKSTATION""") 
.Writeline (" START GROUP") 
.Writeline (" NAME = ""ComponentID""") 
.Writeline (" ID = 1") 
.Writeline (" CLASS = ""DMTF|ComponentID|1.0""") 

 
.Writeline (" START ATTRIBUTE") 
.Writeline (" NAME = ""Manufacturer""") 
.Writeline (" ID = 1") 
.Writeline (" ACCESS = READ-ONLY") 
.Writeline (" STORAGE = SPECIFIC") 
.Writeline (" TYPE = STRING(64)") 
.Writeline (" VALUE = """ & Manufacturer & """") 
.Writeline (" END ATTRIBUTE") 

 
.Writeline (" START ATTRIBUTE") 
.Writeline (" NAME = ""Product""") 
.Writeline (" ID = 2") 
.Writeline (" ACCESS = READ-ONLY") 
.Writeline (" STORAGE = SPECIFIC") 
.Writeline (" TYPE = STRING(64)") 
.Writeline (" VALUE = """ & Product & """") 
.Writeline (" END ATTRIBUTE") 

 
.Writeline (" START ATTRIBUTE") 
.Writeline (" NAME = ""Version""") 
.Writeline (" ID = 3") 
.Writeline (" ACCESS = READ-ONLY") 
.Writeline (" STORAGE = SPECIFIC") 
.Writeline (" TYPE = STRING(64)") 
.Writeline (" VALUE = """ & Version & """") 
.Writeline (" END ATTRIBUTE") 

 
.Writeline (" START ATTRIBUTE") 
.Writeline (" NAME = ""Locale""") 
.Writeline (" ID = 4") 
.Writeline (" ACCESS = READ-ONLY") 
.Writeline (" STORAGE = SPECIFIC") 
.Writeline (" TYPE = STRING(16)") 
.Writeline (" VALUE = ""ENU""") 
.Writeline (" END ATTRIBUTE") 

 
.Writeline (" START ATTRIBUTE") 
.Writeline (" NAME = ""Serial Number""") 
.Writeline (" ID = 5") 
.Writeline (" ACCESS = READ-ONLY") 
.Writeline (" STORAGE = SPECIFIC") 
.Writeline (" TYPE = STRING(64)") 
.Writeline (" VALUE = ""NIL""") 
.Writeline (" END ATTRIBUTE") 

 
.Writeline (" START ATTRIBUTE") 
.Writeline (" NAME = ""Installation""") 
.Writeline (" ID = 6") 
.Writeline (" ACCESS = READ-ONLY") 
.Writeline (" STORAGE = SPECIFIC") 
.Writeline (" TYPE = STRING(64)") 
.Writeline (" VALUE = ""DateTime""") 
.Writeline (" END ATTRIBUTE") 
.Writeline (" END GROUP") 

 
.Writeline (" START GROUP") 
.Writeline (" NAME = ""InstallStatus""") 
.Writeline (" ID = 2") 
.Writeline (" CLASS = ""MICROSOFT|JOBSTATUS|1.0""") 
.Writeline (" START ATTRIBUTE") 
.Writeline (" NAME = ""Status""") 
.Writeline (" ID = 1") 
.Writeline (" ACCESS = READ-ONLY") 
.Writeline (" STORAGE = SPECIFIC") 
.Writeline (" TYPE = STRING(32)") 

 
' Pass or fail this status mif? 
If bSuccess = "true" then 
.Writeline (" VALUE = ""Success""") 
else 
.Writeline (" VALUE = ""Failed""") 
End if 

 
.Writeline (" END ATTRIBUTE") 
.Writeline (" START ATTRIBUTE") 
.Writeline (" NAME = ""Description""") 
.Writeline (" ID = 2") 
.Writeline (" ACCESS = READ-ONLY") 
.Writeline (" STORAGE = SPECIFIC") 
.Writeline (" TYPE = STRING(256)") 
.Writeline (" VALUE = """ & Description & """") 
.Writeline (" END ATTRIBUTE") 
.Writeline (" END GROUP") 
.Writeline ("END COMPONENT") 
End With 

 
mifFile.Close 
Set mifFile = Nothing 
End Sub
'Package Properties