Question

我写了一封信,在防火墙能够使用的情况下,对Windows进行检查。它看重的是罚款,但总是说,防火墙是能够做到的,即使它是残疾人。我花了许多时间分析它,但没有结果——你能否帮助我了解它有什么错误?

Dim strFirewallStatus, strComputer
strComputer = "localhost"

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\" &_ 
                       strComputer & "
ootdefault:StdRegProv")

If err.number = 0 Then
  objReg.GetDWORDValue &H80000002, "SYSTEMCurrentControlSet" &_
  "ServicesSharedAccessParametersFirewallPolicy" &_
  "DomainProfile", "EnableFirewall", dwValue

  If dwValue <> 0 Then
    strFirewallStatus = "Firewall is enabled"
  Else
    strFirewallStatus = "Firewall is disabled"
  End If

  WScript.Echo strFirewallStatus
Else
  WScript.Echo strComputer & " - Error" & err.number & " : " &_
  err.description
  err.clear
End if

我将这本书作为文件保存。

顺便提一下——我如何就系统的启动制定文字? 我希望这一文字在首次发射后自动向登记处补充信息。

Answer 1

You should consider that the Firewall could be enabled/disabled for a Domain Profile, for a Standard Profile (Private or domestic lan) and for a Public Profile (public lan).
Each setting has a separated key in the registry.

如果您的PC不是某一领域的一部分,测试回报作为缺省值,可使用。

在我家的PC(677 64bit no area)中,如果不是, 页: 1 标准文件,然后,文字回馈正确无误。

If err.number = 0 Then 
  objReg.GetDWORDValue &H80000002, "SYSTEMCurrentControlSet" &_ 
  "ServicesSharedAccessParametersFirewallPolicy" &_ 
  "StandardProfile", "EnableFirewall", dwValue

友情链接