C# と VB.NET の質問掲示板

■No41185 (hs さん) に返信
> 結局ネットワーク上の全PC名を取得する方法がわからないまま終わらせいてしまいました。

API を使わない列挙方法を示しておきます。

'Imports System.DirectoryServices

Dim computers() As String

Dim domain As String = ワークグループまたはドメイン名
Using d As New DirectoryEntry("WinNT://" & domain)
    computers = (From c As DirectoryEntry In d.Children _
                Where c.SchemaClassName = "Computer" _
                Select c.Name).ToArray()
End Using


> Visual Basic6.0(SP3) が対象という事で、VB2008にコピペしましたが、文法が違い
そのままコピペするのではなく、[ツール]メニューの
[Visual Basic 6 コードのアップグレード]を使ってみてください。

# もっとも、これでアップグレードしたとしても、As Any 構文が原因で変換しきれないため
# VB6 の知識か API 自体への造詣が無いと、移植作業に若干苦労するかも知れませんが…。

■No41185 (hs さん) に返信
> NASの名前を検索・空いているドライブに割り当てるという事を実現したいです。

空いているドライブは、My.Computer.FileSystem.Drives または System.IO.DriveInfo.GetDrives() を
列挙すれば調べられるかと思います。WMI の Win32_LogicalDisk クラスという手もあるかな。


一方、ドライブの割り当てについては、先に挙がっている API を使う方法のほか、
WshNetwork オブジェクトを用いる方法などもあります。


'Imports System.Runtime.InteropServices

Dim wshNetwork As Object = CreateObject("WScript.Network")

' http://msdn.microsoft.com/ja-jp/library/cc364409.aspx          
CallByName(wshNetwork, "MapNetworkDrive", CallType.Method, _
        "Z:", "\\servername\folderName", True, "userName", "password")

MsgBox("Z:に割り当てました。")

' http://msdn.microsoft.com/ja-jp/library/cc364419.aspx
CallByName(wshNetwork, "RemoveNetworkDrive", CallType.Method, _
        "Z:", True, True)

MsgBox("Z:を切断しました。")

Marshal.ReleaseComObject(wshNetwork)
wshNetwork = Nothing