TemaZosin
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Нужно подключить сетевой диск, к которому требуется логин и пароль и задать ему имя. Нашел темы, в них через VBS скрипт все делалось. Все бы неплохо, но там подключалась шареная папка, и как настроить ввод логина и пароля я не понял.
Диск я монтирую так
Код:
Осталось какой-то командой поменять метку
Как вариант
Код:| Reg Add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2 |
Но я не разобрался как правильно настроить. И произойдет ли моментальное переименование или только после перезагрузки? Я там вижу раздел webdav.yandex, но его переименование ничего не дает.
Пример скрипта с подключением и переименованием
Код: On Error Resume Next
Set objWshNetwork = CreateObject( "WScript.Network" )
Set objShell = CreateObject("Shell.Application")
MapDrive "X:", "\\files\files", "Базы"
Sub MapDrive(strDrive, strPath, strName)
On Error Resume Next
objWshNetwork.RemoveNetworkDrive strDrive, vbTrue, vbTrue
objWshNetwork.MapNetworkDrive strDrive, strPath
objShell.NameSpace(strDrive).Self.Name = strName
End Sub |
Аналогинчый вариант через эмуляцию скрипта
Код: @Echo Off
For %%A In (Z Y X W V U T S R Q P O N M L J I H G F E D C) Do (
If Not Exist "%%A:\" Set Disk=%%A&GoTo Jump
)
:Jump
>"%Temp%\netdrive.vbs" (
Echo On Error Resume Next
Echo Set objWshNetwork = CreateObject^( "WScript.Network" ^)
Echo Set objShell = CreateObject^("Shell.Application"^)
Echo MapDrive "%Disk%:", "\\inquisitor\bkup\sqldumps", "Базы"
Echo Sub MapDrive^(strDrive, strPath, strName^)
Echo On Error Resume Next
Echo objWshNetwork.RemoveNetworkDrive strDrive, vbTrue, vbTrue
Echo objWshNetwork.MapNetworkDrive strDrive, strPath
Echo objShell.NameSpace^(strDrive^).Self.Name = strName
Echo End Sub
)
Call "%Temp%\netdrive.vbs"
Del "%Temp%\netdrive.vbs" |
и еще один
Код: @Echo Off
SetLocal
Set UNC=\\10.29.9.200\distr
Set Label=distr
For /F "Tokens=2 Delims==" %%A In ('WMIC path Win32_MappedLogicalDisk WHERE ProviderName^=^'%UNC:\=\\%^' Get Name /Value 2^>nul') Do (
Call Net Use %%A /delete /y 1>nul 2>&1
Net Use * %UNC% 1>nul 2>&1
Reg Add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\%UNC:\=#%" /v _LabelFromReg /d "%Label%" /f 1>nul 2>&1
) |
Помогите сделать батник, в котором подключался бы мой диск авторизуясь сразу же и ему присваивалась бы метка. |
Всего записей: 513 | Зарегистр. 30-08-2012 | Отправлено: 14:22 14-01-2013 | Исправлено: TemaZosin, 14:24 14-01-2013 |
|
) 
