VBS to remove Windows Firewall exception

[simons2009]

I would like to remove a exception from Windows Firewall the name of the entry is:

wIntegrate Session Manager

 

The path can be different on oher machines so we can use that in the script can someone make a script that removes the wIntegrate Session Manager?

 

Thanks,

Simon

[mac_shinobi]

Remove application exception (VBScript) - Windows Server 2003 Networking Recipes

 

' From the book "Windows Server 2003 Networking Recipes"

' This code removes an existing application exception
'  and re-creates it with new values
' ------ SCRIPT CONFIGURATION ------
Set Firewall = CreateObject("HNetCfg.FwMgr")
Set Policy = Firewall.LocalPolicy
Set Profile = Policy.GetProfileByType(1)
strCurrentApp = "c:\program files\image\image123.exe"
strNewApp = "c:\program files\image\imaging.exe"
' ------ END CONFIGURATION ---------

Set colApplications = Profile.AuthorizedApplications

For Each Application in colApplications
 If Application.ProcessImageFileName = strCurrentApp Then
   WScript.Echo "Removed " & Application.Name " from authorized list!"
   colApplications.Remove(Application)
 End If
Next

Set newApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
newApplication.Name = "Imaging"
newApplication.IPVersion = 2
newApplication.ProcessImageFileName = strNewApp
newApplication.RemoteAddresses = "*"
newApplication.Scope = 0
newApplication.Enabled = True

colApplications.Add(objApplication)

WScript.Echo "Application " & strNewApp & " added successfully!"

As you can see in the code snippet above it removes current exceptions from the firewall and re adds new ones so you can obviously alter the code to your liking.

[simons2009]

Thanks im having problems edditing it can get it to work sorry.

 

All i want is it to find the Windows Firewall entry named:

 

wIntegrate Session Manager

path = never the same

 

And I just want it to delete it I dont need to replace it.

 

Thanks,

Simon:)

[SYNACK]

Untested but this should work:

' ------ SCRIPT CONFIGURATION ------
Set Firewall = CreateObject("HNetCfg.FwMgr")
Set Policy = Firewall.LocalPolicy
Set Profile = Policy.GetProfileByType(1)
strCurrentApp = "wIntegrate Session Manager"
' ------ END CONFIGURATION ---------
Set colApplications = Profile.AuthorizedApplications
For Each Application in colApplications
 If Application.Name = strCurrentApp Then
   WScript.Echo "Removed " & Application.Name & " from authorized list!"
   colApplications.Remove(Application)
 End If
Next

Edited June 2, 2009 by SYNACK
Fixed error

[simons2009]

It keeps comming up with:

 

Line:10

Char: 48

Error: Expected end of statement

Code: 800A0401

Source: Microsoft VBScript compilation error

[simons2009]

It pops up saying Removed wIntegrate Session Manager from authorized list! then pops up saying:

 

Line:11

Char:5

Error: Type mismatch: 'colApplications.Remove'

Code: 800A000D

Source: Microsoft VBScript runtime error

 

And the wIntegrate Session Manager is still listed in the firewall Exceptions.

[mac_shinobi]

longer example here on ms site

 

RemovePrograms-com.vbs

 

Is there anyway you can look in the registry on a couple of computers to see if there is a definte registry key where it has the path to the wintegrate session manager application exe or at least to the correct directory.

 

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall

 

Hopefully in that registry key you should be able to find the session manager and hopefully it should give you a path which you can use in the vbscript to remove it.

[simons2009]

Yes we could find the path as i could run this script before the one below or maybe merge it together:

 

set oFSO=createobject("scripting.filesystemobject")
set oShell=createobject("wscript.shell")
Dim objFSO, objFiles, objShell, intCount
Dim strFile, strName, strLongName, strDirectory, strEnv, strExt
Set objShell = CreateObject("Wscript.Shell")
strEnv = objShell.ExpandEnvironmentStrings("%temp%")
intcount = 0


on error resume next
sFile=oShell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\IbsFont")
on error goto 0
if sFile="" then 
else
set oFile=ofso.getfile(sFile)
sfolder=oFile.parentfolder & "\session"
ofso.copyfolder sFolder , strEnv & "\tempkcs" , true
end if

 

The path is the wIntegSM.exe located in the oFile.parentfolder (e.g. C:\Program Files\wIntegrate\wIntegSM.exe)

[mac_shinobi]

In the MS example it requires the name of the exception or application exe / process name and also the full path to the exe including the exe ie

 

notepad

 

x:\windows\system32\notepad.exe

[simons2009]

Your properly right, but don’t worry about it I found even the official installer from IBM did not clean this up so it doesn’t matter and as lest now the new installer I made that adds the firewall entry with Advanced Installer now removes the new entry on uninstall so lets not worry about cleaning someone’s old mess its not worth worrying about.