var data = new Date();
var DigitPwd = 3.14*data.getYear()*data.getMonth()*data.getDay();
var Pwd = "Dix"+DigitPwd;
objShell = WScript.CreateObject("WScript.Shell") ;
objShell.Run("net user user1 "+Pwd);
Динамическая смена пароля
Здравствуйте Уважаемые!
У меня такая проблема: есть винда, у этой винды есть пользователь, у этого пользователя должен меняться пароль при каждой загрузке системы.
Я написал скрипт для смены пароля, но он чет не всегда работает, поэтому и пишу сюда, может я где - то ошибку сделал, скрипт работает без ошибок, причем когда его запускаешь уже в юзере все робит нормально, пароль меняется, а вот при запуске вынды нет, почему, в чем проблема немогу понять
Вот сам скрипт
Понимаю, что наворотил сюда еще и командную строку, но....
Если кто поможет написать мне батник(в них я не очень силен), тому пряник:D
У меня такая проблема: есть винда, у этой винды есть пользователь, у этого пользователя должен меняться пароль при каждой загрузке системы.
Я написал скрипт для смены пароля, но он чет не всегда работает, поэтому и пишу сюда, может я где - то ошибку сделал, скрипт работает без ошибок, причем когда его запускаешь уже в юзере все робит нормально, пароль меняется, а вот при запуске вынды нет, почему, в чем проблема немогу понять
Вот сам скрипт
Код:
Понимаю, что наворотил сюда еще и командную строку, но....
Если кто поможет написать мне батник(в них я не очень силен), тому пряник:D
Спасибо за то, что не отвечали, сам сделал))
Пишу код может кому-нить и пригодится
Работает только для WinNT и WinXP, для WS2k3, WinNT надо заменить на LDAP
Пишу код может кому-нить и пригодится
Код:
Алгоритм, генерирующий пароль
...
Set objUser = GetObject("WinNT://./Юзер у которого надо изменить пароль")
objUser.SetPassword(переменная с паролем)
objUser.SetInfo
...
Set objUser = GetObject("WinNT://./Юзер у которого надо изменить пароль")
objUser.SetPassword(переменная с паролем)
objUser.SetInfo
Работает только для WinNT и WinXP, для WS2k3, WinNT надо заменить на LDAP
Цитата: smoki
... Работает только для WinNT и WinXP, для WS2k3, WinNT надо заменить на LDAP
Есть пара замечаний.
1. И Windows 2000 Srv, и Windows 2003 прекрасно работают с провайдером [color=blue]WinNT[/color];
2. Провайдер [color=blue]LDAP[/color] в Windows предназначен для работы с основным компонентом серверной платформы - службой [color=blue]Active Directory[/color] -, а его использование требует совершенно иного синтаксиса, например:
Код:
Set objUser = GetObject("LDAP://cn=Имя пользователя,ou=Имя подразделения,dc=Имя домена")
Из примера видно, что [color=blue]LDAP[/color] "понимает" сложную (так сказать, "объёмную") структуру [color=blue]Active Directory[/color], а [color=blue]WinNT[/color] "представляет" её себе в упрощённом - "плоском" - виде (что, впрочем, вовсе не является недостатком).
Согласен с замечаниями:)