VB中的RasEnumConnections函数返回632错误解决方法

今天用了一下RasEnumConnections函数，发现MSDN上的例子是错误的。

MSDN上RasEnumConnections的文档是这么说的：

MSDN上提供的示例代码也是这么写的：

可惜这个例子是错误的，至少在XP SP3上是错误的，RasEnumConnections函数返回的是ERROR_INVALID_SIZE（632），而不是ERROR_BUFFER_TOO_SMALL。解决的方法是第一个参数不要传入NULL，而是传入一个正确设置了dwSize的RASCONN结构，一般dwSize设为sizeof(RASCONN)即可；但是如果你的程序要在早期的系统上运行，则需要HARD CODE成目标系统的值。