RasEnumEntriesにてダイヤルアップリストを取得するには？ (ID:75411)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

RasApi32.dllを使ってダイヤルアップリストを取得しようとしているのですが、RasEnumEntries
にてリターンが632となり取得できません。  以下がソースです。どなたかご存知の方いたらご教
授ください。

----------------------  以下、ソース  ------------------------

Dim typeREN()   As RASENTRYNAME         ' RASENTRYNAME構造体
    Dim lngEntry    As Long                 ' エントリ数
    Dim lngBuffer   As Long                 ' バッファサイズ
    Dim lngRet      As Long                 ' API戻り値
    Dim i           As Long                 ' ループカウンタ
    Dim strRow      As String               ' リストボックス設定文字列
    Dim typeOSINFO  As OSVERSIONINFO        ' OSVERSIONINFO構造体

' エントリ数の取得
    lngRet = RasEnumEntries(vbNullString, vbNullString, typeREN(i) _
                          , lngBuffer, lngEntry)

If lngEntry > 0 Then
        ' RASENTRYNAME構造体配列を確保
        ReDim typeREN(lngEntry - 1)
        ' RASENTRYNAME構造体を初期化
        For i = 0 To lngEntry - 1
            typeREN(i).dwSize = lngBuffer / lngEntry
        Next i
        ' リストの取得
        lngRet = RasEnumEntries(vbNullString, vbNullString _
                               , typeREN(0), lngBuffer, lngEntry)
        If 0 = lngRet Then
            ' RASリストの表示
            For i = 0 To lngEntry - 1
                If 0 = i Then
                    strRow = StrConv(typeREN(i).szEntryName, vbUnicode)
                Else
                    strRow = strRow & ";"  _
                           & StrConv(typeREN(i).szEntryName, vbUnicode)
                End If
            Next i
            lstDialup.RowSource = strRow
        Else
            MsgBox "ダイヤルアップ接続リストの取得に失敗しました。" _
                    , vbExclamation, plmsg_Title
        End If
    Else
        MsgBox "ダイヤルアップ接続リストがありません。" _
                         , vbExclamation, plmsg_Title
    End If

←解決時は質問者本人がここをチェックしてください。

戻る