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

解決

DHAL 2004-06-18 23:18:08 No: 114021

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

岡田之仁 2004-06-19 00:13:34 No: 114022

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

ご参考までに・・・

以上。

DHAL 2004-06-19 00:55:30 No: 114023

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

魔界の仮面弁士 2004-06-19 06:40:45 No: 114024

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

DHAL 2004-06-19 07:27:12 No: 114025

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

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-22 01:25:40 No: 114026

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

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