VBScript, чтобы иметь локальный пароль для изменения имени пользователя при следующем входе в систему?

Question

Я пытаюсь запустить скрипт для локального пользователя во время входа в систему, чтобы иметь учетную запись пользователя, чтобы они меняли свой пароль после того, как они вошли в систему, а затем снова заходят. У меня около 40 разных пользователей, у которых есть собственные локальные интернет-соединение, поэтому у меня нет активного каталога для этих компьютеров, где я могу легко установить это. Я хочу, чтобы иметь возможность выталкивать скрипт через удаленный доступ, который будет преформировать это действие (необходимо сбросить пароль).

имя учетной записи пользователя, который я пытаюсь запустить сценарий называется: Ual-Lab-Tech Сценарий Я бегу это:

' Bind to local user object. 
Set objUser = GetObject("Ual-Lab-Tech") 

' Require password change at next logon. 
objUser.PasswordExpired = 1 
objUser.SetInfo 

Однако, когда я запускаю скрипт я получаю ошибка:

Script: C:\\Users\UAL-Lab-Tech\Desktop\change password at logon.vbs 
Line: 2 
Char: 1 
Error: Invalid syntax 
Code: 800401E4 
Source (null) 

Что я делаю неправильно?

Answer 1

Вы найдете рабочий образец here:

strComputer = "atl-win2k-01" 
Set objUser = GetObject("WinNT://" & strComputer & "/kenmyer ") 
objUser.Put "PasswordExpired", 1 
objUser.SetInfo 

Answer 2

Образец выше для локальных учетных записей. Для учетной записи AD вы должны использовать ADSI, как это:

Set objUser = GetObject ("LDAP://CN=username,CN=Users,DC=domain,DC=local") 
objUser.Put "PasswordExpired", 1 
objUser.SetInfo