 Download ActiveXperts Network Monitor 7.0 (6239 KB - .exe file)
Download Manual (653 KB - .pdf file)
Home Networking Scripts - VBScript sample code
List Home Networking Connections
List Home Networking Connection Properties
List Home Networking Firewall Logging Settings
List Home Networking Firewall Settings
List Home Networking ICMP Settings
List Home Networking Port Mappings
List Home Networking Port Mapping Protocols
List Home Networking ICS Settings
Modify Home Networking Firewall Logging Settings
Modify Home Networking Firewall Settings
You can use any of the VBScript programs below in ActiveXperts Network Monitor.
Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.
Returns the properties of each Internet Connection Firewall connection.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & _
"\root\microsoft\homenet")
Set colItems = objWMIService.ExecQuery("Select * from HNet_Connection")
For Each objItem in colItems
Wscript.Echo "GUID: " & objItem.GUID
Wscript.Echo "Is LAN Connection: " & objItem.IsLANConnection
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Phone Book Path: " & objItem.PhoneBookPath
Next
Enumerates Internet Connection Firewall connection properties.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & _
"\root\microsoft\homenet")
Set colItems = objWMIService.ExecQuery _
("Select * from HNet_ConnectionProperties")
For Each objItem in colItems
Wscript.Echo "Connection: " & objItem.Connection
Wscript.Echo "Is Bridge: " & objItem.IsBridge
Wscript.Echo "Is Bridge Member: " & objItem.IsBridgeMember
Wscript.Echo "Is Firewalled: " & objItem.IsFirewalled
Wscript.Echo "Is ICS Private: " & objItem.IsICSPrivate
Wscript.Echo "Is ICS Public: " & objItem.IsICSPublic
Next
Enumerates the configuration settings for Internet Connection Firewall logging.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & _
"\root\microsoft\homenet")
Set colItems = objWMIService.ExecQuery _
("Select * from HNet_FirewallLoggingSettings")
For Each objItem in colItems
Wscript.Echo "ID: " & objItem.ID
Wscript.Echo "Log Connections: " & objItem.LogConnections
Wscript.Echo "Log Dropped Packets: " & objItem.LogDroppedPackets
Wscript.Echo "Max File Size: " & objItem.MaxFileSize
Wscript.Echo "Path: " & objItem.Path
Next
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
Enumerates the ICMP settings for Internet Connection Firewall.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & _
"\root\microsoft\homenet")
Set colItems = objWMIService.ExecQuery _
("Select * from HNet_ConnectionICMPSetting")
For Each objItem in colItems
Wscript.Echo "Connection: " & objItem.Connection
Wscript.Echo "ICMP Settings: " & objItem.ICMPSettings
Next
Returns a list of all the Internet Connection Firewall port mappings on a computer.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & _
"\root\microsoft\homenet")
Set colItems = objWMIService.ExecQuery _
("Select * from HNet_ConnectionPortMapping2")
For Each objItem in colItems
Wscript.Echo "Connection: " & objItem.Connection
Wscript.Echo "Enabled: " & objItem.Enabled
Wscript.Echo "Name Active: " & objItem.NameActive
Wscript.Echo "Protocol: " & objItem.Protocol
Wscript.Echo "Target IP Address: " & objItem.TargetIPAddress
Wscript.Echo "Target Name: " & objItem.TargetName
Wscript.Echo "Target Port: " & objItem.TargetPort
Next
Enumerates all the Internet Connection Firewall port mapping protocols on a computer.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & _
"\root\microsoft\homenet")
Set colItems = objWMIService.ExecQuery _
("Select * from HNet_PortMappingProtocol")
For Each objItem in colItems
Wscript.Echo "Built In: " & objItem.BuiltIn
Wscript.Echo "ID: " & objItem.ID
Wscript.Echo "IP Protocol: " & objItem.IPProtocol
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Port: " & objItem.Port
Next
Reports whether the Internet Connection Firewall settings have been configured to allow DHCP and DNS.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & _
"\root\microsoft\homenet")
Set colItems = objWMIService.ExecQuery("Select * from HNet_ICSSettings")
For Each objItem in colItems
Wscript.Echo "DHCP Enabled: " & objItem.DHCPEnabled
Wscript.Echo "DNS Enabled: " & objItem.DNSEnabled
Wscript.Echo "ID: " & objItem.ID
Next
Disables the logging of dropped packets with Internet Connection Firewall. To enable logging of dropped packets, simply set the value of the property LogDroppedPackets to True.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & _
"\root\microsoft\homenet")
Set colItems = objWMIService.ExecQuery _
("Select * from HNet_FirewallLoggingSettings")
For Each objItem in colItems
objItem.LogDroppedPackets = False
objItem.Put_
Next
Disables the ability of the Internet Connection Firewall to allow inbound echo requests. To enable the ability to allow inbound echo requests, simply set the value of the property AlllowInboundEchoRequest to True.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & _
"\root\microsoft\homenet")
Set colItems = objWMIService.ExecQuery("Select * from HNet_FwIcmpSettings")
For Each objItem in colItems
objItem.AllowInboundEchoRequest = False
objItem.Put_
Next
|
