Firewall

[engjcowi]

Hi Guys

Ive seen some code using WMI to see if antivirus software is installed and then list what software it is. does anyone know of any code using WMI or otherwise to see if any firewalls are installed?

Im writing a program to check the security on a pc and if no antivirus or firewall is installed then it will automatically install it. Ill post when complete.

thanks in advance

[PsaltyDS]

You might try something like this (not WMI, though):

$oFW = ObjCreate("HNetCfg.FwMgr")
$oLocPol = $oFW.LocalPolicy
$oCurrProf = $oLocPol.CurrentProfile
$sText = "Firewall/CurrentProfileType: " & $oFW.CurrentProfileType & @LF
$sText &= "Profile/FirewallEnabled: " & $oCurrProf.FirewallEnabled & @LF
ConsoleWrite($sText & @LF)

[engjcowi]

Hi thanks

thought id share some other firewall code i had found on another site for a different language and changed to work in autoit

expandcollapse popup

$strComputer = "."
$oWMI = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $strComputer & "\root\SecurityCenter2")
$colItems = $oWMI.ExecQuery("Select * from FirewallProduct"); "from FirewallProduct" works as well

  For $objAntiVirusProduct In $colItems
      MsgBox(0, "Firewall name", $objAntiVirusProduct.displayName)

  Next



;is firewall enabled
$oFW = ObjCreate("HNetCfg.FwMgr")
$oLocPol = $oFW.LocalPolicy
$oCurrProf = $oLocPol.CurrentProfile
$sText = $oCurrProf.FirewallEnabled
if $sText = "True" then
MsgBox(0, "Firewall enabled", "firewall is active")
Else
MsgBox(0, "Firewall enabled", $sText)
EndIf


;not sure what it does yet - i think it might enable the firewall?????
$ofwj = ObjCreate("HNetCfg.FwMgr")
$profile = $ofwj.LocalPolicy.CurrentProfile

$profile.FirewallEnabled = True
;end of not sure lol


;Lists Windows Firewall properties for the current profile.

$objFirewall = ObjCreate("HNetCfg.FwMgr")
$objPolicy = $objFirewall.LocalPolicy.CurrentProfile
MsgBox(0, "Current Profile Type", $objPolicy.FirewallEnabled)
MsgBox(0, "Firewall Enabled ", $objPolicy.FirewallEnabled)
MsgBox(0, "Exceptions not allowed: ", $objPolicy.ExceptionsNotAllowed)
MsgBox(0, "Notifications disabled: ", $objPolicy.NotificationsDisabled)
MsgBox(0, "Unicast responses to multicast broadcast disabled: ", $objPolicy.UnicastResponsestoMulticastBroadcastDisabled)