Click here to Skip to main content
12,403,130 members (71,713 online)
Click here to Skip to main content
Add your own
alternative version

Stats

64.9K views
39 bookmarked
Posted

Programmatically disable/enable Windows firewall

, 24 Jan 2007 CPOL
Rate this:
Please Sign up or sign in to vote.
This article teaches you how to disable and enable your Windows firewall programmatically.

Introduction

This article teaches you how to disable and enable your Windows firewall programmatically.

Setup

  • Create a new Windows Application project.
  • Click on Project->Add Reference and add the following files:
    • Click Browse tab -> Add C:\windows\system32\Hnetcfg.dll.
    • Click COM tab -> Add NetFwTypeLib.

Requirements

Currently, this only works with Windows XP SP2. If you need support for this in Vista, add Wfapi.dll.

Source

Imports System
Imports NetFwTypeLib

' Provides access to the firewall settings for a computer.
Public Function GetFwMgr() As NetFwTypeLib.INetFwMgr
    Dim oINetFwMgr As NetFwTypeLib.INetFwMgr
    Dim NetFwMgrObject As Object
    Dim NetFwMgrType As Type

    ' Use the COM CLSID to get the associated .NET System.Type
    NetFwMgrType = Type.GetTypeFromCLSID( _
     New Guid("{304CE942-6E39-40D8-943A-B913C40C9CD4}"))

    ' Create an instance of the object
    NetFwMgrObject = Activator.CreateInstance(NetFwMgrType)
    oINetFwMgr = NetFwMgrObject

    Return oINetFwMgr
End Function


' Provides access to the firewall settings profile.
Public Function GetProfile() As NetFwTypeLib.INetFwProfile

    Dim oINetPolicy As NetFwTypeLib.INetFwPolicy
    Dim oINetFwMgr As NetFwTypeLib.INetFwMgr

    oINetFwMgr = GetFwMgr()

    oINetPolicy = oINetFwMgr.LocalPolicy
    Return oINetPolicy.CurrentProfile

End Function

' Enable windows firewall.
Public Sub ActivateFirewall()
    Dim fwProfile As NetFwTypeLib.INetFwProfile
    fwProfile = GetProfile()
    fwProfile.FirewallEnabled = True
End Sub

' Disable windows firewall.
Public Sub DisableFirewall()
    Dim fwProfile As NetFwTypeLib.INetFwProfile
    fwProfile = GetProfile()
    fwProfile.FirewallEnabled = False
End Sub

' Firewall state || False = Disabled - True = Enabled.
Public Function FirewallEnabled() As Boolean
    Dim fwProfile As NetFwTypeLib.INetFwProfile
    fwProfile = GetProfile()
    Return fwProfile.FirewallEnabled
End Function

' Enable firewall on Form_Load.
Private Sub Form1_Load(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles MyBase.Load
    If FirewallEnabled() = False Then
        ActivateFirewall()
    Else
        DisableFirewall()
    End If
    MessageBox.Show("Firewall enabled: " & FirewallEnabled())
End Sub

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Share

About the Author

petersunde
Norway Norway
No Biography provided

You may also be interested in...

Comments and Discussions

 
GeneralMy vote of 5 Pin
JalalAldeen26-Apr-13 21:43
memberJalalAldeen26-Apr-13 21:43 
Questionfirewall settings Pin
Kanimozhikannanthasan2-Mar-11 0:59
memberKanimozhikannanthasan2-Mar-11 0:59 
GeneralMy vote of 5 Pin
theMadCoder10-Dec-10 8:17
membertheMadCoder10-Dec-10 8:17 
NewsHere it is in C# Pin
theMadCoder10-Dec-10 4:25
membertheMadCoder10-Dec-10 4:25 
Generalfirewall setting Pin
prakash_adysoft30-Oct-09 23:55
memberprakash_adysoft30-Oct-09 23:55 
Generalgood article Pin
Donsw25-Oct-09 16:12
memberDonsw25-Oct-09 16:12 
GeneralThere's other Forms of disabling Windows Firewall Pin
Rot117-Jan-09 7:17
memberRot117-Jan-09 7:17 
GeneralEnable Disable Widows Firewall for Remote System. Pin
ganesh1984051513-Nov-08 0:09
memberganesh1984051513-Nov-08 0:09 
Anybody have idea that how to disable Windows Firewall of Remote system using same Code.
Generalerror in code Pin
oudfliurquidqw058fh16-Sep-08 23:34
memberoudfliurquidqw058fh16-Sep-08 23:34 
GeneralStraight to the point article Pin
nnm2-Sep-08 13:55
membernnm2-Sep-08 13:55 
QuestionWhy it don't work?? Pin
us017396-Feb-07 21:45
memberus017396-Feb-07 21:45 
GeneralAnother article on the same topic ... Pin
Tony Selke29-Jan-07 9:04
memberTony Selke29-Jan-07 9:04 
Generalgood work! Pin
_Tenschman27-Jan-07 3:04
member_Tenschman27-Jan-07 3:04 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Terms of Use | Mobile
Web02 | 2.8.160721.1 | Last Updated 24 Jan 2007
Article Copyright 2007 by petersunde
Everything else Copyright © CodeProject, 1999-2016
Layout: fixed | fluid