Skip to content

Instantly share code, notes, and snippets.

@sandrinodimattia

sandrinodimattia/gist:3162091

Created July 23, 2012 05:40
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save sandrinodimattia/3162091 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save sandrinodimattia/3162091 to your computer and use it in GitHub Desktop.
Download ZIP
Windows Firewall (VBScript)
Raw
gistfile1.vb
' Create the firewall manager object.
Dim fwMgr
Set fwMgr = CreateObject("HNetCfg.FwMgr")
' Get the current profile for the local firewall policy.
Dim profile
Set profile = fwMgr.LocalPolicy.CurrentProfile
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment