Click here to Skip to main content
15,397,318 members
Articles / Programming Languages / Visual Basic
Article
Posted 24 Jan 2007

Stats

87.9K views
39 bookmarked

Programmatically disable/enable Windows firewall

Rate me:
Please Sign up or sign in to vote.
4.34/5 (15 votes)
24 Jan 2007CPOL
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

VB
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

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
Bhim Prakash Singh30-Oct-09 23:55
MemberBhim Prakash Singh30-Oct-09 23:55 
Generalgood article Pin
Donsw25-Oct-09 16:12
MemberDonsw25-Oct-09 16:12 
Good article but this only shows xp which is the easiest. how about an update for vista and now win 7

cheers,
Donsw
My Recent Article : CDC - Change Data Capture

GeneralEnable Disable Widows Firewall for Remote System. Pin
ganesh1984051513-Nov-08 0:09
Memberganesh1984051513-Nov-08 0:09 
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
MemberTenschman27-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.