информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Портрет посетителяSpanning Tree Protocol: недокументированное применениеГде водятся OGRы
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Очередное исследование 19 миллиардов... 
 Оптимизация ввода-вывода как инструмент... 
 Зловреды выбирают Lisp и Delphi 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
если вы видите этот текст, отключите в настройках форума использование JavaScript
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
Это точно - всего один запрос. 13.02.06 09:53  Число просмотров: 2571
Автор: Dpak0n4ik <Тимур Гладких> Статус: Member
<"чистая" ссылка>
> Пример работы с реестром на 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\\"
>
> 20 секунд, в любом из поисковиков
Это точно - всего один запрос.
Правда этот скрипт не работает:)
<programming>
[VBScript] Добавление записи в реестр... 11.02.06 10:59  
Автор: Dpak0n4ik <Тимур Гладких> Статус: Member
<"чистая" ссылка>
Не получается создать ветку в разделе HKCU и создать там несколько string ключей со значениями...
Пробовал так:

on error resume next
Set WSHShell = CreateObject("WScript.Shell")

strval="HKEY_CURRENT_USER\Control Panel\<some key>"
WSHShell.RegWrite strval, "SomeString", "1"
Вот то, что нужно (может кому пригодится): 13.02.06 09:57  
Автор: Dpak0n4ik <Тимур Гладких> Статус: Member
<"чистая" ссылка>
Вот то, что нужно (может кому пригодится):
strKeyPath = "SOFTWARE\System Admin Scripting Guide"
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
Пример работы с реестром на VBScript 11.02.06 12:47  
Автор: jiZo <Александр> Статус: Member
<"чистая" ссылка>
Пример работы с реестром на 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\\"

20 секунд, в любом из поисковиков
Это точно - всего один запрос. 13.02.06 09:53  
Автор: Dpak0n4ik <Тимур Гладких> Статус: Member
<"чистая" ссылка>
> Пример работы с реестром на 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\\"
>
> 20 секунд, в любом из поисковиков
Это точно - всего один запрос.
Правда этот скрипт не работает:)
Всё прекрасно работает если чуть подправить :) 14.02.06 00:35  
Автор: jiZo <Александр> Статус: Member
Отредактировано 14.02.06 00:36  Количество правок: 1
<"чистая" ссылка>
> Правда этот скрипт не работает:)

Всё прекрасно работает если чуть подправить, несущественно

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




Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2025 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach