ネットワークの接続を切断するには？

解決

DHAL 2004-06-18 14:18:08 No: 114021 IP: [192.*.*.*]

たびたび申し訳ありません。
タイトルの通り、ネットワーク接続を切断したいです。
バッチファイルでは
net use * /delete
でいいのですが、ＶＢ６ではどのように書けば良いのでしょうか？
ちなみにネットワークドライブは割り当てていません。
ドライブを割り当てた状態なら切断方法はわかるのですが、
割り当てていない場合はどうすればいいのでしょうか？
ご指導よろしくお願いします。

編集削除

岡田之仁 2004-06-18 15:13:34 No: 114022 IP: [192.*.*.*]

http://dobon.net/cgi-bin/vbbbs/cbbs.cgi?mode=al2&namber=4438&rev=&no=0

ご参考までに・・・

以上。

編集削除

DHAL 2004-06-18 15:55:30 No: 114023 IP: [192.*.*.*]

岡田さん、返信ありがとうございます。
ごめんなさい。全然参考になりませんでした。
全接続を切断するってことは確かにやりたいことなんですが、
参考に示されたサイトではドライブ指定してやっていくものなので、
私のやりたいこととは違ってました。
ドライブを割り当ててないのでこのやり方ではできないんです。

編集削除

魔界の仮面弁士 2004-06-18 21:40:45 No: 114024 IP: [192.*.*.*]

> ごめんなさい。全然参考になりませんでした。
ドライブが割り当てられていなくても使えますよ。WNetCancelConnection2は。

編集削除

DHAL 2004-06-18 22:27:12 No: 114025 IP: [192.*.*.*]

１つずつのアドレスを選択して切断することはできました。
全接続を一気に切断させることはできないですか？

Private Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias "WNetCancelConnection2A" (ByVal lpName As String, ByVal dwFlags As Long, ByVal fForce As Long) As Long

Private Const CONNECT_UPDATE_PROFILE = &H1

Private Sub Command1_Click()
    Dim lngRet          As Long
    lngRet = WNetCancelConnection2("\\SOTEC\LAN", CONNECT_UPDATE_PROFILE, True)
    If lngRet = 0 Then
        MsgBox "切断成功"
    Else
        MsgBox "切断失敗"
    End If
End Sub

今は上記のようにしています。

編集削除

DHAL 2004-06-21 16:25:40 No: 114026 IP: [192.*.*.*]

コマンドプロンプトを呼び出して
net use * /delete
を実行することで解決しました。

協力していただいてありがとうございました。

編集削除