掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
WNetAddConnection2で接続後、違うユーザーで接続するには (ID:99791)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
NET USE コマンドの結果を取り込むか、 http://homepage2.nifty.com/nihon-nouen/programming-stdinout.htm こういうことも可能でしょう。 '元ネタは、 'http://www.anchorsystems.co.jp/anchor/ashp/netmon/samples/wmi_os.html#Win32_NetworkConnection.htm Dim strComputer As String Dim objWMIService As Object Dim colItems As Object Dim objItem As Object strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkConnection", , 48) For Each objItem In colItems Debug.Print "LocalName " & objItem.LocalName Debug.Print "RemotePath: " & objItem.RemotePath Next
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.