// This script removes a rule from Windows Firewall. When used as an MSI custom action, it must be run in Deferred mode,
// with it's CustomActionData set to INSTALLDIR
// It is written so it can be run outside of MSI to [vastly] simplify debugging.
var ClassName_ScriptingRuntimeShell = "WScript.Shell";
var installDir = "";
// If running in MSI, use arguments via standard CustomActionData interface, otherwise assume running outside MSI in debugger
if (DetectRunningInMSI())
installDir = Session.Property("CustomActionData");
else
installDir = "c:\\program files\\MyProgramDir";
installDir = EnsureEndsInBackslash(installDir);
// Don't let a failure here fail the install
try
{
RemoveFirewallRule(installDir +"MyProgramFilename.exe")
}
catch (unexpectedException)
{
LogMessage("Error " +unexpectedException.number+ " creating firewall rules: " +unexpectedException.message);
}
function RemoveFirewallRule( exePathname )
{
var firewallConfig;
var targetPolicy;
firewallConfig = SafeGetActiveXObject("HNetCfg.FwMgr");
if (firewallConfig != null)
{
targetPolicy = firewallConfig.LocalPolicy.CurrentProfile;
targetPolicy.AuthorizedApplications.Remove(exePathname);
LogMessage("Removed rule for "+exePathname);
}
}
function LogMessage( messageString )
// Writes a line to the MSI log, or the console if running outside MSI.
{
var customActionName = "RemoveFirewallRules";
if (DetectRunningInMSI())
{
var msiMessageTypeInfo = 0x04000000
var logRecord = null;
var currTime = new Date();
logRecord = Installer.CreateRecord(1);
logRecord.StringData(0) = currTime.toTimeString() +" "+ customActionName +": [1]";
logRecord.StringData(1) = messageString;
Session.Message(msiMessageTypeInfo, logRecord);
logRecord = null;
}
else
{
var currTime = new Date();
messageString = currTime.toTimeString() +" "+ customActionName +": "+ messageString;
WScript.Echo(messageString);
}
}
function DetectRunningInMSI()
// Returns TRUE if running in MSI, else FALSE
{
var returnVal = true;
var stringVal = "";
try
{
// Try to reference the Session object, which is only provided by the MSI runtime engine
stringVal = Session.Property("ProductCode");
}
catch (thisException)
{
// An exception is only thrown if the runtime couldn't resolve Session, which means
// this script is not running under MSI
returnVal = false;
}
return returnVal;
}
function SafeGetActiveXObject( className )
// Creates an instance of className and returns it, or null if an error occurs, and logs the error
{
var returnVal = null;
try
{
returnVal = new ActiveXObject(className);
}
catch (createException)
{
LogMessage("SafeGetActiveXObject: Error " +createException.number+ " creating object of class " +className+ ": " +createException.message);
}
return returnVal;
}
function EnsureEndsInBackslash( directoryPath )
// Returns directoryPath ending in a backslash if it does not already end in one.
{
var returnVal = directoryPath;
if (returnVal.substring(returnVal.length, returnVal.length-1) != "\\")
returnVal = returnVal + "\\";
return returnVal;
}