![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Добавление учетки в группу Администратор |
|
VBS/WSH/JS - [решено] Добавление учетки в группу Администратор
|
Пользователь Сообщения: 67 |
Помогите написать скрипт для добавления учоткие в группу. только есть 1 нюанс, на тачке куда добавляется учетка нет прав. Может кто поможет обойти.
'Define here a group you want to add to Local Administrators strGroupDOMAIN="HQ" 'Domain name where Group is (NTLM domain name) strGroupName="Account Operators Group" 'Group sAMAccountName '**************************************************************************** On Error Resume Next Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set colGroups = objWMIService.ExecQuery("Select * from Win32_Group Where LocalAccount=True AND SID='S-1-5-32-544'") For Each objGroup in colGroups strCompName = objGroup.Domain strAdminGroupName = objGroup.Name Next Set objAdminGroup = GetObject("WinNT://" & strCompName & "/" & strAdminGroupName & ",group") Set objGroupToAdd = GetObject("WinNT://" & strGroupDOMAIN & "/" & strGroupName &",group") objAdminGroup.Add(objGroupToAdd.ADsPath) Вот этот отрабатывает. Но только если есть права. Может поможет. Заранее спасибо. |
|
Отправлено: 11:56, 15-06-2009 |
Железных Дел Мастер Сообщения: 24786
|
Профиль | Сайт | Отправить PM | Цитировать Цитата Lesta:
|
|
------- Отправлено: 12:01, 15-06-2009 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
[решено] Добавление пользователей АД в определённую группу. | exo | Microsoft Windows NT/2000/2003 | 17 | 08-08-2012 21:14 | |
Добавление доменной группы в группу локальных администраторов | gadkin | Microsoft Windows NT/2000/2003 | 18 | 12-10-2010 11:47 | |
Администратор и пользователь из группы Администратор | exo | Microsoft Windows NT/2000/2003 | 10 | 04-12-2009 13:20 | |
добавление пользователей в группу терминальных пользователей | sususa | Microsoft Windows NT/2000/2003 | 18 | 04-07-2007 17:59 | |
Создание пользователя в АД+авто добавление его в группу | loger11 | Microsoft Windows NT/2000/2003 | 5 | 19-04-2007 05:21 |
|