'This is a script to convert Windows XP Service Pack 2 to pre-Service Pack 2 VPN behavior.
'Microsoft could not give a reason why they changed this behavior and refused to specify
'the supposed dangers of permitting VPN to work in a NAT environment.
'There is no warrantee to this script.  To use this script, you take full risk of any
'damages that may be caused by this script.
'George Ou
'www.LANArchitect.net



Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.Popup "Repairing Microsoft Windows XP Service Pack 2"
WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\IPSec\AssumeUDPEncapsulationContextOnSendRule", "2", "REG_DWORD"