Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   Как автоматизировать смену пароля во всех учетных записях (http://forum.oszone.net/showthread.php?t=348212)

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

Френк 12-03-2021 17:23 2952404
Здесь есть хорошие специалисты? Кто нибудь осилет мне помочь с такой сложной задачей господа?!

DJ Mogarych 12-03-2021 21:13 2952433
Френк, нет здесь хороших специалистов, успокойтесь.
Тем более, кто по первому свистку бежит ваши хотелки реализовывать.

Iska 12-03-2021 21:18 2952436
Френк, это плохая идея.

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

Френк 13-03-2021 11:15 2952465
Цитата:
Цитата Iska
DJ Mogarych »
Почему это сразу по первому свисту? Я со всем должным уважением ко всем коллегам поднимаю данный вопрос!
И надеюсь услышать решение толковое.

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

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

Iska 13-03-2021 19:27 2952554
Цитата:
Цитата Френк
Единственное не хочу каждый раз нажимать подтверждение на выполнения работы. »
Какое подтверждение?!

Френк 15-03-2021 11:36 2952697
Iska, чтобы не нужно было каждый раз нажимать ОК.
Когда выполняется процесс скрипта вылазии название учетки. жму ок потом вторая учетка вылазиит название жму ок и т.д....
чтобы без уведомлении все ставилось

Френк 15-03-2021 11:51 2952699
Iska, чтобы не нужно было каждый раз нажимать ОК.
Когда выполняется процесс скрипта вылазии название учетки. жму ок потом вторая учетка вылазиит название жму ок и т.д....
чтобы без уведомлении все ставилось

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

Френк 17-03-2021 12:05 2952942
Пожалуй выберу третий вариант:)

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


Время: 05:51.

Время: 05:51.
© OSzone.net 2001-