Страница 1 из 1

Подключение сетевого диска

Добавлено: 2010-11-01 14:01:30
alex117
Пытаюсь подключить сетевой диск через Delphi, путем:

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var
NetResource: TNetResource;
begin
 NetResource.dwType       := RESOURCETYPE_DISK;
 NetResource.lpLocalName  := 'S:';
 NetResource.lpRemoteName := '\\server\transfer\';
 NetResource.lpProvider   := '';
   WNetAddConnection2(NetResource,
                       'password',
                       'user', CONNECT_UPDATE_PROFILE);
end;
Но что-то не подключается . Ресурс "\\server\transfer\" требует имя и пароль.
Через стандартное окно все подключается.

Re: Подключение сетевого диска

Добавлено: 2010-12-02 20:04:25
Alex Keda
это всё кривые виндовсы

Re: Подключение сетевого диска

Добавлено: 2011-03-24 16:31:58
alex117
Решил другим способом, при помощи js-скрипта

Код: Выделить всё

Set objNetwork = CreateObject("WScript.Network")

Set oDrives=objNetwork.EnumNetworkDrives

mydrv = "M:"                              // назначаем букву диска
mapped = false

myshare = "\\server\users\data"    // путь к папке, которую надо размапить как сетевой диск
For i = 0 to oDrives.Count - 1 Step 2

'      WScript.Echo "Drive " & oDrives.Item(i) & " = " & oDrives.Item(i+1)

      If oDrives.Item(i)=mydrv Then mapped = true

Next

'WScript.echo "mapped = " & mapped

If Not mapped Then objNetwork.MapNetworkDrive mydrv, myshare
Уже не помню, давно делал, но по-моему с ip-адресом в переменной "myshare" не работает.