SCCM client agent looks in the temp folder to find a matching MIF file, if there is a match it reports the advertisement status based on this MIF file instead of the exit code returned by the application

Status MIF files help in scenarios where the applications return exit code other than 0 for success (for e.g. in our case exit code 1 was success)

Usage:

a. Copy the application you want to deploy to a folder

b. Copy the script below to the same folder

c. Also make sure you have the ismifcom.dll copied to the same folder. The script depends on the ismifcom.dll which you can copy from the SCCM SDK https://www.microsoft.com/downloads/details.aspx?FamilyId=064A995F-EF13-4200-81AD-E3AF6218EDCC&displaylang=en

Replace the following constants in the script to match the settings as per your application 

Example

Const Product    = "Notepad"
Const Version    = "1.0"
Const Manufacturer   = "Microsoft"

ProductPackageName  will automatically be taken as Notepad_1.0

Set oExecShell = WshShell.Exec ("Notepad.exe")

  'Dependency:
'SCCM SDK https://www.microsoft.com/downloads/details.aspx?FamilyId=064A995F-EF13-4200-81AD-E3AF6218EDCC&displaylang=en

  'Constants and Variables
Const cProductAction   = "Install"
Const Product    = "AppName"
Const Version    = "1.0"
Const Manufacturer   = "Microsoft"
ProductPackageName    = Product & "_" & Version
Set WshShell = CreateObject("WScript.Shell")
Dim InstallStatus

'init Objects
Set objShell = CreateObject ("WScript.Shell")
Set objEnv = objShell.Environment("Process")
Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")

'Check client COM object and try to fix
If Not objFSO.FileExists(objEnv("WINDIR") & "\ismifcom.dll") then
Set objFileCopy = objFSO.GetFile(ScriptPath & "ismifcom.dll")
objFileCopy.Copy(objEnv("WINDIR") & "\ismifcom.dll")
exec = objShell.Run("regsvr32.exe /s Ismifcom.dll",0,TRUE)
End If

'init Mif Objects
Set objMIF = CreateObject("ISMIFCOM.InstallStatusMIF")

'Parameters
'============
'ProductPackageName : Unique name for the MIF file which by default will be AppName_1.0
'Manufacturer : Manufacturer or publisher of the product, for example, Microsoft.
'This parameter is limited to 64 characters.
'Product : Product or program name, for example, Product01. This parameter is
'limited to 64 characters.
'Version : Version of the product, for example, 1.0. This parameter is limited
'to 64 characters.
'Locale : Country/region or language code, for example, ENU. This parameter is
'optional and is limited to 16 characters.
'SerialNo : Serial number of the product. This parameter is optional and is
'limited to 64 characters.
'ExitMessage : Descriptive message about the status, added to the program status
'InstallStatus. This parameter is limited to 128 characters.
'Bsuccess: true if the install status is success. true|false.

'Create working directory for Wshshell
Set FileSys = CreateObject("Scripting.FileSystemObject")
'Set Current Working Directory to where script is running from
Dim CWD : CWD = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\"))
wshshell.currentdirectory = CWD

'Installing application
Install()

'Check install results
If InstallStatus = 1 Then
CheckExitCode InstallStatus, "Installation success. InstallStatus: " & InstallStatus, True
Else
CheckExitCode InstallStatus, "Installation failed. InstallStatus: " & InstallStatus, False
End If
wscript.sleep 5000
wscript.quit 0

'-------------------------------------------------------------
'Installing Application
'-------------------------------------------------------------
Sub Install()
Set oExecShell = WshShell.Exec ("setup.exe")
Do While oExecShell.Status = 0: WScript.Sleep 50: Loop
If oExecShell.ExitCode = 3010 Then
errReturn = 0
Else
errReturn = oExecShell.ExitCode
End If
InstallStatus = errReturn
End Sub

Sub CheckExitCode(ExitCode, ExitMessage, bSuccess)
if ExitCode = 0 then
objMif.Create ProductPackageName, Product, Manufacturer, Version, "ENU", " ", exitmessage, bsuccess
wscript.sleep 5000
wscript.quit (ExitCode)
Else
objMif.Create ProductPackageName, Product, Manufacturer, Version, "ENU", " ", exitmessage, bsuccess
 wscript.sleep 5000
 wscript.quit (ExitCode)
