■

某MLで「MACアドレスを取得することはできるのか」（実際の趣旨はだいぶ違う）という質問があって、いろいろ調べてみたところ、WMIを使うと逝けそうな風味。
というわけで、とりあえずWMI（具体的には「System.Management.ManagementObject」あたり）を使って、まずは共有ディレクトリ取得プログラム。

Option Explicit

Option Strict
Imports System

Imports System.Management
Class hoge

    Public Shared Sub Main(ByVal cmdArgs() As String)

        Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_Share")

        Dim share As ManagementObject
        For Each share In searcher.Get()

            Console.WriteLine("Share = " & share("Name").ToString())

        Next share

    End Sub

End Class

コンパイルオプションは以下のとおり。

> vbc /r:system.dll,system.management.dll /debug+ .vb

結構カンタンだったりしますね。
で、これの応用編でMAC Addressの取得をしたいのですが、これはもう少し悩まないとダメポ。