VBS/WSH/JS - Как автоматизировать смену пароля во всех учетных записях

[Френк]

Добрый день!

Есть необходимость поменять установленные пароли во всех учетных записях! Опреационной системы windows.

В офисе есть порядка 28 пк. Сложность возникает в том, что имена учетных записей неизвестны. Там может быть 2 или несколько учетных записей.

Хочу автоматизировать данное действие посредством какого-инбудь скрипта.

Скрипт должен сделать слеюущие действия:

1. Определить сколько учетных записей есть на ПК (даже если каие-то и скрытые)

2. Установить новый идентичный пароль для всех пользователей : 12345

Кто что может посоветовать уважаемые коллеги?!

[Френк]

Здесь есть хорошие специалисты? Кто нибудь осилет мне помочь с такой сложной задачей господа?!

[DJ Mogarych]

Френк, нет здесь хороших специалистов, успокойтесь.

Тем более, кто по первому свистку бежит ваши хотелки реализовывать.

[Iska]

Френк, это плохая идея.



На WSH:



Скрытый текст

[spoiler]Код:

[/spoiler]

Код: Выделить всё

Option Explicit
Dim strComputerName
Dim objIADsContainer
Dim objIADsUser
strComputerName = WScript.CreateObject("WScript.Network").ComputerName
Set objIADsContainer = GetObject("WinNT://" & strComputerName & ",computer")
objIADsContainer.Filter = Array("user")
For Each objIADsUser In objIADsContainer
	WScript.Echo objIADsUser.Name
	objIADsUser.SetPassword "12345"
	objIADsUser.SetInfo
Next
Set objIADsContainer = Nothing
WScript.Quit 0

[Френк]

Цитата Iska:



DJ Mogarych

VBS/WSH/JS - Как автоматизировать смену пароля во всех учетных записях

Почему это сразу по первому свисту? Я со всем должным уважением ко всем коллегам поднимаю данный вопрос!

И надеюсь услышать решение толковое.



Iska, благодарю Вас!!!

Ну кто же если не вы....

Сейчас пойду тестировать данный Вами написанный скрипт и сразу же отпишусь!



Iska , тебе респект!

Я протестировал все работает, как часы!

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

Можно их убрать убрать как то?

[Iska]

Цитата Френк:



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

VBS/WSH/JS - Как автоматизировать смену пароля во всех учетных записях

Какое подтверждение?!

[Френк]

Iska, чтобы не нужно было каждый раз нажимать ОК.

Когда выполняется процесс скрипта вылазии название учетки. жму ок потом вторая учетка вылазиит название жму ок и т.д....

чтобы без уведомлении все ставилось

[Френк]

Iska, чтобы не нужно было каждый раз нажимать ОК.

Когда выполняется процесс скрипта вылазии название учетки. жму ок потом вторая учетка вылазиит название жму ок и т.д....

чтобы без уведомлении все ставилось

[Френк]

Цитата Френк:



Iska, чтобы не нужно было каждый раз нажимать ОК.

VBS/WSH/JS - Как автоматизировать смену пароля во всех учетных записях

Либо исполняйте под консольной версией — cscript.exe (вместо умолчальной wscript.exe), либо закомментируйте строку:



Код:

Код: Выделить всё

	WScript.Echo objIADsUser.Name

апострофом:



Код:

Код: Выделить всё

	'WScript.Echo objIADsUser.Name

Либо вообще удалите .

[Френк]

Пожалуй выберу третий вариант



Вопрос решен.

Спасибо Iska.