Вопрос : Составляющ карту привод сети в VB.NET или достигать защищенного курса сети

Я пытаюсь составить карту привод сети, я могу сделать так если не будет username и пароль setup на директории. Но если одно I, то получают Кодего ошибки 1203 пока использующ WNetAddConnection2.
, котор я не могу доработать директорию для того чтобы одеть мое Кодий, его должны быть другая дорога вокруг.
Also я интересовал если будет дорога соединяться к курсу сети с username и паролем и не тревожиться о составлять карту привод letter. Любой помощью в разрешать это было бы больш appreciated.
This будет мое
And Кодего до тех пор. курс сети, котор \ so
\ привод \ скоросшиватель \ SubFolder \ class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
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:
class= " id= " codeSnippet697057 
Public объявляет _» псевдонима «WNetAddConnection2A» свободы «mpr.dll функции WNetAddConnection2
    (lpNetResource ByRef как NETRESOURCE, lpPassword ByVal как lpUserName шнура, ByVal как dwFlags шнура, ByVal как интежер) как интежер

    Публика объявляет _» псевдонима «WNetCancelConnection2A» свободы «mpr функции WNetCancelConnection2
    (lpName ByVal как dwFlags шнура, ByVal как fForce интежера, ByVal как интежер) как интежер


    Общественная структура NETRESOURCE
        Общественное dwScope как интежер
        Общественное dwType как интежер
        Общественное dwDisplayType как интежер
        Общественное dwUsage как интежер
        Общественное lpLocalName как шнур
        Общественное lpRemoteName как шнур
        Общественное lpComment как шнур
        Общественное lpProvider как шнур
    Структура конца

    Общественное Const ForceDisconnect как интежер = 1
    Общественное Const RESOURCETYPE_DISK как длиной = &H1

    Общественная функция MapDrive (ByVal DriveLetter как шнур, ByVal UNCPath как шнур) как булевско

        Тусклое nr как NETRESOURCE
        Тусклое strUsername как шнур
        Тусклое strPassword как шнур

        nr = новое NETRESOURCE
        nr.lpRemoteName = UNCPath
        'nr.lpLocalName = DriveLetter & «: »
        strUsername = sUserName
        strPassword = sPassword 
        nr.dwType = RESOURCETYPE_DISK

        Тусклый результат как интежер
        результат = WNetAddConnection2 (nr, strPassword, strUsername, 0)

        Если результат = 0 после этого
            Возвращенно True
        Еще
            Возвращенное ложное
        Закончитесь если
    Закончите функцию

    Общественная функция UnMapDrive (ByVal DriveLetter как шнур) как булевско
        Тусклое rc как интежер
        rc = WNetCancelConnection2 (DriveLetter & «: », 0, ForceDisconnect)

        Если rc = 0 после этого
            Возвращенно True
        Еще
            Возвращенное ложное
        Закончитесь если

    Закончите функцию
class=

Ответ : Составляющ карту привод сети в VB.NET или достигать защищенного курса сети

Единственная дорога, котор я получаю эту ошибку когда я использую неправильные username или пароль. Это как мои взгляды примера просто помещенные в кнопке. ASUS будет учетом потребителя.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Приватная подводная лодка Button1_Click (прислужник ByVal как System.Object, ByVal e как System.EventArgs) регулирует Button1.Click
        Тусклое nr как NETRESOURCE = ничего
        Тусклое strUsername как шнур = String.Empty
        Тусклое strPassword как шнур = String.Empty
        Тусклый результат как интежер = 0

        nr.lpRemoteName = «\ \ 192.168.1.109 \ доля»
        nr.lpLocalName = «r: »
        strUsername = «ASUS»
        strPassword = «пароль»
        nr.dwType = RESOURCETYPE_DISK

        результат = WNetAddConnection2 (nr, strPassword, strUsername, 0)
        Console.WriteLine (результат)

    Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us