Scriptbox
 VBScript Links 
 About VBscript 
 JavaScript Links 
 About JavaScript 
 Powershell Links 
 PSCRIPT the Script Launcher 
 PowerShell Shortcut Keys 
 About Powershell 
     VBScript
    JavaScript
    Powershell
Disclaimer
Contact
Latest 10 Scripts
Script search
  :: { Category } :: 0-9ABCDEFGHIJKLMNOPQRSTUVWXYZ
         

Search Options:  List  Home  Networking  Firewall  Settings  

 Content of List Home Networking Firewall Settings.vbs
MD5 Hash: 4F7C6B20F7048C748284224EF93AFF4E
' Description: Enumerates the inbound and outbound configuration settings for Internet Connection Firewall.


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & _
"\root\microsoft\homenet")

Set colItems = objWMIService.ExecQuery("Select * from HNet_FwIcmpSettings")

For Each objItem in colItems
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Allow Inbound Echo request: " & _
objItem.AllowInboundEchoRequest
Wscript.Echo "Allow Inbound Mask Requestt: " & _
objItem.AllowInboundMaskRequest
Wscript.Echo "Allow Inbound Router Request: " & _
objItem.AllowInboundRouterRequest
Wscript.Echo "Allow Inbound Timestamp Request: " & _
objItem.AllowInboundTimestampRequest
Wscript.Echo "Allow Outbound Destination Unreachable: " & _
objItem.AllowOutboundDestinationUnreachable
Wscript.Echo "Allow Outbound Parameter Problem: " & _
objItem.AllowOutboundParameterProblem
Wscript.Echo "Allow Outbound Source Quench: " & _
objItem.AllowOutboundSourceQuench
Wscript.Echo "Allow Outbound Time Exceeded: " & _
objItem.AllowOutboundTimeExceeded
Wscript.Echo "Allow redirect: " & objItem.AllowRedirect
Next

   © 2008 - 2013 Boris Toll      :: Scripts available: 6.481 ::      :: scriptbox.toll.at ::      :: powered by www.toll.at ::
  Google Entries:n/a
  Yahoo Backlinks:n/a
  Live Backlinks:n/a
  del.icio.us Bookmarks:n/a
  Technorati Links:n/a