[artem_]

Можно вот так попробовать

Код:

Option Explicit
Dim objComputer ' Экземпляр объекта Computer
Dim objUser ' Экземпляр объекта User
Dim strComputer ' Имя компьютера
Dim strUser ' Имя создаваемого пользователя
Dim strpass ' пароль пользователя
Dim objSysInfo 'массив для хранения свойств компьютера, считанных из AD
Dim arrFULLNAME 'служебный массив
Dim arrCN 'служебный массив

Set objSysInfo = CreateObject("ADSystemInfo")
strComputer = objSysInfo.ComputerName
arrFULLNAME = Split(strComputer, ",")
arrCN = Split(arrFULLNAME(0), "=")

strComputer=arrCN(1)

strUser = "admin"
strpass = "654321"

Set objUser = GetObject("WinNT://" & strComputer & "/" & strUser)
objUser.Description = "Пароль изменен при помощи скрипта"
objUser.SetPassword strpass
objUser.SetInfo