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

[Френк]

Добрый день!
Есть необходимость поменять установленные пароли во всех учетных записях! Опреационной системы windows.
В офисе есть порядка 28 пк. Сложность возникает в том, что имена учетных записей неизвестны. Там может быть 2 или несколько учетных записей.
Хочу автоматизировать данное действие посредством какого-инбудь скрипта.
Скрипт должен сделать слеюущие действия:
1. Определить сколько учетных записей есть на ПК (даже если каие-то и скрытые)
2. Установить новый идентичный пароль для всех пользователей : 12345
Кто что может посоветовать уважаемые коллеги?!

[Френк]

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

[DJ Mogarych]

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

[Iska]

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

На WSH:
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

[Френк]

DJ Mogarych »
Почему это сразу по первому свисту? Я со всем должным уважением ко всем коллегам поднимаю данный вопрос!
И надеюсь услышать решение толковое.

Iska, благодарю Вас!!!
Ну кто же если не вы....
Сейчас пойду тестировать данный Вами написанный скрипт и сразу же отпишусь!

Iska , тебе респект!
Я протестировал все работает, как часы!:)
Единственное не хочу каждый раз нажимать подтверждение на выполнения работы.
Можно их убрать убрать как то?

[Iska]

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

[Френк]

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

[Френк]

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

[Iska]

Iska, чтобы не нужно было каждый раз нажимать ОК. »
Либо исполняйте под консольной версией — cscript.exe (вместо умолчальной wscript.exe), либо закомментируйте строку:
WScript.Echo objIADsUser.Name
апострофом:
'WScript.Echo objIADsUser.Name
Либо вообще удалите :).

[Френк]

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

Вопрос решен.
Спасибо Iska.