' 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!"