Страницы: 1
RSS
Смена пароля текущей учетной записи пользователя Windows, Поучаем имя компа, имя пользователя, меняем пароль
 
Код
Dim WshNetwork As Object, sCompName As String, oUser As Object, sName
Set WshNetwork = CreateObject("WScript.Network")

sCompName = WshNetwork.ComputerName  'получаем имя компа

sName = WshNetwork.UserName          'получаем имя текущего пользователя

On Error Resume Next

'sName - имя пользователя на компьюторе
Set oUser = GetObject("WinNT://" & sCompName & "/" & sName & ",user")

'новый пароль
'oUser.SetPassword "2584"

'или такой синтаксис
oUser.SetPassword ("2584")

'ввод нового пароля
oUser.SetInfo

Добрый день! Этот код пробовал на четырех компьютерах, на двух работает, на двух выдает ошибку в строке новый пароль "oUser.SetPassword "2584" ". На всех компьютерах Windows 7, какая может быть причина, Спасибо.
 
Вопрос конечно не про Excel, но попробуйте
Код
Set oUser = GetObject("WinNT://" & sCompName & "/" & sName)
,user там лишнее
По вопросам из тем форума, личку не читаю.
 
Ошибка такая же:  "Отказано в доступе".  
 
Код
Set oUser = WshNetwork.GetObject("WinNT://" & sCompName & "/" & sName)
Согласие есть продукт при полном непротивлении сторон
 
Выдает ошибку по этой строке.
 
Цитата
Константин написал:
Выдает ошибку по этой строке.
и это правильно, так как WshNetwork тут не при делах.
Такой простой пароль может быть?
По вопросам из тем форума, личку не читаю.
 
Цитата
БМВ написал: WshNetwork тут не при делах
Точно, я затупил
Согласие есть продукт при полном непротивлении сторон
 
проверить с локальной я не могу сейчас, но попробуйте
oUser.ChangePassword PassOld, "2584"

Дело в том что смена и установка -это разные процессы установить может админ, а поменять пользователь.
По вопросам из тем форума, личку не читаю.
 
Дает ошибку: "Сетевой пароль указан неверно"
 
PassOld - на текущий заменили надеюсь.
По вопросам из тем форума, личку не читаю.
 
PassOld на текущий заменил, пароль меняется.

Большое спасибо!
Страницы: 1
Наверх