Показать сообщение отдельно
Старый 21.05.2008, 09:30   #5
dmitry_a
Постоялец
 
Пол:Мужской
Регистрация: 11.04.2007
Сообщений: 284
Репутация: 85
По умолчанию Ответ: Как раздать шару через AD

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

Код:
On error resume Next

Set objNetwork = CreateObject("Wscript.Network")
strServer = "server"

userstring = objNetwork.UserName

Set objUser = GetObject("WinNT://"& strServer & "/" & userstring )

For Each strGroup in objUser.Groups
     strGroupName = strgroup.name
    
    Select Case strGroupName
        Case "ou1"
                objNetwork.MapNetworkDrive "W:", "\\server\ou1"
                objNetwork.AddWindowsPrinterConnection "\\server\printer1"
                objNetwork.SetDefaultPrinter "\\server\printer1"
        
        Case "Domain Users"
                objNetwork.MapNetworkDrive "X:", "\\server\free"
        End Select
Next
dmitry_a вне форума
 
Ответить с цитированием Вверх
 
Время генерации страницы 0.08274 секунды с 9 запросами