|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Как проверить что локальная учетка существует? |
|
VBS/WSH/JS - [решено] Как проверить что локальная учетка существует?
|
Ветеран Сообщения: 2755 |
Сделал скрипт, который создает локальную учетку админа
Set objNetwork = CreateObject("WScript.Network") strComputer = objNetwork.ComputerName Set colAccounts = GetObject("WinNT://" & strComputer & "") Set objUser = colAccounts.Create("user", "username") objUser.SetPassword "password" objUser.SetInfo Set objGroup = GetObject("WinNT://" & strComputer & "/Администраторы,group") Set objUser = GetObject("WinNT://" & strComputer & "/username,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 |
|
------- Отправлено: 11:40, 15-11-2011 |
Старожил Сообщения: 210
|
Профиль | Отправить PM | Цитировать |
Отправлено: 12:00, 15-11-2011 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 2755
|
Профиль | Сайт | Отправить PM | Цитировать DmitriiV, Спасибо, все работает!
|
------- Отправлено: 15:46, 15-11-2011 | #3 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
CMD/BAT - Как проверить из командого файла что локальная сеть поднята в Windows 7 | usernews7 | Скриптовые языки администрирования Windows | 0 | 08-11-2011 15:20 | |
Разное - Как правильно проверить что с USB | Gik | Материнские платы и память | 12 | 18-03-2011 11:10 | |
[решено] Проверить, существует ли окно с текстом.... | Centrinar | AutoIt | 1 | 02-02-2010 22:30 | |
Отключается локальная учетка администратора | stilgar | Автоматическая установка Windows 2000/XP/2003 | 2 | 25-02-2009 18:12 | |
Сообщение "Указанная локальная группа уже существует" при создании учетной записи | united | Microsoft Windows 2000/XP | 14 | 20-06-2007 19:02 |
|