Компьютерный форум NoWa.cc
Правила Форума
редакция от 29.01.2013
Портал .::2Baksa.Net::. Трекер BRODIM.COM Фильмы HD Онлайн Форум вебкам моделей
Вернуться   Компьютерный форум NoWa.cc > Операционные системы > Microsoft Windows

Уважаемые пользователи nowa.cc и 2baksa.net. У нас сложилось тяжелое финансовое положение. Мы работаем для вас вот уже более 12 лет
и теперь вынуждены просить о помощи. Окажите посильную поддержку проектам. Мы очень надеемся на вас. Реквизиты для переводов ниже.
Webmoney Webmoney Z826074280762 Webmoney R087294265364 Webmoney U051530505194 Webmoney E804621616710
PayPal E-mail для связи / to Contact E-mail для связи по вопросу помощи / to Contact : E-mail для связи / to Contact
Кошелек для вашей помощи Yandex 410013204813773
Yandex Спасибо за поддержку!

Российский интернет-шлюз: контроль трафика, DLP, антивирус, fail2ban, прокси-сервер, шифрование данных, https-фильтрация. Сертификат ФСТЭК

загрузка...
Ответ
 
Опции темы Language
Старый 22.12.2007, 10:00   #16
dmitry_a
Постоялец
 
Пол:Мужской
Регистрация: 11.04.2007
Сообщений: 284
Репутация: 85
По умолчанию Ответ: Win2003 server + AD + Terminal

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

Добавлено через 8 минут
Цитата:
Сообщение от proshka Посмотреть сообщение
мужики памагыте, как в скрите при загрузке юзера прописать если юзер относится к определенной группе то подключать один сетевой диск, если к другой, то другой сетефой диск...???

такой ответ подойдет (VBScript)
Код:
 Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")

strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)

For Each strGroup in objUser.MemberOf
    strGroupPath = "LDAP://" & strGroup
    Set objGroup = GetObject(strGroupPath)
    strGroupName = objGroup.CN

    Select Case strGroupName
        Case "HR"
            objNetwork.MapNetworkDrive "K:", "\\server1\HR"
        
        Case "Accounting_Tools"
        	objNetwork.MapNetworkDrive "N:", "\\server4\accounting_tools"       
        
    End Select
Next

Последний раз редактировалось dmitry_a; 22.12.2007 в 10:08.. Причина: Добавлено сообщение
dmitry_a вне форума
 
Ответить с цитированием Вверх
Надежный китайский посредник Taobao.com


Реклама: бирка 220 на розеткуРекомендуем компанию KNSneva.ru - моноблоки Lenovo купить - скидки для корпоративных клиентов в Санкт-Петербурге!купить участок новорижское шоссе недорогосекции для хранения вещейтолстовка волейбол купить


Старый 22.12.2007, 11:53   #17
LelikOFF
Неактивный пользователь
 
Пол:Мужской
Регистрация: 22.04.2005
Адрес: г.Рыбинск, Ярославская область
Сообщений: 109
Репутация: 29
По умолчанию Ответ: Win2003 server + AD + Terminal

Цитата:
Сообщение от proshka Посмотреть сообщение
мужики памагыте, как в скрите при загрузке юзера прописать если юзер относится к определенной группе то подключать один сетевой диск, если к другой, то другой сетефой диск...???

Делал такую фигную, если подождешь до завтра - скину.
надо описалово найти к ней - писать заново не охота.
LelikOFF вне форума
 
Ответить с цитированием Вверх
Старый 23.12.2007, 13:40   #18
LelikOFF
Неактивный пользователь
 
Пол:Мужской
Регистрация: 22.04.2005
Адрес: г.Рыбинск, Ярославская область
Сообщений: 109
Репутация: 29
По умолчанию Ответ: Win2003 server + AD + Terminal

В доменной учетной записи добавляем группы в которые нужны для пользователя.
В самой группе в поле заметки пишем букву диска и сетевой путь к папке через ~ типа ~H:~\\server\FolderH~

а далее используем скрипт для пользователя.

