icf vbs script

[James]

Looking for a script to enable/disable icf!!! I have not
been able to find on the internet! Does anybody have any
ideas. Thanks in advance

 

[Torgeir Bakken \(MVP\)]

Looking for a script to enable/disable icf!!! I have not
been able to find on the internet! Does anybody have any
ideas. Thanks in advance

Hi

The VBScripts in the links below demonstrates how to enable Internet
Connection Firewall on a connection, change the line
"EveryConnection.EnableInternetFirewall" to
"EveryConnection.DisableInternetFirewall" to let it disable instead
of enable.

http://groups.google.com/groups?selm=uabP##[email protected]
http://groups.google.com/groups?selm=uw6d#[email protected]

Here is another example:

http://groups.google.com/[email protected]


Note that when using the EnableInternetFirewall/DisableInternetFirewall
methods, a warning box will pop up where the user needs to select
between cancel or continue. A hotfix is available that changes this
behavior:

Internet Sharing Configuration Dialog Box Unexpectedly Appears
When You Programmatically Enable or Disable the ICF
http://support.microsoft.com/?kbid=814054

As the article states, you need to call Microsoft Product Support Services to
obtain it (outside the US, customers should contact their local Microsoft
subsidiary.). The support call will be be free as long as you refer to the
Knowledge Base Article number (814054) and ask for nothing more.


You will need to find the phone number from here:
http://support.microsoft.com/default.aspx?scid=fh;[LN];CNTACTMS

In the wizard, Select WinXP, and Basic, and then "It was purchased separately"

For USA, you end up here
http://support.microsoft.com/default.aspx?scid=fh;en-us;Prodoffer31

Use phone number 425-635-3311



In WinXP Service Pack 2 (currently in beta) you can avoid this popup by
using the new command line support added by SP2, where you can access
the firewall configuration like this:

netsh firewall ...

See "Appendix B" in the document in this link for more on this new netsh
interface in SP2:

http://www.microsoft.com/downloads/...e1-61fa-447a-bdcd-499f73a637d1&displaylang=en