如何判断Windows防火墙是否开启？

  '显示Windows防火墙状态
  If Val(sdaGetRegEntry("HKEY_LOCAL_MACHINE", "SYSTEM/CurrentControlSet/Services/SharedAccess/Parameters/FirewallPolicy/StandardProfile", "EnableFirewall")) = 0 Then

      LblFireWallInfo.Caption = "Windows防火墙已被关闭！"
    
  Else
  
    LblFireWallInfo.Caption = "Windows防火墙已经正确开启！"
    
  End If