[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