こんにちわ。Chicchiと申します。 
Win32APIのWNetGetConnectionを用いて、ネットワークドライ
ブのリソース名を取得したいのですが、戻り値に487(ERROR_
INVALID_ADDRESS)が返されてしまいます。
同じロジックでVBでは正しく動作するため、原因が分かりま
せん。以下にスクリプトを載せますので、どなたか原因が分
かる方はお教えください。

/* PB ---------------------------------------------- */
FUNCTION Long WNetGetConnectionA( String lpszLocalName, &
REF String lpszRemoteName, Long cbRemoteName ) &
LIBRARY \"Mpr.dll\"

string  s_LocalName, s_RemoteName
long    l_return
long    l_max_len = 1000

s_LocalName = \"H:\"
s_RemoteName = Space( l_max_len + 1 )
l_return = WNetGetConnectionA( s_LocalName, &
                               s_RemoteName, l_max_len )
MessageBox( \"\", String( l_return ) + \"~n\" + &
                s_RemoteName )

/* VB ---------------------------------------------- */
Declare Function WNetGetConnection Lib \"mpr.dll\" Alias _
\"WNetGetConnectionA\" (ByVal lpszLocalName As String, _
ByVal lpszRemoteName As String, cbRemoteName As Long) _
As Long

Sub XXX()
    Dim strLocalName, strRemoteName As String
    Dim lngReturn As Long
    Const MAX_LEN = 1000

    strLocalName = \"H:\"
    strRemoteName = Space(MAX_LEN + 1)
    lngReturn = WNetGetConnection(strLocalName, _
                             strRemoteName, MAX_LEN)
    MsgBox (lngRet & Chr(13) & strRemoteName)
End Sub