現在、WindowsMoible5にてWindows2000の共有フォルダに自動マウントする

いちおう動くみたいですが、バグ等は保証の限りでありませんので自己責任でお願いします。

MemoryとStringPtrはMicrosoftのページからそのままコピペしています。

いろいろ調べたらこのMicrosoftのページで紹介されているMemoryというクラスもメモリリークのバグがあるようですので見直したほうが良いと思います。

Imports System.ComponentModel
Imports System.Runtime.InteropServices

Public Class Form1

    Private Structure NETRESOURCE
        Public dwScope As Integer
        Public dwType As Integer
        Public dwDisplayType As Integer
        Public dwUsage As Integer
        Public lpLocalName As StringPtr
        Public lpRemoteName As StringPtr
        Public lpComment As StringPtr
        Public lpProvider As StringPtr

        Public Sub Free()
            lpLocalName.Free()
            lpRemoteName.Free()
            lpComment.Free()
            lpProvider.Free()
        End Sub
    End Structure

    Private Declare Function WNetAddConnection3 Lib "coredll" Alias "WNetAddConnection3W" ( _
        ByVal hwndOwner As Integer, _
        ByRef lpNetResource As NETRESOURCE, _
        ByVal lpPassword As String, _
        ByVal lpUserName As String, _
        ByVal dwFlags As Integer _
    ) As Integer

    Private Const RESOURCETYPE_ANY As Integer = &H0
    Private Const CONNECT_INTERACTIVE As Integer = &H8

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim lngRet As Integer
        Dim netrs As NETRESOURCE

        netrs.dwType = RESOURCETYPE_ANY
        netrs.lpLocalName = New StringPtr()
        netrs.lpRemoteName = New StringPtr("\\hogeWin2k\share")
        netrs.lpComment = New StringPtr()
        netrs.lpProvider = New StringPtr()

        lngRet = WNetAddConnection3(System.IntPtr.Zero, netrs, "password", "username", CONNECT_INTERACTIVE)

        MsgBox(lngRet)

        netrs.Free()

    End Sub
End Class

Public Class Memory
    <DllImport("coredll.dll", SetLastError:=True)> _
    Private Shared Function LocalAlloc(ByVal uFlags As Integer, _
      ByVal uBytes As Integer) As IntPtr
    End Function

    <DllImport("coredll.dll", SetLastError:=True)> _
    Private Shared Function LocalFree(ByVal hMem As IntPtr) As IntPtr
    End Function

    <DllImport("coredll.dll", SetLastError:=True)> _
    Private Shared Function LocalReAlloc(ByVal hMem As IntPtr, _
      ByVal uBytes As Integer, ByVal fuFlags As Integer) As IntPtr
    End Function

    Private Const LMEM_FIXED As Integer = 0
    Private Const LMEM_MOVEABLE As Integer = 2
    Private Const LMEM_ZEROINIT As Integer = &H40

    Private Const LPTR = (LMEM_FIXED Or LMEM_ZEROINIT)

    ' LocalAlloc を使用して、メモリ ブロックを割り当てます。
    Public Shared Function AllocHLocal(ByVal cb As Integer) As IntPtr
        Return LocalAlloc(LPTR, cb)
    End Function

    ' AllocHLocal で割り当てられたメモリを解放します。
    Public Shared Sub FreeHLocal(ByVal hlocal As IntPtr)
        If Not hlocal.Equals(IntPtr.Zero) Then
            If Not IntPtr.Zero.Equals(LocalFree(hlocal)) Then
                Throw New Win32Exception(Marshal.GetLastWin32Error())
            End If
            hlocal = IntPtr.Zero
        End If
    End Sub

    ' 以前に AllocHLocal で割り当てられたメモリ ブロックのサイズを変更します。
    Public Shared Function ReAllocHLocal(ByVal pv As IntPtr, _
      ByVal cb As Integer) As IntPtr
        Dim newMem As IntPtr = LocalReAlloc(pv, cb, LMEM_MOVEABLE)
        If newMem.Equals(IntPtr.Zero) Then
            Throw New OutOfMemoryException
        End If
        Return newMem
    End Function

    ' マネージ文字列の内容をアンマネージ メモリにコピーします。
    Public Shared Function StringToHLocalUni( _
     ByVal s As String) As IntPtr
        If s Is Nothing Then
            Return IntPtr.Zero
        Else
            Dim nc As Integer = s.Length
            Dim len As Integer = 2 * (1 + nc)
            Dim hLocal As IntPtr = AllocHLocal(len)
            If hLocal.Equals(IntPtr.Zero) Then
                Throw New OutOfMemoryException
            Else
                Marshal.Copy(s.ToCharArray(), 0, hLocal, s.Length)
                Return hLocal
            End If
        End If
    End Function
End Class

Public Structure StringPtr
    Private szString As IntPtr

    Public Sub New(ByVal s As String)
        Me.szString = Memory.StringToHLocalUni(s)
    End Sub

    Public Overrides Function ToString() As String
        Return Marshal.PtrToStringUni(Me.szString)
    End Function

    Public Sub Free()
        Memory.FreeHLocal(Me.szString)
    End Sub
End Structure