End If
End Sub

'Release objects
set objMIF = nothing
set objEnv = nothing
set objFSO = nothing

At several instances, I came across issues where an application gets installed / uninstalled successfully, however the reports show that the application has failed. This particularly happens when the exit code returned by the application is not 0. If you are using SCCM 2007, or any other deployment tools or application, a success is represented  by exit code = 0, but if the application is built to return 1 as success, the reports will show that the application has failed which is not true. Exit code 1 is interpreted as failure by SCCM. Now how do you verify the exit code returned by the application when you do not have any logs to produce that?  Here’s what you do: You can use the following script to see the exit code that an application returns.

The following script will let you know what is the exit code
Run the script which in turn will fire the application and wait for the application to get installed / uninstalled  successfully, it will then return the exit code

Script as follow:

Option Explicit

Dim oWSHShell 'As WScript.Shell
Dim oExec 'As WshScriptExec

Set oWSHShell = CreateObject("WScript.Shell")
Set oExec = oWSHShell.Exec("setup.exe")
Do While oExec.Status = 0
Call WScript.Sleep(100)
Loop

If oExec.ExitCode < 0 And oExec.ExitCode > 1 Then
Call WScript.Quit(oExec.ExitCode)
End If

'Uncomment the following to see the exit code
Call WScript.Echo(oExec.ExitCode)

Set oExec = Nothing
Set oWSHShell = Nothing

Replace Setup.exe with the path and file name of the application
e.g. C:\Setup.exe where path = C:\ and executable file = setup.exe

The following script will check all the websites hosted on IIS Server and check their certificate expiry. It will generate a warning event in the Application event log if any certificate is expiring in 30 days.

strComputer = "localhost"
SET objService = GetObject( "IIS://" & strComputer & "/W3SVC")
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim StrVar0

EnumServersites objService

SUB EnumServersites( objSrv )

FOR Each objServer IN objSrv
IF objServer.Class = "IIsWebServer" Then
IF NOT Ubound(objServer.SecureBindings) = "-1" Then

'check to see if there is at least one securebinding
'WScript.Echo "Site ID = " & objServer.Name & VbCrLf & "Comment = """ & objServer.ServerComment
'wscript.Echo "SSL Certificate Expiration Date: " & GetSSLExpirationDate(objServer.Name)
'wscript.Echo "Days Remaining: " & DaysRemaining(GetSSLExpirationDate(objServer.Name))
'wscript.echo vbcrlf & "-----------------------------" & vbcrlf

StrVar0 = ""
if DaysRemaining(GetSSLExpirationDate(objServer.Name)) < 30 Then
'wscript.echo "entered loop"
StrVar0 = StrVar0 & "Site ID : " & objServer.Name & VbCrLf & "Comment : " & objServer.ServerComment & VbCrLf & "SSL Certificate Expiration Date : " &GetSSLExpirationDate(objServer.Name) & VbCrLf & "Days Remaining : " & DaysRemaining(GetSSLExpirationDate(objServer.Name))

strCommand = "eventcreate /T Warning /ID 351 /L Application /SO CertWarning /D " & _
Chr(34) & StrVar0 & Chr(34)
WshShell.Run strcommand

END IF
END IF
END IF
strBindings = ""
Next
END Sub

FUNCTION GetSSLExpirationDate( strSiteID )
Set iiscertobj = WScript.CreateObject("IIS.CertObj")
iiscertobj.serverName = "localhost"
iiscertobj.InstanceName = "W3SVC/" & strSiteID

tmpArray = Split(iiscertobj.GetCertInfo,vbLf)
For Each x in tmpArray
If Left(x,2) = "6=" Then
GetSSLExpirationDate = Mid(x,3,len(x)-2)
End If
Next
END FUNCTION

Function DaysRemaining(strdate)
If IsDate(strDate) Then
strdate = cDate(strdate)
End If
DaysRemaining = DateDiff("d",Date,strdate)
End Function

Courtesy:

I found this script from https://www.eggheadcafe.com/software/aspnet/34211103/ssl-certificate-warning-b.aspx and further modified it to generate a warning event in the Application event log

You can also refer the following link https://blogs.technet.com/configurationmgr/archive/2009/08/17/guide-to-software-updates-deployment-in-configuration-manager-2007.aspx 

Software Updates Deployment Guide.doc