ローカルネットワーク上の他のPCのコンピュータ名の取得

Public Class WNet

  #Region "　WNetOpenEnum メソッド　"

    <System.Runtime.InteropServices.DllImport("MPR.DLL", CharSet:=System.Runtime.InteropServices.CharSet.Auto)> _
    Public Shared Function WNetOpenEnum( _
        ByVal Scope       As ResourceScope, _
        ByVal Type        As ResourceType, _
        ByVal Usage       As ResourceUsage, _
        <System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.AsAny)> _
        ByVal NetResource As Object, _
        ByRef EnumHandle  As System.IntPtr) As Integer
    End Function

  #End Region

  #Region "　WNetCloseEnum メソッド　"

    <System.Runtime.InteropServices.DllImport("MPR.DLL", CharSet:=System.Runtime.InteropServices.CharSet.Auto)> _
    Public Shared Function WNetCloseEnum( _
        ByVal EnumHandle As System.IntPtr) As Integer
    End Function

  #End Region

  #Region "　WNetEnumResource メソッド　"

    <System.Runtime.InteropServices.DllImport("MPR.DLL", CharSet:=System.Runtime.InteropServices.CharSet.Auto)> _
    Public Shared Function WNetEnumResource( _
        ByVal EnumHandle As System.IntPtr, _
        ByRef Count      As Integer, _
        ByVal Buffer     As System.IntPtr, _
        ByRef BufferSize As Integer) As Integer
    End Function

  #End Region

  #Region "　NetResource 構造体　"

    Private Structure NetResource
        Public Scope       As ResourceScope
        Public Type        As ResouceType
        Public DisplayType As ResourceDisplayType
        Public Usage       As ResourceUsage
        <System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPTStr)> _
        Public LocalName   As String
        <System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPTStr)> _
        Public RemoteName  As String
        <System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPTStr)> _
        Public Comment     As String
        <System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPTStr)> _
        Public Provider    As String
    End Structure

  #End Region

  #Region "　ResourceScope 列挙体　"

    Public Enum ResourceScope
        Connected = &H00000001
        Globalnet = &H00000002
        Rememberd = &H00000003
        Recent    = &H00000004
        Context   = &H00000005
    End Enum

  #End Region

  #Region "　ResourceType 列挙体　"

    Public Enum ResourceType
        Any      = &H00000000
        Disk     = &H00000001
        Print    = &H00000002
        Reserved = &H00000008
    End Enum

  #End Region

  #Region "　ResourceDisplayType 列挙体　"

    Public Enum ResourceDisplayType
        Generic      = &H00000000
        Domain       = &H00000001
        Server       = &H00000002
        Share        = &H00000003
        File         = &H00000004
        Group        = &H00000005
        Network      = &H00000006
        Root         = &H00000007
        ShareAdmin   = &H00000008
        Directory    = &H00000009
        Tree         = &H0000000A
        NdsContainer = &H0000000B
    End Enum

  #End Region

  #Region "　ResourceUsage 列挙体　"

    Public Enum ResourceUsage
        Connectable   = &H00000001
        Container     = &H00000002
        NoLocalDevice = &H00000004
        Sibling       = &H00000008
        Attached      = &H00000010
        All           = (Connectable Or Container Or Attached)
    End Enum

  #End Region

End Class