Реестр и VBScript

[Eugenio]

Доброго времени суток.
Нет ли объектов, доступных из VBS, с помощью которых можно не только прочитать/записать определенный параметр реестра, но и перечислить параметры для раздела (чтобы обработать в цикле) и т.п.?

[RayShade]

Нет по крайней мере, я искал и не нашел

[Konst_One]

попробуй вот тулзу олт мелкософта, может поможет:
REGTOOL5.DLL

[Eugenio]

нашел:

Код: Выделить всё

Function GetParameters()
   const HKEY_CURRENT_USER = &H80000001
   Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
   strKeyPath = "Software\MyProg\Parameters"
   oReg.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValues
   strInfo=vbNullString
   For i = LBound(arrValues) To UBound(arrValues)
      call oReg.GetStringValue(HKEY_CURRENT_USER,strKeyPath,arrValues(i),Value)
      strInfo=strInfo & arrValues(i) & vbTab & Value & vbCrLf
   Next
   GetParameters = strInfo
End Function

[RayShade]

Хм. А надо будет взять на заметку...

[burik]

По моему можно гораздо проще. Не помню как, но где то записано. Потом напишу.

[RayShade]

burik

Еще один подобный постинг - и будет замечание.

Если можно проще - то выкладывай способ. Нет- просто ничего не пиши.

[burik]

Во, нашел!
Я так в VBS делал.

Set rg = WScript.CreateObject("WScript.Shell")
rg.regwrite "HKEY_CLASSES_ROOT\1", "444", "REG_SZ"

Вобщем rg.regwrite "путь и ключ", "значение", "тип"
Если такого нет, то создаеться.

В VB тоже работает:

Private Sub Command1_Click()
Dim rg
Set rg = CreateObject("WScript.Shell")
rg.regwrite "HKEY_CLASSES_ROOT\1", "444", "REG_SZ"
End Sub

Это для записи, а читать помоему rg.regread у меняв книге какойто было.

[RayShade]

А ты вопрос внимательно прочел?