» Автоматизация администрирования

alecsandrb

Код:
' аналогично можешь создать нужные тебе подпапки внутри уже созданной
' для пользователя папки

rosalin

Можно конечно.
Для одного пользователя с созданием его личной папки и нескольких подпапок
скрипт будет выглядеть так: [more]
' Создание пользовательских папок при логоне пользователя
' раздаются права для доступа к личным папкам пользователей
' принцип: Domain Admins - full,
' User - Full (only on personal folder),
' System - full,


' определение текущего UserName
Set WshShell = CreateObject("Wscript.Shell")
UsersFolderName = WshShell.ExpandEnvironmentStrings("%username%")

' создаем папку пользователя
FolderUser = "\\имя сервера\имя шары\" + UsersFolderName
Set objFld1 = CreateObject("Scripting.FileSystemObject")
If objFld1.FolderExists(FolderUser) Then
Else
Set objFolder1 = objFld1.CreateFolder(FolderUser)
' формируем строку с назначением прав на личную папку
' положи xcacls.exe в папку со скриптом или укажи к нему полный путь в команде
StrCmdRightUsers = "xcacls.exe " + FolderUser + " /g ""DOMAIN ADMINS"":F System:f " + UsersFolderName + ":f /y "
RetVal = WshShell.Run("%COMSPEC% /c " & StrCmdRightUsers, 1, False)
End If

' аналогично можешь создать нужные тебе подпапки внутри уже созданной
' для пользователя папки
' создание папки типа \\Имя сервера\Имя шары\Имя пользователя\Document
FolderUserBase = FolderUser
FolderUser = FolderUserBase + "\" + "Document"
If objFld1.FolderExists(FolderUser) Then
Else
Set objFolder1 = objFld1.CreateFolder(FolderUser)
End If

' создание папки типа \\Имя сервера\Имя шары\Имя пользователя\Document\Private
FolderUser = FolderUser + "\" + "Private"
If objFld1.FolderExists(FolderUser) Then
Else
Set objFolder1 = objFld1.CreateFolder(FolderUser)
End If

' создание папки типа \\Имя сервера\Имя шары\Имя пользователя\Music
FolderUser = FolderUserBase + "\" + "Music"
If objFld1.FolderExists(FolderUser) Then
Else
Set objFolder1 = objFld1.CreateFolder(FolderUser)
End If

[/more]

Права назначаются только на корневую папку, на подпапки теоретически должны наследоваться либо их также можно принудительно назначить как и для корневой папки.

можно ли скриптом добавить в локальную группу АДМИНИСТРАТОРЫ добавить группу пользователей из AD?

GAAlex
Да, только лучше это делать через restricted Groups в GPO

Уважаемые знатоки!
Есть проблема с логин скриптом.
Машины win98.
Как определить членство в группах. ifmember валится с ошибкой OpenProcessToken failed Error 120.

FreemanRU
Не понял. А причем локальная группа АДМИНИСТРАТОРЫ? В GPO нет вообще локальных групп

Подскажите еще такой моментик с помощью скрипта от alecsandrb
создаеться домашняя папка как бы красиввее разместить ссылку на нее что бы пользователь видел ее в проводнике ну и вообще где понадобиться ...

Можно в скрипте..

GAAlex

Цитата:

В GPO нет вообще локальных групп

Да ты чё

1. Заходим в GPO на нужный уровень (OU или весь домен).
2. Запускаем редактор политик (создаем новую или редактируем страрую).
3. После этого идем по дереву: Конфигурация компьютера->Конфигурация Windows->Параметры безопасности->Группы с ограниченным доступом (убил бы переводчиков)
4. Жмем на ветке правой кнопкой мышт->"Добавить группу". Выбираем твою доменную группу.
5. В появившемся диалоговом окне в секцию "Эта группа является членом в" добавляем РУЧКАМИ (не через выбор) "Администраторы" и/или "Administrators".

После этого при применении политики на машины, т.к. отсутвует префикс домена, будет браться ЛОКАЛЬНАЯ группа Администраторы и в неё добавляться твоя доменная группа.

ЗАМЕЧАНИЕ. Доменная группа ДОЛЖНА БЫТЬ глобальной.

