Poste2Travail

Function ZTIProcess() 

Dim sName, sPackage, sFullName, sVEditor, sDate

sName = "CMCB Agent"
sPackage = "CMCBMAgent"
sFullName = "CMCB Agent"
sVEditor = "5.00.8540.1006"
sDate = Date

Dim sSetupFile, sArguments
Dim sSourcePath

' Set Source Path Folder (Where source file must be stored in MDT)
sSourcePath = oUtility.ScriptDir & "\Source"

sSetupFile = sSourcePath & "\ccmsetup.exe"
'sArguments = "/noservice /Source:""" & sSourcePath & """ CCMHTTPPORT=2089 SMSCACHESIZE=3072"
sArguments = "/noservice /Source:""" & sSourcePath & """"

'Add Site Code to command line argument
if oEnvironment.Exists("SG_SCCM_SITE_CODE") then
sArguments = sArguments & " SMSSITECODE=" & oEnvironment.Item("SG_SCCM_SITE_CODE")
End if

oLogging.CreateEntry oUtility.ScriptName & ": Starting installation", LogTypeInfo

If not oFSO.FileExists(sSetupFile) then
oLogging.CreateEntry oUtility.ScriptName & ": " & sSetupFile & " was not found, unable to install", LogTypeError
ZTIProcess = Failure
Exit Function
End If

iRetVal = oUtility.RunWithHeartbeat("""" & sSetupFile & """ " & sArguments)

if (iRetVal = 0) or (iRetVal = 3010) then

' Add Applications Info for CMCB
'oLogging.CreateEntry "Adding registry entry for SCCM", LogTypeInfo
'oShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\SG\Applications\" & sPackage &  "\Installation Date", sDate, "REG_SZ"
'oShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\SG\Applications\" & sPackage &  "\Long Name", sFullName, "REG_SZ"
'oShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\SG\Applications\" & sPackage &  "\Editor Version", sVEditor, "REG_SZ"

ZTIProcess = Success
Else 
ZTIProcess = Failure
End If

oLogging.CreateEntry oUtility.ScriptName & ": Return code from command = " & iRetVal, LogTypeInfo
oLogging.CreateEntry oUtility.ScriptName & ": Finished installation", LogTypeInfo

End Function