Форум АНТИЧАТ - Давайте напишем cmd файл.

#11

30.10.2009, 15:49

Silly.worm

Познающий

Регистрация: 13.07.2009

Сообщений: 65

Провел на форуме:
507007

Репутация: 54

Вот нашел пример работы с реестром с помощью VBS

Код:

'Пример работы с реестром на VBScript
set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Popup "Создаем раздел"
WSHShell.RegWrite "HKCU\MyRegKey\", "Primer"
WSHShell.Popup "Создаем строковый параметр"
WSHShell.RegWrite "HKCU\MyRegKey\String", 1
WSHShell.Popup "Создаем параметр DWORD"
WSHShell.RegWrite "HKCU\MyRegKey\DWORD", 2, "REG_DWORD"
WSHShell.Popup "Создаем двоичный параметр"
WSHShell.RegWrite "HKCU\MyRegKey\Binary", 3, "REG_BINARY"
WSHShell.Popup "Удаляем все параметры"
WSHShell.RegDelete "HKCU\MyRegKey\String"
WSHShell.RegDelete "HKCU\MyRegKey\DWORD"
WSHShell.RegDelete "HKCU\MyRegKey\Binary"
WSHShell.Popup "Удаляем раздел"
WSHShell.RegDelete "HKCU\MyRegKey\"

Осталось его подредактировать для этого ключа:

Код:

'Скрываем васю от посторонних глаз
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserLis t" /v vasya /t REG_DWORD /d "00000000" /f, "REG_SZ"

И еще можно для этого:

Код:

'активируем удаленный рабочий стол, если он еще отключен.
reg add "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server" /v fDenyTSConnections /t reg_dword /d 0

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