Private Function MapRemoteShare(ByVal strShare As String) As Boolean
 
    Dim bolReturn As Boolean = False, intResult As Integer = -1, nrMap As _
      NETRESOURCE
 
    Try
        If My.Computer.Network.IsAvailable Then
 
            nrMap = New NETRESOURCE
            nrMap.lpRemoteName = strSPath
            nrMap.lpLocalName = "X:"
            nrMap.dwType = RESOURCETYPE_DISK
 
            Try
                intResult = WNetAddConnection2(nrMap, GetUnsecureString( _
                  sstrSPassword), strSUsername, 0)
 
            Catch ex As Exception
                WriteProtocolEntry(ex.Message & vbCrLf & ex.StackTrace, _
                  ProtocolType.Warning, False)
            Finally
                If intResult = 0 Then bolReturn = True Else bolReturn = False                    
            End Try
 
        End If
 
    Catch ex As Exception
        WriteProtocolEntry(ex.Message & vbCrLf & ex.StackTrace, _
          ProtocolType.Warning, False)
    End Try
 
    Return bolReturn
 
End Function

Die Zeit ist der größte Feind des Menschen.