Здравствуйте 
У меня возникла необходимость в программном определении состояния брандмауэра Windows XP, работает не работает. 
Например я нажимаю на кнопку и выскакивает сообщение следующего содержания, Брандмауэр Windows работает или не работает.
На http://msdn.microsoft.com/ нашёл  тему по сути как я понял скрип но не разобрался.
Verifying Windows Firewall is Enabled
********************************************************************
The following example shows a verification of the status of the Windows Firewall.
Copy Code
Option Explicit
'Create Shell object
Dim objShell
set objShell = CreateObject("Shell.Application")
'Declare Firewall variables
Dim fwMgr
Dim profile
'Verify that the SharedAccess service is running. If it isn't, then start it.
If objShell.IsServiceRunning("SharedAccess") = FALSE Then
    objShell.ServiceStart "SharedAccess", TRUE
    'Sleep 1 second to make sure the service is started
    ' before trying to create the objects below. If there
    ' is no sleep, then the script is too fast and the
    ' firewall objects can't be created.
    WScript.Sleep 1000
End If
WScript.Echo("SharedAccess is running: " & objShell.IsServiceRunning("SharedAccess"))
' Firewall objects have to be created after making sure
' the service is running. If the service isn't running,
' the script will fail.
' Create the firewall manager object.
Set fwMgr = CreateObject("HNetCfg.FwMgr")
' Get the current profile for the local firewall policy.
Set profile = fwMgr.LocalPolicy.CurrentProfile
'Verify that the Firewall is enabled. If it isn't, then enable it.
If profile.FirewallEnabled = FALSE Then
    profile.FirewallEnabled = TRUE
End If
WScript.Echo("Firewall Enabled: " & profile.FirewallEnabled)
WScript.Echo("Firewall Exceptions Not Allowed: " & profile.ExceptionsNotAllowed)
***********************************************************************
Есть еще параметры реестра, используя которые в рег файле можно отрубить брандмауэр. Можно ли проверять их судить о том что брандмауэр включен или отключен. Я включал отключал его так и не понял по этим параметрам.
*************************************************************************
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Security Center]      
"FirewallOverride"=dword:00000001        
 
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]  
"DisableThumbnailCache"=dword:00000001  
;Disable Firewall Notifications  
 
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Security Center]  
"FirewallDisableNotify"=dword:00000001  
;Disable Automatic Updates Notifications  
 
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Security Center]  
"UpdatesDisableNotify"=dword:00000001  
;Disable Anti-virus Notifications  
 
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Security Center]  
"AntiVirusDisableNotify"=dword:00000001
**********************************************************************
   

Это сообщение отредактировал(а) vanexe1 - 23.3.2009, 09:40

Минимальный пример, переделанный на Delphi (требуется как минимум WinXP SP2):

Модуль NetFwTypeLib_TLB получаем так: Component \ Import Component \ Import a Type Library \ NetFwTypeLib (hnetcfg.dll\3).
На всякий случай прикрепляю и его...

Это сообщение отредактировал(а) Quartz - 23.3.2009, 16:00

Присоединённый файл ( Кол-во скачиваний: 36 )
 NetFwTypeLib_TLB.pas 31,38 Kb

Огромное спасибо! все работает. класс