Имеются все обновления на окна, причем как на ХР так и на 2000, но не распределены кто есть кто, все в перемешку. Хотелось бы создать папку на диске кудавсе это скопировать не глядя и что бы винда сама обновлялась из этой папки выбираю нужное для своей системы (ХР, 2000) обновление. Как такое можно зделать, с помощью каких программ или настроек? Подскажите пожалуйста.

76626
ИМХО, тебе намного правильней и проще развернуть хотя бы WSUS.

Uriu, Refugee - громадное спасибо, всё работает ))

Увахаемые All

Подскажите как с помошью скрипта подключить в провоник созданные другим скриптом домашнии папки пользователя !!!

Плиз

rosalin
http://forum.ru-board.com/topic.cgi?forum=8&bm=1&topic=13336#1

Привет
если такая тема рассматриваль извините
кто нибудь подскажет как написать такой скриптик или програмку которая выполналась бы во время установки win 2000/xp и давала имена компов по их MACу (может маки и имена оформить ввиде файлика: первое - имя, второе - мак, ну или наоборот, может есть другое решение), ну и вводила в домен


Добавлено:
вопрос снимается
решение нашлось

squid
Ставь RIS - чуствую будет тебе с него счастие или наоборот

После применения xcacls из скрипта (добавления прав на пользователя, xcacls <Folder> /P <user>:F /X), если вызвать окно свойств безопасности каталога - винда пишет "Разрешения на [каталог] неправильно упорядочены, в результате некоторые разрешения могут не действовать. Нажмите ОК, чтобы правильно рассортировать разрешения, [skip]". Действительно, если смотреть по xcacls - добавляемое разрешение становится последним в списке, после упорядочивания - первым (даются полные права на каталог). Собственно вопрос - каким образом разрешения можно упорядочить из командной строки или скрипта?

Master_Alex
рад бы поставить только в даный момент возможности такой нету
летом собираюсь
но пока юзать на том что есть нужно

squid
а как решил проблему?
скриптами парсишь вывод ipconfig?

Teo
нет, я не привязывал MAC
имя компа задаю при инсталяции, пока это устраивает

Добрый день подскажите плиз можно ли с помощью скрипта для Windows Script Host подключится к Базе данных к примеру на MsSql server 2000, если да то как? и где про эттот аспект можно почитать

deRis
Известно где - на майкрософте
http://www.microsoft.com/technet/scriptcenter/scripts/sql/default.mspx

что бы мир делал без добрых людей?
однако...
допустим вот этот код

strDBServerName = "."
strDBName = "Northwind"

Set objSQLServer = CreateObject("SQLDMO.SQLServer")
objSQLServer.LoginSecure = True
objSQLServer.Connect strDBServerName

Set objDB = objSQLServer.Databases(strDBName)
Set colTables = objDB.Tables
For Each objTable In colTables
WScript.Echo "Table Name: " & objTable.Name
Next



Я приношу извинения за собственную тупость и скудоумие, не могли бывы эээ по шагам обьяснить как сделать этот скрипт лог_он т. е чтобы он выполнялся при лог_оф, лог_он пользователя

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

Что бы элементов было несколько и можно былобы задовать их размеры...

Добавлено:
Помогите плиз!!!

deRis
Запустите MMC, вызовите справку, в поле "поиск" набрать "сценарий". Там все есть.

Как ДОБАВИТЬ к переменной PATH путь из скрипта, чтоб он запомнился?

Такой вопрос, WSH vb:
Присваиваем значение переменной:
RootFolder = "c:\123\"
Создаём папку
FSO.CreateFolder RootFolder & ThisYear
Как теперь новой переменной RootFolderY присвоить значение - равняющееся этой новосозданной папке?
такой вид
RootFolderY = RootFolder & ThisYear
не воспринимает

Master_Alex

Цитата:

не воспринимает

Что значит не воспринимает?
Попробуй где-нить в начале написать

Код:
RootFolderY=""

или
RootFolderY = CStr(RootFolderY) & CStr(ThisYear)

Не воспринимается - имел ввиду что папка из переменной RootFolderY используеться для сохранения файла (эта папка создаёться c:\123\2006), но файлы в папку 2006 не складываються, а складываються в c:\123\ с началом файла 2006...

Добавлено:
urel
не помогло

Master_Alex
А если

Код:
RootFolderY = RootFolder & ThisYear & "\"