[Iska]

Терентий, опробуйте скрипт подобного вида на той машине, где содержатся локальные учётные записи пользователей:

Код:

Option Explicit

Dim objIADsContainer
Dim objIADsUser

Set objIADsContainer = GetObject("WinNT://.,computer")

objIADsContainer.Filter = Array("user")

For Each objIADsUser In objIADsContainer
	WScript.Echo objIADsUser.Name
	
	Select Case objIADsUser.Name
		Case "Администратор", "Гость", "Иванов", "Петров" , "Сидоров"
			'Nothing to do
		Case Else
			objIADsUser.Put "PasswordExpired", 1
			objIADsUser.SetInfo
	End Select
Next

Set objIADsContainer = Nothing

WScript.Quit 0

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

Данным же кодом задаётся данное требование всем прочим, не перечисленным выше, учётным записям. Для начала Вы можете просто закомментировать выделенный красным цветом код и, выполнив скрипт под «cscript.exe», посмотреть, какие вообще учётные записи будут обрабатываться, и, на основании увиденного, принимать решение.