Код:
  On Error Resume Next
  Dim WshNetwork, sUser, cInitial, startTime, oDrives
  Dim MyString, MyArray


  sPDC = "Rybinsk"
  strFileNameStat" = \\geg\all\statgina.txt"

  Set WshNetwork = CreateObject("WScript.Network")
  Set WshShell = CreateObject("WScript.Shell")
  Set oDrives = WshNetwork.EnumNetworkDrives

  sUser = WshNetwork.UserName
  startTime = Now

  Do While sUser = ""
    If DateDiff("s", startTime, Now) > 30 Then WScript.Quit
    WScript.Sleep 100
    sUser = WshNetwork.UserName
  Loop

  Set adsRootDSE = GetObject("LDAP://RootDSE")
  strDomainDN = adsRootDSE.Get("defaultNamingContext")

  ' Удаляем имеющиеся диски
  For i = 0 to oDrives.Count - 1 Step 2
    WshNetwork.RemoveNetworkDrive (oDrives.Item(i))
  Next
  
  ' Данные о пользователях
  Set oUserAcct = GetObject("LDAP://CN=" & sUser & ",CN=Users," & strDomainDN)
  Set oGroups = oUserAcct.groups

  FullName = oUserAcct.FullName               'Полное имя пользователя домена
  HomeDirectory = oUserAcct.HomeDirectory     'местоположение домашней папки
  Set oUserAcct = Nothing

  ' делаем диски
  For Each oGrp In oGroups
    If Not IsEmpty(oGrp.info) Then  ' если примечание не пустое то обрабатываем его
      MyArray = Split(oGrp.info, "~", -1, 1)
      WshNetwork.MapNetworkDrive MyArray(1), MyArray(2)
    End If
  Next

  ' Мапируем диск L на домашний каталог - можно на другой
  If Not IsEmpty(HomeDirectory) Then
    WshNetwork.MapNetworkDrive "L:", HomeDirectory
  Else
    WScript.Echo "У вас отсутствует домашний каталог"
  End If

  ' Записываем когда и кто с какой машины залогинился
  Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
  If (oFSO.FileExists(strFileNameStat)) Then
    Set Report = oFSO.OpenTextFile(strFileNameStat, 8, 0)
  Else
    Set Report = oFSO.CreateTextFile(strFileNameStat, True, False)
    Report.WriteLine "Date;Time;userName;ComputerName"
  End If
  
  StrLine = Mid(Date,1,Len(Date)) + ";" + Mid(Time,1,Len(time)) + ";" + WshNetwork.UserName + ";" + WshNetwork.ComputerName

  Report.WriteLine strLine
  Report.Close

  WScript.Echo "Добрый день " & FullName
LelikOFF вне форума
 
Ответить с цитированием Вверх
Старый 23.12.2007, 14:37   #19
proshka
Пользователь
 
Пол:Мужской
Регистрация: 31.08.2007
Сообщений: 181
Репутация: 20
По умолчанию Ответ: Win2003 server + AD + Terminal

dmitry_a,
LelikOFF,
спасибо мужики, попробую.

Добавлено через 2 минуты
Цитата:
Сообщение от axlwor Посмотреть сообщение
контроллер домена отключает кэш на запись

стало работать, но галка пропадает после презагрузке...

Последний раз редактировалось proshka; 23.12.2007 в 14:40.. Причина: Добавлено сообщение
proshka вне форума
 
Ответить с цитированием Вверх
Ответ
 Уважаемые пользователи портала 2BakSa.NeT и форума NoWa.cc !

  Рады Вам сообщить, что у нас открылся Torrent трекер >> BRODIM.COM

  Приглашаем вас принять участие в обмене полезной информацией,

  и ждем от вас поддержки в создании новых раздач.

Опции темы

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Windows Server 2003 Terminal Server Всё-ли Правильно ??? Death Moroz Microsoft Windows 9 23.06.2011 19:42
Проблемы Активации Windows Server 2003 Terminal Server Licensing Оберон Windows 200x Server 161 27.10.2010 19:48
Win2003 enterprise server R2 - terminal server Хмель Windows 200x Server 12 16.04.2009 14:34
Win2003 Terminal Services arseniyah Microsoft Windows 1 27.12.2007 18:35

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Текущее время: 09:00. Часовой пояс GMT +3.


Rambler's Top100
Copyright ©2004 - 2018 2Baksa.Net

Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc. Перевод: zCarot
Время генерации страницы 0.13048 секунды с 10 запросами