Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Скрипт создания пользователя и группы долго выполняется.

Ответить
Настройки темы
VBS/WSH/JS - Скрипт создания пользователя и группы долго выполняется.

Аватара для voler

Ветеран


Сообщения: 907
Благодарности: 36

Профиль | Отправить PM | Цитировать

Добрый день.

Код: Выделить весь код
On Error Resume Next

strComputer = "."
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("group", "ultravnc")
objUser.SetInfo

On Error Resume Next

Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName

Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "user")
objUser.SetPassword ""
objUser.SetInfo

Set objGroup = GetObject("WinNT://" & strComputer & "/Администраторы,group")
Set objUser = GetObject("WinNT://" & strComputer & "/LocalAdmin,user")
objGroup.Add(objUser.ADsPath)

Set objGroup = GetObject("WinNT://" & strComputer & "/ultravnc,group")
Set objUser = GetObject("WinNT://" & strComputer & "/LocalAdmin,user")
objGroup.Add(objUser.ADsPath)

Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
UserFlags = objUser.Get("UserFlags")
objPasswordExpirationFlag = UserFlags OR ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordExpirationFlag
objUser.SetInfo
Подскажите где ошибка?

-------
Linux, это плацдарм для изучения своих возможностей.

Отправлено: 09:55, 17-04-2013

 

Аватара для voler

Ветеран


Сообщения: 907
Благодарности: 36

Профиль | Отправить PM | Цитировать

Проблема актуальна.

-------
Linux, это плацдарм для изучения своих возможностей.

Последний раз редактировалось voler, 17-04-2013 в 15:50.

Отправлено: 11:05, 17-04-2013 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

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



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Скрипт создания пользователя и группы долго выполняется.

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
VBS/WSH/JS - [решено] Нужен скрипт создания общей папки для текущего пользователя в домене Sergey700 Скриптовые языки администрирования Windows 7 02-12-2022 16:15
PowerShell - Не переходит к следующей команде, если предыдущая долго выполняется snake-as Скриптовые языки администрирования Windows 4 14-12-2011 11:33
VBS/WSH/JS - [решено] Не работает скрипт для создания группы каталогов в меню пуск Ins_16 Скриптовые языки администрирования Windows 5 24-04-2011 23:26
Скрипт выполняется только при запуске вручную! FATruden Программирование в *nix 3 26-07-2010 13:32
не выполняется скрипт загрузки Tonny_Bennet Microsoft Windows NT/2000/2003 11 15-07-2008 09:45


« Предыдущая тема | Следующая тема »


 
Переход