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

[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\" требует имя и пароль.
Через стандартное окно все подключается.

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[Alex Keda]

это всё кривые виндовсы

[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" не работает.