within a vb script file called: enumconnection

set WMI = GetObject("WinMgmts:\root\Microsoft\HomeNet")
set objs = WMI.InstancesOf("HNet_ConnectionProperties")
for each obj in objs
WScript.Echo obj.GetObjectText_
next

within a vb script file called: listsicfistrue

set WMI = GetObject("WinMgmts:\root\Microsoft\HomeNet")
set objs = WMI.ExecQuery("SELECT * FROM HNet_ConnectionProperties WHERE IsFirewalled = TRUE")
for each obj in objs
WScript.Echo obj.GetObjectText_
next

set WMI = GetObject("WinMgmts:\root\Microsoft\HomeNet")
set objs = WMI.ExecQuery("SELECT * FROM HNet_ConnectionProperties WHERE IsIcsPublic = TRUE")
for each obj in objs
WScript.Echo obj.GetObjectText_
next

set WMI = GetObject("WinMgmts:\root\Microsoft\HomeNet")
set objs = WMI.ExecQuery("SELECT * FROM HNet_ConnectionProperties WHERE IsIcsPublic = TRUE")
for each obj in objs
WScript.Echo obj.GetObjectText_
next


within a vb script file called: disableicfall

set WMI = GetObject("WinMgmts:\root\Microsoft\HomeNet")
set objs = WMI.InstancesOf("HNet_ConnectionProperties")
for each obj in objs
obj.IsFirewalled = FALSE
obj.Put_
next