Public Sub Laufwerk_verbinden()
        strUserName = MMI.Menueleiste.Netzwerk(2)
        strUserPassword = MMI.Menueleiste.Netzwerk(3)
 
        'Laufwerk für Maschine A
        udtNetzResourceA.lpLocalName = "q:"
        udtNetzResourceA.lpRemoteName = "\\" & MMI.Menueleiste.Netzwerk(1) & _
          "\optimat"
        udtNetzResourceA.dwType = RESOURCETYPE_DISK
 
        'Laufwerk für Maschine B
        udtNetzResourceB.lpRemoteName = "\\taucher\optimat"
        udtNetzResourceB.lpLocalName = "r:"
        udtNetzResourceB.dwType = RESOURCETYPE_DISK
 
        Try
            If MMI.MaschineZuordnung(1).Zustand = True And _
              MMI.Menueleiste.NW_Zustand_A = False Then
                MMI.Menueleiste.KonfigurationFenster.LWConnectA()
            ElseIf (MMI.MaschineZuordnung(1).Zustand = False And _
              MMI.Menueleiste.NW_Zustand_A = True) Then
                MMI.Menueleiste.KonfigurationFenster.LWDisconnectA()
            ElseIf MMI.MaschineZuordnung(1).Zustand = True And _
              MMI.Menueleiste.NW_Zustand_A = True Then
            End If
        Catch ex As Exception
            MMI.Menueleiste.FehlerFenster.FehlerAnzeigen("Verbindung nicht" & _
              "möglich, da Computer nicht vorhanden!", Color.Red)
        End Try

    Public Sub LWConnectA()
        Dim lngResult As Integer
 
        lngResult = WNetAddConnection2(udtNetzResourceA, strUserPassword, _
          strUserName, 0)
 
        If lngResult = 0 Then
            MMI.Menueleiste.FehlerFenster.FehlerAnzeigen("Verbunden mit" & _
              "Maschine A", Color.Lime)
            MMI.Menueleiste.NW_Zustand_A = True
        Else
            MMI.Menueleiste.FehlerFenster.FehlerAnzeigen("Verbindung mit" & _
              "Maschine A nicht möglich", Color.Red)
            MMI.Menueleiste.NW_Zustand_A = False
        End If
 
    End Sub

mfg
rt