Код |
---|
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, какая может быть причина, Спасибо.