Vraag : Het in kaart brengen van een netwerkaandrijving in VB.NET of de toegang tot van een beschermde netwerkweg

Ik probeer om een netwerkaandrijving in kaart te brengen, kan ik dit doen als er geen gebruikersbenaming en wachtwoordopstelling op de folder is. Maar als er één I zijn krijg de code 1203 van de Fout terwijl het gebruiken van WNetAddConnection2.
ik niet de folder kan wijzigen om mijn code aan te passen, moet het rond de andere manier zijn.
Also was ik benieuwd of is er een manier om met een netwerkweg met een gebruikersbenaming en een wachtwoord te verbinden en over het in kaart brengen van een aandrijving letter zich ongerust te maken niet. Om het even welke hulp in het oplossen van dit zou zeer appreciated.
This is tot dusver mijn code.
And zijn de netwerkweg de Omslag \ SubFolder \ van de so
\ \ Aandrijving \ is
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

Public de Lib „mpr.dll“ alias „WNetAddConnection2A“ verklaart van de Functie WNetAddConnection2 _
    (ByRef lpNetResource als NETRESOURCE, ByVal lpPassword als Koord, ByVal lpUserName als Koord, ByVal dwFlags als Geheel) als Geheel

    Mpr“ alias „WNetCancelConnection2A“ het publiek verklaart van de Functie WNetCancelConnection2 van de Lib „_
    (ByVal lpName als Koord, ByVal dwFlags als Geheel, ByVal fForce als Geheel) als Geheel


    Openbare Structuur NETRESOURCE
        Openbare dwScope als Geheel
        Openbare dwType als Geheel
        Openbare dwDisplayType als Geheel
        Openbare dwUsage als Geheel
        Openbare lpLocalName als Koord
        Openbare lpRemoteName als Koord
        Openbare lpComment als Koord
        Openbare lpProvider als Koord
    De Structuur van het eind

    Openbare Const ForceDisconnect als Geheel = 1
    Openbare Const RESOURCETYPE_DISK als lang = &H1

    Overheidsfunctie MapDrive (ByVal DriveLetter als Koord, ByVal UNCPath als Koord) zoals Van Boole

        Schemerige nr als NETRESOURCE
        Schemerige strUsername als Koord
        Schemerige strPassword als Koord

        nr = Nieuwe NETRESOURCE
        nr.lpRemoteName = UNCPath
        'nr.lpLocalName = DriveLetter & „: “
        strUsername = sUserName
        strPassword = sPassword 
        nr.dwType = RESOURCETYPE_DISK

        Verduister resultaat als Geheel
        resultaat = WNetAddConnection2 (nr, strPassword, strUsername, 0)

        Als resultaat = 0 toen
            Ware terugkeer
        Anders
            Valse terugkeer
        Eind als
    De Functie van het eind

    Overheidsfunctie UnMapDrive (ByVal DriveLetter als Koord) zoals Van Boole
        Schemerige rc als Geheel
        rc = WNetCancelConnection2 (DriveLetter & „: “, 0, ForceDisconnect)

        Als rc = 0 toen
            Ware terugkeer
        Anders
            Valse terugkeer
        Eind als

    De Functie van het eind

Antwoord : Het in kaart brengen van een netwerkaandrijving in VB.NET of de toegang tot van een beschermde netwerkweg

De enige manier ik deze fout krijg is wanneer ik de verkeerde gebruikersbenaming of het wachtwoord gebruik. Zo die kijkt mijn voorbeeld eenvoudig in een knoop wordt geplaatst. ASUS is de gebruikersrekening.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten Button1_Click Button1.Click
        Schemerige nr als NETRESOURCE = niets
        Schemerige strUsername als Koord = String.Empty
        Schemerige strPassword als Koord = String.Empty
        Verduister resultaat als Geheel = 0

        nr.lpRemoteName = „\ \ 192.168.1.109 \ aandeel“
        nr.lpLocalName = „R: “
        strUsername = „ASUS“
        strPassword = „wachtwoord“
        nr.dwType = RESOURCETYPE_DISK

        resultaat = WNetAddConnection2 (nr, strPassword, strUsername, 0)
        Console.WriteLine (resultaat)

    Sub van het eind
Andere oplossingen  
 
programming4us programming4us