Structure NETRESOURCE
        Dim dwScope As Long
        Dim dwType As Long
        Dim dwDisplayType As Long
        Dim dwUsage As Long
        Dim lpLocalName As String
        Dim lpRemoteName As String
        Dim lpComment As String
        Dim lpProvider As String
    End Structure
 
    Declare Function WNetUseConnection Lib "mpr.dll" Alias "WNetUseConnectionA" _
       (ByVal hwndOwner As Long, _
        ByRef lpNetResource As NETRESOURCE, _
        ByVal lpUserID As String, _
        ByVal lpPassword As String, _
        ByVal dwFlags As Long, _
        ByVal lpAccessName As String, _
        ByRef lpBufferSize As Long, _
        ByRef lpResult As Long) As Long
 
    Function test()
        Dim NETR As NETRESOURCE
        Dim r As Long
        Dim Result As Long
        Dim buffer As String
        Dim bufferlen As Long
 
        buffer = Space(64) : bufferlen = Len(buffer)
        With NETR
            .dwScope = RESOURCE_GLOBALNET
            .dwType = RESOURCETYPE_DISK
            .dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
            .dwUsage = RESOURCEUSAGE_CONNECTABLE
            .lpRemoteName = "\\DE-GBN-AP1\Applications"
            .lpLocalName = "U:"
        End With
        r = WNetUseConnection(0, NETR, "Administrator", "", 0, buffer, _
  bufferlen, Result)
        If r <> 0 Then
            Throw New Exception("Der Netzwerkzugriff ist mit dem Fehler " & _
              CStr(r) & " fehlgeschlagen, der Dienst wird beendet.")
        End If
 
    End Function