понедельник, 3 марта 2008 г.

Скрипт для подключения сетевых дисков

Скрипт для подключения сетевых дисков в ОС Windows

Практически в любой организации есть сервер на котором рассшаренна какая-то папка и в ней валяется много-много не нужного мусора (с точки зрения администратора). На самом деле в этой папке очень важные для кого-то данные. Для того, чтобы при входе юзера в систему, автоматически подключался этот сетевой диск, необходимо в групповую политику домена добавить следующий скрипт:




On Error Resume Next

Dim objNetwork, strDrive, objShell, objUNC
Dim strRemotePath, strDriveLetter, strNewName

strDriveLetter = "W:"
strRemotePath = "\\server\work"
strNewName = "work"
mapped = false

Set objNetwork = CreateObject("WScript.Network")
Set oDrives=objNetwork.EnumNetworkDrives

For i = 0 to oDrives.Count - 1 Step 2
If oDrives.Item(i)=strDriveLetter Then mapped = true

Next
If mapped Then objNetwork.RemoveNetworkDrive strDriveLetter
If mapped Then objNetwork.MapNetworkDrive strDriveLetter, strRemotePath
If Not mapped Then objNetwork.MapNetworkDrive strDriveLetter, strRemotePath

Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewName

WScript.Quit



Сначала идет проверка, если данный диск подключен, идет отключение, потом подключение.

_____________________________________________

Еще один скрипт, который облегчаеть жизнь админу:
Скрипт подключает персональную папку каждого пользователя домена. Заранее ничего создавать не нужно, должна быть только рассшаренная папка и пользователи домена, должны иметь права на запись в эту папку. После того, как вы создаете нового пользователя домена и он регистрируется в сети (т.е. логинится под своим именем) у него автоматом подключается персональный сетевой диск. Доступ к нему имеет, только он, ну и админ конечно ;)


Option Explicit
Dim objNetwork
Dim strDriveLetter, strRemotePath, strUserName
strDriveLetter = "U:"
strRemotePath = "\\server\users"

Set objNetwork = WScript.CreateObject("WScript.Network")

strUserName = objNetwork.UserName
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath _
& "\" & strUserName

'WScript.Echo " Launch Explorer, check: "& strDriveLetter
WScript.Quit



Оба скрипта нужно скопировать в блокнот, сохранить в расширением *.vbs и запускать логон скриптом в групповых политиках. Т.е. когда юзер логинится, выполняются данные скрипты.


©перто ©нета...... вроде отсюда

3 комментария:

  1. Второй скрипт не создаёт папку на сервере. Работает только с уже созданной папкой.

    ОтветитьУдалить
  2. Спасибо!

    А сделать чтобы с помощью этого скрипта монтировалось несколько сетевых дисков?

    Спасибо!

    ОтветитьУдалить
  3. Огромное спасибо за Ваш скрипт!, очень пригодился!!!

    ОтветитьУдалить