![ישן](https://static.fresh.co.il/images/vBulletin/statusicon/post_old.gif)
26-10-2004, 16:56
|
![צלמית המשתמש של EventHorizon](image.php?u=13616&dateline=1216799809) |
|
|
חבר מתאריך: 21.03.03
הודעות: 12,004
|
|
VBScript
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
_____________________________________
|