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

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

Ответить
Настройки темы
VBS/WSH/JS - [решено] Как проверить что локальная учетка существует?
FRZ FRZ вне форума

Аватара для FRZ

Ветеран


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


Конфигурация

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


Сделал скрипт, который создает локальную учетку админа
Код: Выделить весь код
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
И теперь у меня каждый раз при запуске выдается окно что учетка уже существует. Вопрос: как вставить проверку что учетка существует и не пытаться создавать заново?

-------
Не все то windows, что висит....

Пока ты продолжаешь делать то, что делаешь, ты продолжаешь получать то, что получаешь...


Отправлено: 11:40, 15-11-2011

 

Старожил


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

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


Пример самого простого способа:
Код: Выделить весь код
On Error Resume Next
Set objUser = GetObject("WinNT://" & strComputer & "/username,user")
If Err.Number <> 0 Then
    Err.Clear
    'WScript.Echo "Учётка не существует. Надо создавать."
    'дальнейший код
End If
On Error GoTo 0
Это сообщение посчитали полезным следующие участники:

Отправлено: 12:00, 15-11-2011 | #2



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

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

FRZ FRZ вне форума Автор темы

Аватара для FRZ

Ветеран


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

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


DmitriiV, Спасибо, все работает!

-------
Не все то windows, что висит....

Пока ты продолжаешь делать то, что делаешь, ты продолжаешь получать то, что получаешь...


Отправлено: 15:46, 15-11-2011 | #3



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

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
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




 
Переход