Delete an Authorized Application

Deletes Freecell.exe from the list of authorized applications in the Windows Firewall current profile

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
Set colApplications = objPolicy.AuthorizedApplications
errReturn = colApplications.Remove("c:\windows\system32\freecell.exe")

This is a VB Script, this can be used by saving the file in .vbs file