急，急.... vb 添加注册表项
请教各位高手，在添加注册表项时出错，不太会，本人是vb菜鸟，请教了！

Dim WSH
Set WSH= CreateObject("WSCRIPT.SHELL") '击活WScript.Shell对象WSH.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\RasMan\Parameters", "ProhibitIpSec", "REG_D WORD" '添加注册表一个项的默认值


修改注册表的目的是能在xp系统上跑l2tp协议的vpn连接

[解决办法]
你那代码俺没用过