Windows-Firewall status

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Is it possible to check the status of the windows-firewall? (aktiv or inaktive)

regards

Karsten
 
Is it possible to check the status of the windows-firewall? (aktiv or
inaktive)

Search microsoft.com for
get_InternetFirewallEnabled
This looks like a real adventure - good luck.
 
Is it possible to check the status of the windows-firewall? (aktiv or
inaktive)

The following seems to do it - only limited testing though.

Private Function FireWallIsEnabled()
' return true if windows firewall is enabled
' requires option strict off (late binding)
Dim enabled As Boolean
Try
Dim fwMgr As Object = CreateObject("HNetCfg.FwMgr")
Dim profile As Object = fwMgr.LocalPolicy.CurrentProfile
Dim fwe As Integer = profile.FirewallEnabled
enabled = (fwe <> 0)
Catch ex As Exception
enabled = False ' indicate disabled if any error
End Try
Return enabled
End Function
 
Thanks for your help.
Is get_InternetFirewallEnabled unmanaged C++ code?
Is your example write in vb.net?

regards

Karsten
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Notepad status bar missing even after Registry entry 1
which version of visual studio would we need to use Windows Workflow foundation? 2
Firewall 3
Setup hangs up after Entering oroduct key 2
Need help with access expression - HELP!! 0
problems with vista activation 2
Hyperlinks in Normal view (2007) 4
Problem with FTP on IE6 and SP2 Firewall 1

Back
Top