Dim i As Integer
 
        strUserName = MMI.Menueleiste.Netzwerk(2)
        strUserPassword = MMI.Menueleiste.Netzwerk(3)
 
        udtNetzResource(1).lpLocalName = "q"
        udtNetzResource(2).lpLocalName = "r"
        udtNetzResource(3).lpLocalName = "s"
        udtNetzResource(4).lpLocalName = "s"
        udtNetzResource(5).lpLocalName = "s"
        udtNetzResource(6).lpLocalName = "s"
        udtNetzResource(7).lpLocalName = "s"
        udtNetzResource(8).lpLocalName = "s"
        udtNetzResource(9).lpLocalName = "s"
        udtNetzResource(10).lpLocalName = "s"
        udtNetzResource(11).lpLocalName = "s"
        udtNetzResource(12).lpLocalName = "s"
        udtNetzResource(13).lpLocalName = "s"
        udtNetzResource(14).lpLocalName = "s"
        udtNetzResource(15).lpLocalName = "s"
        udtNetzResource(16).lpLocalName = "s"
 
        udtNetzResource(1).lpRemoteName = "\\" & MMI.Menueleiste.Netzwerk(1) & _
          "\test"
 
        For i = 1 To 16
            udtNetzResource(i).dwType = RESOURCETYPE_DISK
        Next
 
        Try
            For i = 1 To 16
                If MMI.MaschineZuordnung(i).Zustand = True And _
                  MMI.Menueleiste.NW_Zustand(i) = False Then
                    MMI.Menueleiste.KonfigurationFenster.LWConnect(i)
                ElseIf (MMI.MaschineZuordnung(i).Zustand = False And _
                  MMI.Menueleiste.NW_Zustand(i) = True) Then
                    MMI.Menueleiste.KonfigurationFenster.LWDisconnect(i)
                ElseIf MMI.MaschineZuordnung(i).Zustand = True And _
                  MMI.Menueleiste.NW_Zustand(i) = True Then
                End If
            Next
 
        Catch ex As Exception
 
        End Tr

    Public Sub LWConnect(ByVal i As Integer)
        Dim lngResult As Integer
 
        lngResult = WNetAddConnection2(udtNetzResource(i), strUserPassword, _
          strUserName, 0)
        If lngResult = 0 Then
            MMI.Menueleiste.FehlerFenster.FehlerAnzeigen("Verbunden mit" & _
              "Maschine " & MMI.MaschineZuordnung(i).MaschinenName, Color.Lime)
            MMI.Menueleiste.NW_Zustand(i) = True
        Else
            MMI.Menueleiste.FehlerFenster.FehlerAnzeigen("Verbindung mit" & _
              "Maschine " & MMI.MaschineZuordnung(i).MaschinenName & " nicht" & _
              "möglich", Color.Red)
            MMI.Menueleiste.NW_Zustand(i) = False
        End If
 
    End Sub

mfg
rt