Команды для сценария входа

HLT · Отправлено: **15:56, 19-11-2007** | #11

Сетевые диски не переименовываются
Если Вам надо чтобы оно называлось "папка обмена" - поменяйте имя сетевого ресурса.

Например, если сетевой ресурс называется ОБЩАЯ_ПАПКА на сервере SERVER и у пользователей подключен на диск G:, то при заходе в "мой компьютер" данный ресурс будет отображаться как "ОБЩАЯ_ПАПКА на SERVER (G

"

Цитата ForGroin:

Немного не понял что вы этим имели ввиду "Список команд: см. приложение." »

В сообщении timon4ik есть приложенный файл. Если его скачать и распаковать - будет справочник по командам, датированный 2001 годом. Правда, у меня он почему-то ругается на скрипты и не открывается полностью. Наверно из-за 7го IE и повышенных настроек безопасности.
По ссылке из моего предыдущего сообщения можно скачать такой же справочник, но более новый (2005го года). У меня открывается и работает без проблем.

ForGroin · Отправлено: **16:02, 19-11-2007** | #12

Спасибо ссылку снизу не заметил...

Но ведь локально он дает права сменить метку тома, независимо от того сетевой это диск либо локальный.

dimich22 · Отправлено: **16:21, 19-11-2007** | #13

По-моему с помощью командной строки решения нет. Но можно воспользоваться, например, vbscript.
Тогда команда будет выглядеть так:

Код:

MapDrv "T:", FileSrv & "\distr", "Дистрибутивы" 
MapDrv "T:\", FileSrv & "\distr", "Дистрибутивы"

Вторая строка необязательна для Windows XP, но если клиентские системы Windows 2000, то без нее не будет корректно отображаться название "Дистрибутивы".

ForGroin · Отправлено: **16:38, 19-11-2007** | #14

Я в vbscript не силён. Знать бы еще куда его прописывать

HLT · Отправлено: **16:55, 19-11-2007** | #15

Cкрипт в текстовый файл с расширением .vbs, запускать через команду cscript имя_скрипта.vbs
Я в скриптах тоже не силен, так что можете попросить dimich22 написать Вам полный скрипт

dimich22 · Отправлено: **17:23, 19-11-2007** | #16

Ну вот так приблизительно:

Код:

Dim objFileSys
Dim objWshNetwork
Dim objWshShell
Dim strLogonPath 

Const FileSrv = "\\server_name" 

Set objFileSys    = CreateObject( "Scripting.FileSystemObject" )
Set objWshNetwork = CreateObject( "WScript.Network" )
Set objWshShell   = CreateObject( "WScript.Shell" )

MapDrv "T:", FileSrv & "\distr", "Дистрибутивы" 
MapDrv "T:\", FileSrv & "\distr", "Дистрибутивы" 


Function MapDrv(DrvLet, UNCPath, DrvName)  
  
    Dim objFSO, oShell           
  
    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set objoShell = CreateObject("Shell.Application") 
 
    On Error Resume Next  
 
    If objFSO.DriveExists(DrvLet) Then  
        objWshNetwork.RemoveNetworkDrive DrvLet, true, true 
    End If 
 
    objWshNetwork.MapNetworkDrive DrvLet, UNCPath 
    objoShell.NameSpace(DrvLet).Self.Name = DrvName 
      
End Function

Файл с расширением vbs можно просто поместить в автозагрузку, он и так подхватится.