Click here to Skip to main content
Click here to Skip to main content

Programmatically disable/enable Windows firewall

, 24 Jan 2007
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)

About the Author

petersunde

Norway Norway
No Biography provided

Comments and Discussions

 
GeneralMy vote of 5 PinmemberJalalAldeen26-Apr-13 21:43 
Questionfirewall settings PinmemberKanimozhikannanthasan2-Mar-11 0:59 
GeneralMy vote of 5 PinmembertheMadCoder10-Dec-10 8:17 
NewsHere it is in C# PinmembertheMadCoder10-Dec-10 4:25 
Generalfirewall setting Pinmemberprakash_adysoft30-Oct-09 23:55 
Generalgood article PinmemberDonsw25-Oct-09 16:12 
GeneralThere's other Forms of disabling Windows Firewall PinmemberRot117-Jan-09 7:17 
GeneralEnable Disable Widows Firewall for Remote System. Pinmemberganesh1984051513-Nov-08 0:09 
Anybody have idea that how to disable Windows Firewall of Remote system using same Code.
Generalerror in code Pinmemberoudfliurquidqw058fh16-Sep-08 23:34 
GeneralStraight to the point article Pinmembernnm2-Sep-08 13:55 
QuestionWhy it don't work?? Pinmemberus017396-Feb-07 21:45 
GeneralAnother article on the same topic ... PinmemberTony Selke29-Jan-07 9:04 
Generalgood work! Pinmember_Tenschman27-Jan-07 3:04 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    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 | Mobile
Web02 | 2.8.140721.1 | Last Updated 24 Jan 2007
Article Copyright 2007 by petersunde
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid