it-ep logo
На главную страницуmail to site administrationДобавить страницу в Избранное
Вход | Регистрация
Вход
 
 
Напомнить логин / пароль Отмена
 Главнaя»База знаний»GPO, vbscript

Последние статьи

../../../knowledge_base/gpo_vbscript/connect_share_on_lonon/Загрузка...

Популярные статьи

Подключение сетевого диска при входе в систему

В организации сотрудники пользуются общими сетевыми ресурсами, удобно когда эти ресурсы подключаются автоматически при входе в систему на любом компьютере в сети. Также можно разграничить подключение сетевых дисков по группам пользователей.
Задача: организовать подключение сетевого диска при входе в систему для определённой группы пользователей.

Решение: открываем редактор групповых политик (GPO) домена: Конфигурация пользователя -> Политики -> Конфигурация Windows -> Сценарии (вход/выход из системы)

open GPO editor

Нам нужен параметр "вход в систему", открываем его

select logon skript

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

Листинг скрипта:

  1. Option Explicit
  2. On Error Resume Next
  3. Dim WshShell, WshNetwork
  4. Set WshShell = WScript.CreateObject("WScript.Shell")
  5.  
  6. MapDrv "O:", "\\192.168.0.100\obmen"
  7.  
  8. Function MapDrv(DrvLet, UNCPath)
  9.     Dim WshNetwork         ' Object variable
  10.     Dim Msg
  11.     Set WshNetwork = WScript.CreateObject("WScript.Network")
  12.     On Error Resume Next
  13.     WshNetwork.RemoveNetworkDrive DrvLet
  14.     WshNetwork.MapNetworkDrive DrvLet, UNCPath
  15.      Select Case Err.Number
  16.         Case 0            ' No error
  17.         Case -2147023694
  18.             WshNetwork.RemoveNetworkDrive DrvLet
  19.             WshNetwork.MapNetworkDrive DrvLet, UNCPath
  20.         Case -2147024811
  21.             WshNetwork.RemoveNetworkDrive DrvLet
  22.             WshNetwork.MapNetworkDrive DrvLet, UNCPath
  23.         Case Else
  24.             Msg = "Mapping network drive error: " & _  
  25.                    CStr(Err.Number) & " 0x" & Hex(Err.Number) & vbCrLf & _
  26.                   "Error description: " & Err.Description & vbCrLf
  27.             Msg = Msg & "Domain: " & WshNetwork.UserDomain & vbCrLf
  28.             Msg = Msg & "Computer Name: " & WshNetwork.ComputerName & vbCrLf
  29.             Msg = Msg & "User Name: " & WshNetwork.UserName & vbCrLf & vbCrLf
  30.             Msg = Msg & "Device name: " & DrvLet & vbCrLf
  31.             Msg = Msg & "Map path: " & UNCPath  
  32.             WshShell.LogEvent 1, Msg, "SRV"
  33.     End Select
  34. End Function

Подключение сетевого диска происходит в строке 6 скрипта. В примере шара \\192.168.0.100\obmen подключается как сетевой диск O:

Сам скрипт можно скачать ниже (zip архив).

Вам остаётся только внести в него изменения - прописать свои сетевые ресурсы.

В статье описано подключение сетевого диска при входе в систему средствами GPO и VBscript.

Облако тегов GPO VBScript


Комментарии



Печать страницы: Подключение сетевого диска при входе в систему Добавить +1 и поделиться в Google+: Подключение сетевого диска при входе в систему Добавить в Яндекс.Закладки: Подключение сетевого диска при входе в систему Поделиться в Facebook: Подключение сетевого диска при входе в систему Поделиться В Контакте: Подключение сетевого диска при входе в систему Поделиться в Одноклассниках: Подключение сетевого диска при входе в систему Поделиться в Твиттере: Подключение сетевого диска при входе в систему