Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   [решено] Как найти и изменить параметр реестра не зная где он находится (http://forum.oszone.net/showthread.php?t=277414)

krot183 09-02-2014 15:55 2305981

Как найти и изменить параметр реестра не зная где он находится
 
Всем привет!
Помогите кто может.Нужно найти параметр реестра в ветке HKLM не зная полного пути к нему и создать переменную с полным путём к этому параметру.В пути к параметру есть {SID} который меняется при переустановке Windows и на каждом компьютере он тоже разный.Нашёл несколько скриптов в интернете. "Скрипт 1" - не работает с REG_BINARY но с SZ и DWORD работает. "Скрипт 2" - работает с BINARY но не знаю как написать поиск пути к параметру и создание переменной. Пытался объединить оба скрипта не вышло.

Скрипт 1
Код:

Option Explicit

Dim SectionName
Dim tmpRegFile
Dim FindValue
Dim AddValue
Dim objWSS
Dim objFSO
Dim RegFile
Dim CurrSection
Dim GetLine
Dim KeyName
Dim strPrompt
Dim ReturnValue

SectionName = "HKEY_CURRENT_USER\Software"
tmpRegFile  = "z:\tmp.reg"
FindValue  = "Строка поиска"
AddValue    = "Строка замены"

Set objWSS = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

objWSS.Run "regedit /e " & tmpRegFile & " """ & SectionName & """", 2, True

Set RegFile = objFSO.OpenTextFile(tmpRegFile, 1, True, -1)

Do While RegFile.AtEndOfStream <> True
  GetLine = RegFile.ReadLine
  If Left(GetLine, 6) = "[HKEY_" Then
    CurrSection = Mid(GetLine, 2, Len(GetLine) - 2)
  Else
    If InStr(GetLine, FindValue) Then
      strPrompt = "Вы желаете заменить значение ключа " & GetLine & vbNewLine & _
                  "в разделе " & CurrSection & vbNewLine & _
                  "на значение """ & AddValue & """?"
      ReturnValue = MsgBox(strPrompt, 35, "Замена в реестре")
      If ReturnValue = 6 Then
        KeyName = Replace(Split(GetLine, "=")(0), """", "")       
        If KeyName = "@" Then KeyName = ""
        objWSS.RegWrite CurrSection & "\" & KeyName, AddValue, "REG_SZ"
      ElseIf ReturnValue = 2 Then
        Exit Do
      End If
    End If
  End If
Loop

RegFile.Close

'Следующая строка закомментирована для возможности отката изменений
'objFSO.DeleteFile tmpRegFile 

Set objWSS = Nothing
Set objFSO = Nothing

MsgBox "Скрипт завершил работу"

WScript.Quit

Скрипт 2
Код:

const HKEY_LOCAL_MACHINE = &H80000002
FindValue  = "{4b361010-def7-43a1-a5dc-071d955b62f7},15"
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render\{75a38608-57f5-412d-a267-62e7cce381c1}\FxProperties"
AddValue = Array(&H41,&H00,&Hf8,&H73,&H01,&H00,&H00,&H00,&Hfc,&Hff,&Hff,&Hff,&Hf8,&Hff,&Hff,&Hff,&Hf6,&Hff,&Hff,&Hff,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&Hfa,&Hff,&Hff,&Hff,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00)

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

oReg.SetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath, "{4b361010-def7-43a1-a5dc-071d955b62f7},15",AddValue


Iska 09-02-2014 16:50 2306017

Цитата:

Цитата krot183
В пути к параметру есть {SID} который меняется при переустановке Windows и на каждом компьютере он тоже разный. »

Конкретный пример приведите.

krot183 09-02-2014 17:42 2306050

К примеру настройки Realtek HD .Настройка поправка на помещение.

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render\{75a38608-57f5-412d-a267-62e7cce381c1}\FxProperties]
"{4b361010-def7-43a1-a5dc-071d955b62f7},14"=dword:00000001
"{4b361010-def7-43a1-a5dc-071d955b62f7},16"=hex:41,00,f8,73,01,00,00,00,00,00,\
00,00,f4,01,00,00,f4,01,00,00,f4,01,00,00,00,00,00,00,f4,01,00,00,f4,01,00,\
00,4a,01,00,00,4a,01,00,00
"{4b361010-def7-43a1-a5dc-071d955b62f7},15"=hex:41,00,f8,73,01,00,00,00,fc,ff,\
ff,ff,f8,ff,ff,ff,f6,ff,ff,ff,00,00,00,00,00,00,00,00,fa,ff,ff,ff,00,00,00,\
00,00,00,00,00

{75a38608-57f5-412d-a267-62e7cce381c1} - этот SID меняется.

Iska 09-02-2014 21:21 2306170

krot183, выложите из реестра всё содержимое:
Код:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render

krot183 09-02-2014 21:32 2306181

Iska, вот но мне надо только те три параметра что я уже вылаживал
Код:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render]

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render\{5e6adf67-f7ea-4c27-a9bb-a87213274fe4}]
"DeviceState"=dword:00000001

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render\{5e6adf67-f7ea-4c27-a9bb-a87213274fe4}\FxProperties]
"{ec72f5a4-ac0a-4ec4-80e9-9962dad4267b},0"=hex:0b,00,63,00,01,00,00,00,00,00,\
  00,00
"{a343cd96-6935-4073-991b-5b8086f132bd},1"=hex:0b,00,63,00,01,00,00,00,01,00,\
  00,00
"{b725f130-47ef-101a-a5f1-02608c9eebac},10"="Realtek System Effect"
"{d04e05a6-594b-4fb6-a80d-01af5eed7d1d},1"="{D8813D24-E801-4a75-9985-30E7CC9DBD93}"
"{d04e05a6-594b-4fb6-a80d-01af5eed7d1d},2"="{53641EC4-4566-4896-919A-2FBB21FD2FCF}"
"{d04e05a6-594b-4fb6-a80d-01af5eed7d1d},3"="{74C7569D-ED69-4292-9886-CC89DD455744}"
"{e1032fc5-ddab-4c4b-9940-8a6be78a4db6},0"="{0CC838CF-95B2-42cd-BED1-324E39134692}"
"{3a418faa-93d7-4bd8-a0d3-c784ad25476a},0"="{625B52E8-3C5F-4d1c-ABD3-DD8E4526F059}"
"{9a708e6f-a639-4f1c-9206-62b7018853a4},0"="{6861CFDC-0461-49d5-A8DF-BE5ACD02692F}"
"{96e306d0-c3fe-4746-af60-c131f06a879e},0"="{EC72F5A4-AC0A-4ec4-80E9-9962DAD4267B},0"
"{e1032fc5-ddab-4c4b-9940-8a6be78a4db6},1"="{A27368B3-D810-42ce-B114-83900258B8EC}"
"{3a418faa-93d7-4bd8-a0d3-c784ad25476a},1"="{DC253AB8-10DC-483c-AB5F-D6A4E189FD70}"
"{9a708e6f-a639-4f1c-9206-62b7018853a4},1"="{5E7831EB-451A-45e5-8D14-E2B9DF21396F}"
"{96e306d0-c3fe-4746-af60-c131f06a879e},1"="{A343CD96-6935-4073-991B-5B8086F132BD},1"
"{d46c4dfd-28b8-4ab8-a45d-70399958ef26},0"=dword:00000002
"{35df8779-6d98-4476-b3d3-f0fac0e4f5bd},0"="{2D46BA67-0778-48ef-82AF-BF1DB3E45FFE}"
"{d04e05a6-594b-4fb6-a80d-01af5eed7d1d},0"="{00000000-0000-0000-0000-000000000000}"
"{01f0e753-3a7a-4b21-a904-d06826245e43},4701"=dword:00000000
"{01f0e753-3a7a-4b21-a904-d06826245e43},4702"=dword:00000000
"{01f0e753-3a7a-4b21-a904-d06826245e43},4705"=dword:00000000
"{01f0e753-3a7a-4b21-a904-d06826245e43},4706"=dword:00000000
"{01f0e753-3a7a-4b21-a904-d06826245e43},4716"=dword:00000000
"{01f0e753-3a7a-4b21-a904-d06826245e43},4717"=dword:00000000
"{01f0e753-3a7a-4b21-a904-d06826245e43},4723"=dword:00000000
"{01f0e753-3a7a-4b21-a904-d06826245e43},4724"=dword:00000000
"{01f0e753-3a7a-4b21-a904-d06826245e43},4735"=dword:00000000
"{01f0e753-3a7a-4b21-a904-d06826245e43},4737"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},1"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},2"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},4"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},5"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},6"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},7"=hex:41,00,00,00,50,01,00,00,00,00,\
  00,00,00,00,00,00,00,00,80,3f,00,00,80,3f,00,00,80,3f,00,00,00,00,00,00,00,\
  00,9c,ff,ff,ff,9c,ff,ff,ff,00,00,00,00,9a,99,99,3e,00,00,96,43,00,00,00,3f,\
  00,00,16,43,33,33,f3,40,00,40,9c,45,00,00,48,42,9a,99,99,3e,01,00,00,00,00,\
  00,00,00,c0,5d,00,00,00,00,00,00,00,00,00,00,00,00,80,3f,00,00,80,3f,00,00,\
  80,3f,00,00,00,00,00,00,00,00,9c,ff,ff,ff,9c,ff,ff,ff,00,00,00,00,9a,99,99,\
  3e,00,00,96,43,00,00,00,3f,00,00,16,43,33,33,f3,40,00,40,9c,45,00,00,48,42,\
  9a,99,99,3e,01,00,00,00,00,00,00,00,c0,5d,00,00,00,00,00,00,00,00,00,00,00,\
  00,80,3f,00,00,80,3f,00,00,80,3f,00,00,00,00,00,00,00,00,9c,ff,ff,ff,9c,ff,\
  ff,ff,00,00,00,00,9a,99,99,3e,00,00,96,43,00,00,00,3f,00,00,16,43,33,33,f3,\
  40,00,40,9c,45,00,00,48,42,9a,99,99,3e,01,00,00,00,00,00,00,00,c0,5d,00,00,\
  00,00,00,00,00,00,00,00,00,00,80,3f,00,00,80,3f,00,00,80,3f,00,00,00,00,00,\
  00,00,00,9c,ff,ff,ff,9c,ff,ff,ff,00,00,00,00,9a,99,99,3e,00,00,96,43,00,00,\
  00,3f,00,00,16,43,33,33,f3,40,00,40,9c,45,00,00,48,42,9a,99,99,3e,01,00,00,\
  00,00,00,00,00,c0,5d,00,00
"{2B24BE42-A892-11DC-8314-0800200C9A66},3"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},9"=dword:00000064
"{B6AF177A-F166-475a-86A6-E7A85186321D},18"=dword:0000000f
"{B6AF177A-F166-475a-86A6-E7A85186321D},20"=dword:00000190
"{B6AF177A-F166-475a-86A6-E7A85186321D},19"=dword:00000002
"{2B24BE42-A892-11DC-8314-0800200C9A66},4"=dword:00000000
"{B6AF177A-F166-475a-86A6-E7A85186321D},16"=dword:00000000
"{B6AF177A-F166-475a-86A6-E7A85186321D},17"=dword:00000000
"{B6AF177A-F166-475a-86A6-E7A85186321D},21"=dword:0000000c
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},11"=dword:00000000
"{72b15e15-37f8-4ec0-8695-7a3bbcdb2847},1"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},12"=dword:00000000
"{6b846aad-e4bb-4a09-8cdd-3552821397a6},1002"=dword:00000000
"{6b846aad-e4bb-4a09-8cdd-3552821397a6},1003"=dword:0000000f
"{13af693f-211e-4b36-b7db-b281ec2a3c7c},1002"=dword:00000064
"{dbc455ba-145a-47b5-8330-83e84652b91b},1001"=dword:00000007
"{98463DF4-41A5-4335-9D80-0A8E25C3BE04},0"=dword:00000000
"{4B361010-DEF7-43a1-A5DC-071D955B62F7},31"=dword:00000000
"{4B361010-DEF7-43a1-A5DC-071D955B62F7},17"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},13"=dword:00000000
"{0D94A8ED-FD91-48a1-A1F8-3BFF9B154815},0"=dword:00000190
"{0D94A8ED-FD91-48a1-A1F8-3BFF9B154815},1"=dword:0000000c
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},14"=dword:00000000
"{0D94A8ED-FD91-48a1-A1F8-3BFF9B154815},2"=dword:00000190
"{0547889B-EF4E-4801-86AC-80EF1D19D680},0"=dword:00000000
"{E0A941A0-88A2-4df5-8D6B-DD20BB06E8FB},4"=dword:00000000
"{4B361010-DEF7-43a1-A5DC-071D955B62F7},18"=dword:00000006
"{4B361010-DEF7-43a1-A5DC-071D955B62F7},34"=dword:00000002
"{5642a375-d640-4d88-bb34-cc1c865ba48d},1"=dword:00000000
"{5642a375-d640-4d88-bb34-cc1c865ba48d},2"=dword:00000002
"{5642a375-d640-4d88-bb34-cc1c865ba48d},3"=dword:00000002
"{5642a375-d640-4d88-bb34-cc1c865ba48d},4"=dword:00000000
"{7D81B031-E34D-4b4a-BE8C-0DD5D6771952},0"=dword:00000000
"{7D81B031-E34D-4b4a-BE8C-0DD5D6771952},1"=dword:00000000
"{0D94A8ED-FD91-48a1-A1F8-3BFF9B154815},4"=dword:00000000
"{584fe707-f40b-4ee7-952c-74d8a06411bc},0"=dword:00000000
"{2B24BE42-A892-11DC-8314-0800200C9A66},90"=dword:00000000
"{2B24BE42-A892-11DC-8314-0800200C9A66},91"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},17"=dword:00000000
"{F169111C-3CC4-429b-ADC6-2A1B5D7EE21A},0"=dword:00000000
"{4B361010-DEF7-43a1-A5DC-071D955B62F7},32"=dword:00000007
"{4B361010-DEF7-43a1-A5DC-071D955B62F7},33"=dword:0000000c
"{0547889B-EF4E-4801-86AC-80EF1D19D680},3"=dword:00000000
"{0547889B-EF4E-4801-86AC-80EF1D19D680},4"=dword:00000000
"{0547889B-EF4E-4801-86AC-80EF1D19D680},2"=dword:00000000
"{4B361010-DEF7-43a1-A5DC-071D955B62F7},23"=dword:00000000
"{0547889B-EF4E-4801-86AC-80EF1D19D680},1"=dword:00000000
"{E0A941A0-88A2-4df5-8D6B-DD20BB06E8FB},1"=dword:00000000
"{07B93A42-C29C-4df7-8899-64E4754F119A},0"=dword:00000000
"{07B93A42-C29C-4df7-8899-64E4754F119A},1"=dword:00000000
"{07B93A42-C29C-4df7-8899-64E4754F119A},2"=dword:00000000
"{C1665354-E352-4bf1-8B4B-4A941ABFC6EF},0"=dword:00000000
"{C1665354-E352-4bf1-8B4B-4A941ABFC6EF},1"=dword:00000000
"{4B361010-DEF7-43a1-A5DC-071D955B62F7},12"=dword:00000000
"{911DFF54-0B79-4e96-B3DE-577F235B619B},0"=dword:00000000
"{911DFF54-0B79-4e96-B3DE-577F235B619B},1"=dword:00000000
"{911DFF54-0B79-4e96-B3DE-577F235B619B},2"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},20"=dword:00000000
"{0D94A8ED-FD91-48a1-A1F8-3BFF9B154815},3"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},21"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},22"=dword:00000000

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render\{5e6adf67-f7ea-4c27-a9bb-a87213274fe4}\Properties]
"{b3f8fa53-0004-438e-9003-51a46e139bfc},15"=hex:41,00,58,74,01,00,00,00,de,07,\
  02,00,04,00,06,00,12,00,02,00,25,00,06,01
"{a45c254e-df1c-4efd-8020-67d146a850e0},2"="Realtek Digital Output"
"{b3f8fa53-0004-438e-9003-51a46e139bfc},6"="Realtek High Definition Audio"
"{b3f8fa53-0004-438e-9003-51a46e139bfc},2"="{1}.HDAUDIO\\FUNC_01&VEN_10EC&DEV_0662&SUBSYS_18493662&REV_1001\\4&2DC23EFB&0&0001"
"{83da6326-97a6-4088-9453-a1923f573b29},3"="oem9.inf:AzaliaManufacturerID.NTX86.6.0:IntcAzAudModel:6.0.1.6772:hdaudio\\func_01&ven_10ec&dev_0662&subsys_18493662"
"{a45c254e-df1c-4efd-8020-67d146a850e0},38"=hex:48,00,58,74,01,00,00,00,00,00,\
  00,00,00,00,00,00,ff,ff,ff,ff,ff,ff,ff,ff
"{8c7ed206-3f8a-4827-b3ab-ae9e1faefc6c},2"=hex:48,00,58,74,01,00,00,00,00,00,\
  00,00,00,00,00,00,ff,ff,ff,ff,ff,ff,ff,ff
"{a45c254e-df1c-4efd-8020-67d146a850e0},24"="HDAUDIO"
"{1da5d803-d492-4edd-8c23-e0c0ffee7f0e},0"=dword:00000008
"{1da5d803-d492-4edd-8c23-e0c0ffee7f0e},8"="{DFF21FE5-F70F-11D0-B917-00A0C9223196}"
"{b3f8fa53-0004-438e-9003-51a46e139bfc},5"=hex:41,00,00,00,01,00,00,00,10,00,\
  00,00,02,00,00,00,02,00,00,00,92,00,00,00,00,00,10,00,80,00,00,aa,00,38,9b,\
  71,08,00,00,00,00,00,10,00,80,00,00,aa,00,38,9b,71
"{259abffc-50a7-47ce-af08-68c9a7d73366},12"="%windir%\\system32\\mmres.dll,-3013"
"{840b8171-b0ad-410f-8581-cccc0382cfef},0"=hex:41,00,5b,00,01,00,00,00,01,00,\
  00,00,2c,01,00,00,00,00,01,00,7b,00,32,00,7d,00,2e,00,5c,00,5c,00,3f,00,5c,\
  00,68,00,64,00,61,00,75,00,64,00,69,00,6f,00,23,00,66,00,75,00,6e,00,63,00,\
  5f,00,30,00,31,00,26,00,76,00,65,00,6e,00,5f,00,31,00,30,00,65,00,63,00,26,\
  00,64,00,65,00,76,00,5f,00,30,00,36,00,36,00,32,00,26,00,73,00,75,00,62,00,\
  73,00,79,00,73,00,5f,00,31,00,38,00,34,00,39,00,33,00,36,00,36,00,32,00,26,\
  00,72,00,65,00,76,00,5f,00,31,00,30,00,30,00,31,00,23,00,34,00,26,00,32,00,\
  64,00,63,00,32,00,33,00,65,00,66,00,62,00,26,00,30,00,26,00,30,00,30,00,30,\
  00,31,00,23,00,7b,00,36,00,39,00,39,00,34,00,61,00,64,00,30,00,34,00,2d,00,\
  39,00,33,00,65,00,66,00,2d,00,31,00,31,00,64,00,30,00,2d,00,61,00,33,00,63,\
  00,63,00,2d,00,30,00,30,00,61,00,30,00,63,00,39,00,32,00,32,00,33,00,31,00,\
  39,00,36,00,7d,00,5c,00,72,00,74,00,73,00,70,00,64,00,69,00,66,00,74,00,6f,\
  00,70,00,6f,00,2f,00,30,00,30,00,30,00,31,00,30,00,30,00,30,00,31,00,00,00,\
  00,00
"{1da5d803-d492-4edd-8c23-e0c0ffee7f0e},2"="{00000000-0000-0000-0000-000000000000}"
"{e4870e26-3cc5-4cd2-ba46-ca0a9a70ed04},3"=hex:41,00,c8,70,01,00,00,00,fe,ff,\
  02,00,80,bb,00,00,00,ee,02,00,04,00,10,00,16,00,10,00,03,00,00,00,01,00,00,\
  00,00,00,10,00,80,00,00,aa,00,38,9b,71
"{1da5d803-d492-4edd-8c23-e0c0ffee7f0e},7"=dword:00000001
"{f1056047-b091-4d85-a5c0-b13d4d8bac57},0"="{E650330C-4082-462b-ABAF-B0F9F2F542B3}"
"{9a82a7db-3ebb-41b4-83ba-18b7311718fc},1"=dword:00010000
"{233164c8-1b2c-4c7d-bc68-b671687a2567},1"="{2}.\\\\?\\hdaudio#func_01&ven_10ec&dev_0662&subsys_18493662&rev_1001#4&2dc23efb&0&0001#{6994ad04-93ef-11d0-a3cc-00a0c9223196}\\rtspdifwave"
"{9a82a7db-3ebb-41b4-83ba-18b7311718fc},146"=dword:00010000
"{233164c8-1b2c-4c7d-bc68-b671687a2567},146"="{2}.\\\\?\\hdaudio#func_01&ven_10ec&dev_0662&subsys_18493662&rev_1001#4&2dc23efb&0&0001#{6994ad04-93ef-11d0-a3cc-00a0c9223196}\\rtspdifwave"
"{9a82a7db-3ebb-41b4-83ba-18b7311718fc},356"=dword:00010000
"{233164c8-1b2c-4c7d-bc68-b671687a2567},356"="{2}.\\\\?\\hdaudio#func_01&ven_10ec&dev_0662&subsys_18493662&rev_1001#4&2dc23efb&0&0001#{6994ad04-93ef-11d0-a3cc-00a0c9223196}\\rtspdifwave"
"{5a9125b7-f367-4924-ace2-0803a4a3a471},0"=dword:60006e24
"{5a9125b7-f367-4924-ace2-0803a4a3a471},2"=dword:60004e84
"{b3f8fa53-0004-438e-9003-51a46e139bfc},0"=dword:00000001
"{f19f064d-082c-4e27-bc73-6882a1bb8e4c},0"=hex:41,00,92,74,01,00,00,00,fe,ff,\
  02,00,80,bb,00,00,00,ee,02,00,04,00,10,00,16,00,10,00,03,00,00,00,01,00,00,\
  00,00,00,10,00,80,00,00,aa,00,38,9b,71
"{9D631510-92A8-4a79-A79E-A83812C9C119},0"="{DFF21FE5-F70F-11D0-B917-00A0C9223196}"
"{9D631510-92A8-4a79-A79E-A83812C9C119},1"="{0.0.0.00000000}.{5e6adf67-f7ea-4c27-a9bb-a87213274fe4}"
"{9D631510-92A8-4a79-A79E-A83812C9C119},2"="{5e6adf67-f7ea-4c27-a9bb-a87213274fe4}"
"{9D631510-92A8-4a79-A79E-A83812C9C119},3"=dword:00000000
"{e4870e26-3cc5-4cd2-ba46-ca0a9a70ed04},0"=hex:41,00,92,74,01,00,00,00,fe,ff,\
  02,00,80,bb,00,00,00,dc,05,00,08,00,20,00,16,00,20,00,03,00,00,00,03,00,00,\
  00,00,00,10,00,80,00,00,aa,00,38,9b,71
"{e4870e26-3cc5-4cd2-ba46-ca0a9a70ed04},1"=hex:41,00,92,74,01,00,00,00,a0,86,\
  01,00,00,00,00,00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render\{75a38608-57f5-412d-a267-62e7cce381c1}]
"DeviceState"=dword:00000001
"FxProperties

"="00000001"
"FxProperties"="00000001"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render\{75a38608-57f5-412d-a267-62e7cce381c1}\FxProperties]
"{ec72f5a4-ac0a-4ec4-80e9-9962dad4267b},0"=hex:0b,00,63,00,01,00,00,00,00,00,\
  00,00
"{a343cd96-6935-4073-991b-5b8086f132bd},1"=hex:0b,00,63,00,01,00,00,00,01,00,\
  00,00
"{b725f130-47ef-101a-a5f1-02608c9eebac},10"="Realtek System Effect"
"{d04e05a6-594b-4fb6-a80d-01af5eed7d1d},1"="{D8813D24-E801-4a75-9985-30E7CC9DBD93}"
"{d04e05a6-594b-4fb6-a80d-01af5eed7d1d},2"="{53641EC4-4566-4896-919A-2FBB21FD2FCF}"
"{d04e05a6-594b-4fb6-a80d-01af5eed7d1d},3"="{74C7569D-ED69-4292-9886-CC89DD455744}"
"{e1032fc5-ddab-4c4b-9940-8a6be78a4db6},0"="{0CC838CF-95B2-42cd-BED1-324E39134692}"
"{3a418faa-93d7-4bd8-a0d3-c784ad25476a},0"="{625B52E8-3C5F-4d1c-ABD3-DD8E4526F059}"
"{9a708e6f-a639-4f1c-9206-62b7018853a4},0"="{6861CFDC-0461-49d5-A8DF-BE5ACD02692F}"
"{96e306d0-c3fe-4746-af60-c131f06a879e},0"="{EC72F5A4-AC0A-4ec4-80E9-9962DAD4267B},0"
"{e1032fc5-ddab-4c4b-9940-8a6be78a4db6},1"="{A27368B3-D810-42ce-B114-83900258B8EC}"
"{3a418faa-93d7-4bd8-a0d3-c784ad25476a},1"="{DC253AB8-10DC-483c-AB5F-D6A4E189FD70}"
"{9a708e6f-a639-4f1c-9206-62b7018853a4},1"="{5E7831EB-451A-45e5-8D14-E2B9DF21396F}"
"{96e306d0-c3fe-4746-af60-c131f06a879e},1"="{A343CD96-6935-4073-991B-5B8086F132BD},1"
"{d46c4dfd-28b8-4ab8-a45d-70399958ef26},0"=dword:00000002
"{35df8779-6d98-4476-b3d3-f0fac0e4f5bd},0"="{2D46BA67-0778-48ef-82AF-BF1DB3E45FFE}"
"{d04e05a6-594b-4fb6-a80d-01af5eed7d1d},0"="{00000000-0000-0000-0000-000000000000}"
"{01f0e753-3a7a-4b21-a904-d06826245e43},4701"=dword:00000000
"{01f0e753-3a7a-4b21-a904-d06826245e43},4702"=dword:00000000
"{01f0e753-3a7a-4b21-a904-d06826245e43},4705"=dword:00000000
"{01f0e753-3a7a-4b21-a904-d06826245e43},4706"=dword:00000000
"{01f0e753-3a7a-4b21-a904-d06826245e43},4716"=dword:00000000
"{01f0e753-3a7a-4b21-a904-d06826245e43},4717"=dword:00000000
"{01f0e753-3a7a-4b21-a904-d06826245e43},4723"=dword:00000000
"{01f0e753-3a7a-4b21-a904-d06826245e43},4724"=dword:00000000
"{01f0e753-3a7a-4b21-a904-d06826245e43},4735"=dword:00000000
"{01f0e753-3a7a-4b21-a904-d06826245e43},4737"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},1"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},2"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},4"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},5"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},6"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},7"=hex:41,00,00,00,50,01,00,00,00,00,\
  00,00,00,00,00,00,00,00,80,3f,00,00,80,3f,00,00,80,3f,00,00,00,00,00,00,00,\
  00,9c,ff,ff,ff,9c,ff,ff,ff,00,00,00,00,9a,99,99,3e,00,00,96,43,00,00,00,3f,\
  00,00,16,43,33,33,f3,40,00,40,9c,45,00,00,48,42,9a,99,99,3e,01,00,00,00,00,\
  00,00,00,c0,5d,00,00,00,00,00,00,00,00,00,00,00,00,80,3f,00,00,80,3f,00,00,\
  80,3f,00,00,00,00,00,00,00,00,9c,ff,ff,ff,9c,ff,ff,ff,00,00,00,00,9a,99,99,\
  3e,00,00,96,43,00,00,00,3f,00,00,16,43,33,33,f3,40,00,40,9c,45,00,00,48,42,\
  9a,99,99,3e,01,00,00,00,00,00,00,00,c0,5d,00,00,00,00,00,00,00,00,00,00,00,\
  00,80,3f,00,00,80,3f,00,00,80,3f,00,00,00,00,00,00,00,00,9c,ff,ff,ff,9c,ff,\
  ff,ff,00,00,00,00,9a,99,99,3e,00,00,96,43,00,00,00,3f,00,00,16,43,33,33,f3,\
  40,00,40,9c,45,00,00,48,42,9a,99,99,3e,01,00,00,00,00,00,00,00,c0,5d,00,00,\
  00,00,00,00,00,00,00,00,00,00,80,3f,00,00,80,3f,00,00,80,3f,00,00,00,00,00,\
  00,00,00,9c,ff,ff,ff,9c,ff,ff,ff,00,00,00,00,9a,99,99,3e,00,00,96,43,00,00,\
  00,3f,00,00,16,43,33,33,f3,40,00,40,9c,45,00,00,48,42,9a,99,99,3e,01,00,00,\
  00,00,00,00,00,c0,5d,00,00
"{2B24BE42-A892-11DC-8314-0800200C9A66},3"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},9"=dword:00000064
"{B6AF177A-F166-475a-86A6-E7A85186321D},18"=dword:0000000f
"{B6AF177A-F166-475a-86A6-E7A85186321D},20"=dword:00000190
"{B6AF177A-F166-475a-86A6-E7A85186321D},19"=dword:00000002
"{2B24BE42-A892-11DC-8314-0800200C9A66},4"=dword:00000000
"{B6AF177A-F166-475a-86A6-E7A85186321D},16"=dword:00000000
"{B6AF177A-F166-475a-86A6-E7A85186321D},17"=dword:00000000
"{B6AF177A-F166-475a-86A6-E7A85186321D},21"=dword:0000000c
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},11"=dword:00000000
"{72b15e15-37f8-4ec0-8695-7a3bbcdb2847},1"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},12"=dword:00000000
"{6b846aad-e4bb-4a09-8cdd-3552821397a6},1002"=dword:00000000
"{6b846aad-e4bb-4a09-8cdd-3552821397a6},1003"=dword:0000000f
"{13af693f-211e-4b36-b7db-b281ec2a3c7c},1002"=dword:00000064
"{dbc455ba-145a-47b5-8330-83e84652b91b},1001"=dword:00000007
"{98463DF4-41A5-4335-9D80-0A8E25C3BE04},0"=dword:00000000
"{4B361010-DEF7-43a1-A5DC-071D955B62F7},31"=dword:00000000
"{4B361010-DEF7-43a1-A5DC-071D955B62F7},17"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},13"=dword:00000000
"{0D94A8ED-FD91-48a1-A1F8-3BFF9B154815},0"=dword:00000190
"{0D94A8ED-FD91-48a1-A1F8-3BFF9B154815},1"=dword:0000000c
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},14"=dword:00000000
"{0D94A8ED-FD91-48a1-A1F8-3BFF9B154815},2"=dword:00000190
"{0547889B-EF4E-4801-86AC-80EF1D19D680},0"=dword:00000000
"{E0A941A0-88A2-4df5-8D6B-DD20BB06E8FB},4"=dword:00000000
"{4B361010-DEF7-43a1-A5DC-071D955B62F7},18"=dword:00000006
"{4B361010-DEF7-43a1-A5DC-071D955B62F7},34"=dword:00000002
"{5642a375-d640-4d88-bb34-cc1c865ba48d},1"=dword:00000000
"{5642a375-d640-4d88-bb34-cc1c865ba48d},2"=dword:00000002
"{5642a375-d640-4d88-bb34-cc1c865ba48d},3"=dword:00000002
"{5642a375-d640-4d88-bb34-cc1c865ba48d},4"=dword:00000000
"{7D81B031-E34D-4b4a-BE8C-0DD5D6771952},0"=dword:00000000
"{7D81B031-E34D-4b4a-BE8C-0DD5D6771952},1"=dword:00000000
"{0D94A8ED-FD91-48a1-A1F8-3BFF9B154815},4"=dword:00000000
"{584fe707-f40b-4ee7-952c-74d8a06411bc},0"=dword:00000000
"{2B24BE42-A892-11DC-8314-0800200C9A66},90"=dword:00000000
"{2B24BE42-A892-11DC-8314-0800200C9A66},91"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},17"=dword:00000000
"{F169111C-3CC4-429b-ADC6-2A1B5D7EE21A},0"=dword:00000000
"{4B361010-DEF7-43a1-A5DC-071D955B62F7},32"=dword:00000007
"{4B361010-DEF7-43a1-A5DC-071D955B62F7},33"=dword:0000000c
"{0547889B-EF4E-4801-86AC-80EF1D19D680},3"=dword:00000000
"{0547889B-EF4E-4801-86AC-80EF1D19D680},4"=dword:00000000
"{0547889B-EF4E-4801-86AC-80EF1D19D680},2"=dword:00000000
"{4B361010-DEF7-43a1-A5DC-071D955B62F7},23"=dword:00000000
"{0547889B-EF4E-4801-86AC-80EF1D19D680},1"=dword:00000000
"{E0A941A0-88A2-4df5-8D6B-DD20BB06E8FB},1"=dword:00000000
"{07B93A42-C29C-4df7-8899-64E4754F119A},0"=dword:00000000
"{07B93A42-C29C-4df7-8899-64E4754F119A},1"=dword:00000000
"{07B93A42-C29C-4df7-8899-64E4754F119A},2"=dword:00000000
"{C1665354-E352-4bf1-8B4B-4A941ABFC6EF},0"=dword:00000000
"{C1665354-E352-4bf1-8B4B-4A941ABFC6EF},1"=dword:00000000
"{4B361010-DEF7-43a1-A5DC-071D955B62F7},12"=dword:00000000
"{911DFF54-0B79-4e96-B3DE-577F235B619B},0"=dword:00000000
"{911DFF54-0B79-4e96-B3DE-577F235B619B},1"=dword:00000000
"{911DFF54-0B79-4e96-B3DE-577F235B619B},2"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},20"=dword:00000000
"{0D94A8ED-FD91-48a1-A1F8-3BFF9B154815},3"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},21"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},22"=dword:00000000
"{3BA0CD54-830F-4551-A6EB-F3EAB68E3700},3"=hex:41,00,00,00,a4,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00
"{4b361010-def7-43a1-a5dc-071d955b62f7},16"=hex:41,00,f8,73,01,00,00,00,00,00,\
  00,00,f4,01,00,00,f4,01,00,00,f4,01,00,00,00,00,00,00,f4,01,00,00,f4,01,00,\
  00,4a,01,00,00,4a,01,00,00
"{4b361010-def7-43a1-a5dc-071d955b62f7},1"=dword:00000000
"{4b361010-def7-43a1-a5dc-071d955b62f7},3"=dword:00000000
"{4b361010-def7-43a1-a5dc-071d955b62f7},9"=dword:00000000
"{4b361010-def7-43a1-a5dc-071d955b62f7},14"=dword:00000001
"{4b361010-def7-43a1-a5dc-071d955b62f7},15"=hex:41,00,f8,73,01,00,00,00,fc,ff,\
  ff,ff,f8,ff,ff,ff,f6,ff,ff,ff,00,00,00,00,00,00,00,00,fa,ff,ff,ff,00,00,00,\
  00,00,00,00,00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render\{75a38608-57f5-412d-a267-62e7cce381c1}\Properties]
"{b3f8fa53-0004-438e-9003-51a46e139bfc},15"=hex:41,00,53,00,01,00,00,00,de,07,\
  02,00,04,00,06,00,12,00,02,00,25,00,9c,02
"{a45c254e-df1c-4efd-8020-67d146a850e0},2"="Динамики"
"{b3f8fa53-0004-438e-9003-51a46e139bfc},6"="Realtek High Definition Audio"
"{b3f8fa53-0004-438e-9003-51a46e139bfc},2"="{1}.HDAUDIO\\FUNC_01&VEN_10EC&DEV_0662&SUBSYS_18493662&REV_1001\\4&2DC23EFB&0&0001"
"{83da6326-97a6-4088-9453-a1923f573b29},3"="oem9.inf:AzaliaManufacturerID.NTX86.6.0:IntcAzAudModel:6.0.1.6772:hdaudio\\func_01&ven_10ec&dev_0662&subsys_18493662"
"{a45c254e-df1c-4efd-8020-67d146a850e0},38"=hex:48,00,38,04,01,00,00,00,00,00,\
  00,00,00,00,00,00,ff,ff,ff,ff,ff,ff,ff,ff
"{8c7ed206-3f8a-4827-b3ab-ae9e1faefc6c},2"=hex:48,00,38,04,01,00,00,00,00,00,\
  00,00,00,00,00,00,ff,ff,ff,ff,ff,ff,ff,ff
"{a45c254e-df1c-4efd-8020-67d146a850e0},24"="HDAUDIO"
"{1da5d803-d492-4edd-8c23-e0c0ffee7f0e},0"=dword:00000001
"{1da5d803-d492-4edd-8c23-e0c0ffee7f0e},8"="{DFF21CE1-F70F-11D0-B917-00A0C9223196}"
"{259abffc-50a7-47ce-af08-68c9a7d73366},12"="%windir%\\system32\\mmres.dll,-3010"
"{840b8171-b0ad-410f-8581-cccc0382cfef},0"=hex:41,00,00,03,01,00,00,00,01,00,\
  00,00,38,01,00,00,00,00,01,00,7b,00,32,00,7d,00,2e,00,5c,00,5c,00,3f,00,5c,\
  00,68,00,64,00,61,00,75,00,64,00,69,00,6f,00,23,00,66,00,75,00,6e,00,63,00,\
  5f,00,30,00,31,00,26,00,76,00,65,00,6e,00,5f,00,31,00,30,00,65,00,63,00,26,\
  00,64,00,65,00,76,00,5f,00,30,00,36,00,36,00,32,00,26,00,73,00,75,00,62,00,\
  73,00,79,00,73,00,5f,00,31,00,38,00,34,00,39,00,33,00,36,00,36,00,32,00,26,\
  00,72,00,65,00,76,00,5f,00,31,00,30,00,30,00,31,00,23,00,34,00,26,00,32,00,\
  64,00,63,00,32,00,33,00,65,00,66,00,62,00,26,00,30,00,26,00,30,00,30,00,30,\
  00,31,00,23,00,7b,00,36,00,39,00,39,00,34,00,61,00,64,00,30,00,34,00,2d,00,\
  39,00,33,00,65,00,66,00,2d,00,31,00,31,00,64,00,30,00,2d,00,61,00,33,00,63,\
  00,63,00,2d,00,30,00,30,00,61,00,30,00,63,00,39,00,32,00,32,00,33,00,31,00,\
  39,00,36,00,7d,00,5c,00,73,00,69,00,6e,00,67,00,6c,00,65,00,6c,00,69,00,6e,\
  00,65,00,6f,00,75,00,74,00,74,00,6f,00,70,00,6f,00,2f,00,30,00,30,00,30,00,\
  31,00,30,00,30,00,30,00,31,00,00,00,00,00
"{1da5d803-d492-4edd-8c23-e0c0ffee7f0e},2"="{00000000-0000-0000-0000-000000000000}"
"{e4870e26-3cc5-4cd2-ba46-ca0a9a70ed04},3"=hex:41,00,c8,70,01,00,00,00,fe,ff,\
  02,00,80,bb,00,00,00,dc,05,00,08,00,20,00,16,00,18,00,03,00,00,00,01,00,00,\
  00,00,00,10,00,80,00,00,aa,00,38,9b,71
"{1da5d803-d492-4edd-8c23-e0c0ffee7f0e},7"=dword:00000001
"{f1056047-b091-4d85-a5c0-b13d4d8bac57},0"="{E650330C-4082-462b-ABAF-B0F9F2F542B3}"
"{9a82a7db-3ebb-41b4-83ba-18b7311718fc},1"=dword:00010000
"{233164c8-1b2c-4c7d-bc68-b671687a2567},1"="{2}.\\\\?\\hdaudio#func_01&ven_10ec&dev_0662&subsys_18493662&rev_1001#4&2dc23efb&0&0001#{6994ad04-93ef-11d0-a3cc-00a0c9223196}\\rearlineoutwave3"
"{5a9125b7-f367-4924-ace2-0803a4a3a471},0"=dword:60018764
"{5a9125b7-f367-4924-ace2-0803a4a3a471},2"=dword:600167c4
"{b3f8fa53-0004-438e-9003-51a46e139bfc},0"=dword:00000001
"{f19f064d-082c-4e27-bc73-6882a1bb8e4c},0"=hex:41,00,7a,74,01,00,00,00,fe,ff,\
  06,00,80,bb,00,00,00,94,11,00,18,00,20,00,16,00,18,00,3f,00,00,00,01,00,00,\
  00,00,00,10,00,80,00,00,aa,00,38,9b,71
"{9D631510-92A8-4a79-A79E-A83812C9C119},0"="{DFF21CE1-F70F-11D0-B917-00A0C9223196}"
"{9D631510-92A8-4a79-A79E-A83812C9C119},1"="{0.0.0.00000000}.{75a38608-57f5-412d-a267-62e7cce381c1}"
"{9D631510-92A8-4a79-A79E-A83812C9C119},2"="{75a38608-57f5-412d-a267-62e7cce381c1}"
"{9D631510-92A8-4a79-A79E-A83812C9C119},3"=dword:00000000
"{e4870e26-3cc5-4cd2-ba46-ca0a9a70ed04},0"=hex:41,00,7a,74,01,00,00,00,fe,ff,\
  06,00,80,bb,00,00,00,94,11,00,18,00,20,00,16,00,20,00,3f,00,00,00,03,00,00,\
  00,00,00,10,00,80,00,00,aa,00,38,9b,71
"{e4870e26-3cc5-4cd2-ba46-ca0a9a70ed04},1"=hex:41,00,00,00,01,00,00,00,a0,86,\
  01,00,00,00,00,00
"{9D631510-92A8-4a79-A79E-A83812C9C119},4"=dword:00000001
"{9D631510-92A8-4a79-A79E-A83812C9C119},5"=hex:fe,ff,06,00,80,bb,00,00,00,94,\
  11,00,18,00,20,00,16,00,20,00,3f,00,00,00,03,00,00,00,00,00,10,00,80,00,00,\
  aa,00,38,9b,71
"{9D631510-92A8-4a79-A79E-A83812C9C119},6"=hex:fe,ff,06,00,80,bb,00,00,00,94,\
  11,00,18,00,20,00,16,00,20,00,3f,00,00,00,03,00,00,00,00,00,10,00,80,00,00,\
  aa,00,38,9b,71
"{1da5d803-d492-4edd-8c23-e0c0ffee7f0e},3"=dword:0000003f
"{1da5d803-d492-4edd-8c23-e0c0ffee7f0e},6"=dword:0000003f
"{327ad131-6be1-4ca0-aa28-9725a6367d0c},0"=dword:00000000
"{b3f8fa53-0004-438e-9003-51a46e139bfc},4"=dword:00000001


Foreigner 10-02-2014 07:46 2306356

Нужный параметр можно искать с помощью reg query:
Код:

@echo off
setlocal

set "regpath=hklm\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render"
                                                                                       
for /f "tokens=*" %%i in (' "reg query "%regpath%" /s | findstr "FxProperties"" ') do (

        reg query "%%i" | findstr ".*},1[4-6]"
       
)


krot183 10-02-2014 10:34 2306405

Foreigner, Находит но пишет "Недопустимое имя раздела".В пути *\Render два раздела {SID}\FxProperties.
reg add "%%i" /v {4b361010-def7-43a1-a5dc-071d955b62f7},14 /t reg_dword /d 1 тоже пишет "Недопустимое имя раздела".Искал в инете другие варианты с reg query пока не выходит.

krot183 10-02-2014 19:29 2306764

В общем получилось найти параметр и создать переменную через reg query.Но reg add не хочет добавлять параметры в реестр пишет "Отказано в доступе".
Код:

@echo off
set "regpath=hklm\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render"
set a=""                                                                                       
for /f "skip=3 tokens=*" %%i in (' "reg query "%regpath%" /s | findstr "FxProperties"" ') do set a=%%i
reg add "%a%" /v "{4b361010-def7-43a1-a5dc-071d955b62f7},14" /t reg_dword /d "0x1" /f
reg add "%a%" /v "{4b361010-def7-43a1-a5dc-071d955b62f7},15" /t REG_BINARY /d "4100f87301000000fcfffffff8fffffff6ffffff0000000000000000faffffff0000000000000000" /f
reg add "%a%" /v "{4b361010-def7-43a1-a5dc-071d955b62f7},16" /t REG_BINARY /d "4100f8730100000000000000f4010000f4010000f401000000000000f4010000f40100004a0100004a010000" /f

Через reg файл вносятся без проблем.От имени Администратор тоже не работает reg add

Iska 10-02-2014 21:44 2306862

krot183, вопрос в следующем: как определить, какой из нескольких разделов в:
Код:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render
искомый? Например, в том примере, что Вы по моей просьбе привели выше — их два. Как выбрать из них потребный? По каким признакам?

krot183 10-02-2014 22:32 2306911

Iska, Нужен раздел {75a38608-57f5-412d-a267-62e7cce381c1} в нём параметр {4b361010-def7-43a1-a5dc-071d955b62f7},14
Первый скрипт определял наверно по параметру {4b361010-def7-43a1-a5dc-071d955b62f7},14 но он не работает с reg_binary.
Вот первый скрипт немного переделанный чем в шапке который у меня работал с reg_dword и reg_sz
Код:

Option Explicit

Dim SectionName
Dim tmpRegFile
Dim FindValue
Dim AddValue
Dim objWSS
Dim objFSO
Dim RegFile
Dim CurrSection
Dim GetLine
Dim KeyName
Dim strPrompt
Dim ReturnValue

SectionName = "HKEY_LOCAL_MACHINE\SOFTWARE"
tmpRegFile  = "F:\tmp.reg"
FindValue  = "{4b361010-def7-43a1-a5dc-071d955b62f7},14"
AddValue    = "00000001"

Set objWSS = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

objWSS.Run "regedit /e " & tmpRegFile & " """ & SectionName & """", 2, True

Set RegFile = objFSO.OpenTextFile(tmpRegFile, 1, True, -1)

Do While RegFile.AtEndOfStream <> True
  GetLine = RegFile.ReadLine
  If Left(GetLine, 6) = "[HKEY_" Then
    CurrSection = Mid(GetLine, 2, Len(GetLine) - 2)
  Else
    If InStr(GetLine, FindValue) Then
        KeyName = Replace(Split(GetLine, "=")(0), """", "")       
        If KeyName = "@" Then KeyName = ""
        objWSS.RegWrite CurrSection & "\" & KeyName, AddValue, "REG_DWORD"
      ElseIf ReturnValue = 2 Then
        Exit Do
      End If
    End If
  Loop

RegFile.Close

'Следующая строка закомментирована для возможности отката изменений
'objFSO.DeleteFile tmpRegFile 

Set objWSS = Nothing
Set objFSO = Nothing

WScript.Quit

Вот ссылка где брал скрипт на этом форуме
http://forum.oszone.net/thread-212568.html

Iska 10-02-2014 22:49 2306936

Цитата:

Цитата krot183
Iska, Нужен раздел {75a38608-57f5-412d-a267-62e7cce381c1} »

Как определили, что именно этот, а не «{5e6adf67-f7ea-4c27-a9bb-a87213274fe4}», или какой-нибудь другой, або третий или четвёртый аналогичный раздел, буде таковые?

krot183 10-02-2014 23:06 2306951

Iska, Я отслеживал настройки через Regshot а потом проверял каждый параметр чтобы удалить лишнее.В {75a38608-57f5-412d-a267-62e7cce381c1} три параметра которые включают поправку на помещение ,изменяют настройки расстояния до колонок и громкость в db на каждую колонку.

Сделал батник но там тоже проблема нет разрешений на ветку реестра.

Iska 10-02-2014 23:21 2306962

krot183, я могу повторить вопрос и в третий раз.

Выше Вы пишете, что имя подраздела «{75a38608-57f5-412d-a267-62e7cce381c1}» разное на разных машинах, кроме того, меняется при переустановке. В примере, который Вы выше выкладывали по моей просьбе, два подраздела. Я спрашиваю Вас, как определить нужный подраздел среди прочих, когда их будет два, три, четыре и более?

krot183 10-02-2014 23:29 2306968

Iska, Параметры в этом разделе не меняются.Меняется только {SID} раздела {75a38608-57f5-412d-a267-62e7cce381c1}

Искать по параметрам раздела.

Если бы знал как правильно написать не спрашивал бы.

Iska 11-02-2014 00:03 2306989

Цитата:

Цитата krot183
Iska, Параметры в этом разделе не меняются.Меняется только {SID} раздела {75a38608-57f5-412d-a267-62e7cce381c1} »

Правильно ли я понимаю, что Вы утверждаете (и гарантируете), что разделы:
Код:

{4b361010-def7-43a1-a5dc-071d955b62f7},14
{4b361010-def7-43a1-a5dc-071d955b62f7},16
{4b361010-def7-43a1-a5dc-071d955b62f7},15

могут находиться исключительно в одном (и только в одном!) из разделов «HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render\SID's», так?

krot183 11-02-2014 08:51 2307076

Iska, да.

krot183 16-02-2014 20:49 2310087

Помогите хто нибудь со скриптом не получается ничё.

Iska 17-02-2014 08:01 2310317

Код:

Option Explicit

Const HKEY_LOCAL_MACHINE = &H80000002

Dim strComputer
Dim strKey
Dim arrParameters

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim objSWbemObjectEx

Dim arrSubKeys
Dim strSubKey

Dim objRegExp

Dim arrParameter
Dim lngValue
Dim arrValues
Dim boolFound
Dim strResult


strComputer  = "."
strKey        = "SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render"
arrParameters = Array( _
        Array("{4b361010-def7-43a1-a5dc-071d955b62f7},14", "DWORD"), _
        Array("{4b361010-def7-43a1-a5dc-071d955b62f7},15", "BINARY"), _
        Array("{4b361010-def7-43a1-a5dc-071d955b62f7},16", "BINARY") _
)


Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\default")
Set objSWbemObjectEx  = objSWbemServicesEx.Get("StdRegProv")

If objSWbemObjectEx.EnumKey(HKEY_LOCAL_MACHINE, strKey, arrSubKeys) = 0 Then
        If Not IsNull(arrSubKeys) Then
                Set objRegExp = WScript.CreateObject("VBScript.RegExp")
                objRegExp.Pattern = "^\{[\da-fA-F]{8}(?:-[\da-fA-F]{4}){3}-[\da-fA-F]{12}}$"
               
                For Each strSubKey In arrSubKeys
                        If objRegExp.Test(strSubKey) Then
                                boolFound = True
                               
                                For Each arrParameter In arrParameters
                                        Select Case arrParameter(1)
                                                Case "DWORD"
                                                        If objSWbemObjectEx.GetDWORDValue(HKEY_LOCAL_MACHINE, strKey & "\" & strSubKey & "\FxProperties", arrParameter(0), lngValue) <> 0 Then
                                                                boolFound = False
                                                        End If
                                                Case "BINARY"
                                                        If objSWbemObjectEx.GetBinaryValue(HKEY_LOCAL_MACHINE, strKey & "\" & strSubKey & "\FxProperties", arrParameter(0), arrValues) <> 0 Then
                                                                boolFound = False
                                                        End If
                                                Case Else
                                                        ' Not implemented
                                        End Select
                                Next
                               
                                If boolFound Then
                                        strResult = "HKLM\" & strKey & "\" & strSubKey
                                        WScript.Echo strResult
                                       
                                        Exit For
                                End If
                        End If
                Next
               
                Set objRegExp = Nothing
               
                If Not boolFound Then
                        WScript.Echo "Can't find any right subkey in [HKLM\" & strKey & "]."
                        WScript.Quit 3
                End If
        Else
                WScript.Echo "Nothing found in [HKLM\" & strKey & "]."
                WScript.Quit 2
        End If
Else
        WScript.Echo "Not found subkey [HKLM\" & strKey & "]."
        WScript.Quit 1
End If

Set objSWbemObjectEx  = Nothing
Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0


krot183 17-02-2014 08:30 2310328

Iska, А где вводить значения или это просто поиск?

Iska 17-02-2014 08:51 2310335

Цитата:

Цитата krot183
А где вводить значения »

Какие значения?

krot183 17-02-2014 09:00 2310344

Значения параметров "{4b361010-def7-43a1-a5dc-071d955b62f7},14"
"{4b361010-def7-43a1-a5dc-071d955b62f7},15"
"{4b361010-def7-43a1-a5dc-071d955b62f7},16"

Если это просто поиск я могу убрать вывод сообщения из этого скрипта и объединить со вторым скриптом из шапки чтобы менялись значения в параметрах?

Iska 17-02-2014 09:08 2310349

Разве Вы говорили что-либо про изменение параметров? Вы писали:
Цитата:

Цитата krot183
Нужно найти параметр реестра в ветке HKLM не зная полного пути к нему и создать переменную с полным путём к этому параметру. »

Полный путь к параметру будет в переменной «strResult». Или не будет.

Так Вам что на самом деле нужно сделать?

krot183 17-02-2014 09:11 2310352

Iska, Изменить значения в параметрах.Спасибо.Я вроде понял как это сделать. Прийду с работы попробую и отпишусь.

Iska 17-02-2014 09:27 2310359

Цитата:

Цитата krot183
Изменить значения в параметрах. »

1. В каких именно параметрах?
2. На что именно изменить?

krot183 17-02-2014 10:32 2310391

Iska, Вот что и на что надо изменить
Код:


"{4b361010-def7-43a1-a5dc-071d955b62f7},14"=dword:00000001

"{4b361010-def7-43a1-a5dc-071d955b62f7},16"=hex:41,00,f8,73,01,00,00,00,00,00,\
  00,00,f4,01,00,00,f4,01,00,00,f4,01,00,00,00,00,00,00,f4,01,00,00,f4,01,00,\
  00,4a,01,00,00,4a,01,00,00

"{4b361010-def7-43a1-a5dc-071d955b62f7},15"=hex:41,00,f8,73,01,00,00,00,fc,ff,\
  ff,ff,f8,ff,ff,ff,f6,ff,ff,ff,00,00,00,00,00,00,00,00,fa,ff,ff,ff,00,00,00,\
  00,00,00,00,00

Не вышло у меня изменить параметры

krot183 17-02-2014 11:11 2310406

Iska, Огромное спасибо! Всё получилось.Вот что у меня вышло
Код:

Option Explicit

Const HKEY_LOCAL_MACHINE = &H80000002

Dim strComputer
Dim strKey
Dim arrParameters

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim objSWbemObjectEx

Dim arrSubKeys
Dim strSubKey

Dim objRegExp

Dim arrParameter
Dim lngValue
Dim arrValues
Dim boolFound
Dim strResult

Dim AddValue1
Dim AddValue2
Dim AddValue3
Dim FindValue1
Dim FindValue2
Dim FindValue3


strComputer  = "."
strKey        = "SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render"
FindValue1    = "{4b361010-def7-43a1-a5dc-071d955b62f7},14"
FindValue2    = "{4b361010-def7-43a1-a5dc-071d955b62f7},15"
FindValue3    = "{4b361010-def7-43a1-a5dc-071d955b62f7},16"
AddValue1    = 1
AddValue2    = Array(&H41,&H00,&Hf8,&H73,&H01,&H00,&H00,&H00,&Hfc,&Hff,&Hff,&Hff,&Hf8,&Hff,&Hff,&Hff,&Hf6,&Hff,&Hff,&Hff,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&Hfa,&Hff,&Hff,&Hff,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00)
AddValue3    = Array(&H41,&H00,&Hf8,&H73,&H01,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&Hf4,&H01,&H00,&H00,&Hf4,&H01,&H00,&H00,&Hf4,&H01,&H00,&H00,&H00,&H00,&H00,&H00,&Hf4,&H01,&H00,&H00,&Hf4,&H01,&H00,&H00,&H4a,&H01,&H00,&H00,&H4a,&H01,&H00,&H00)
arrParameters = Array( _
        Array("{4b361010-def7-43a1-a5dc-071d955b62f7},14", "DWORD"), _
        Array("{4b361010-def7-43a1-a5dc-071d955b62f7},15", "BINARY"), _
        Array("{4b361010-def7-43a1-a5dc-071d955b62f7},16", "BINARY") _
)


Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\default")
Set objSWbemObjectEx  = objSWbemServicesEx.Get("StdRegProv")

If objSWbemObjectEx.EnumKey(HKEY_LOCAL_MACHINE, strKey, arrSubKeys) = 0 Then
        If Not IsNull(arrSubKeys) Then
                Set objRegExp = WScript.CreateObject("VBScript.RegExp")
                objRegExp.Pattern = "^\{[\da-fA-F]{8}(?:-[\da-fA-F]{4}){3}-[\da-fA-F]{12}}$"
               
                For Each strSubKey In arrSubKeys
                        If objRegExp.Test(strSubKey) Then
                                boolFound = True
                               
                                For Each arrParameter In arrParameters
                                        Select Case arrParameter(1)
                                                Case "DWORD"
                                                        If objSWbemObjectEx.GetDWORDValue(HKEY_LOCAL_MACHINE, strKey & "\" & strSubKey & "\FxProperties", arrParameter(0), lngValue) <> 0 Then
                                                                boolFound = False
                                                        End If
                                                Case "BINARY"
                                                        If objSWbemObjectEx.GetBinaryValue(HKEY_LOCAL_MACHINE, strKey & "\" & strSubKey & "\FxProperties", arrParameter(0), arrValues) <> 0 Then
                                                                boolFound = False
                                                        End If
                                                Case Else
                                                        ' Not implemented
                                        End Select
                                Next
                               
                                If boolFound Then
                                        strResult = "HKLM\" & strKey & "\" & strSubKey
                                       
                                        Exit For
                                End If
                        End If
                Next
               
                Set objRegExp = Nothing
               
                If Not boolFound Then
                        WScript.Echo "Can't find any right subkey in [HKLM\" & strKey & "]."
                        WScript.Quit 3
                End If
        Else
                WScript.Echo "Nothing found in [HKLM\" & strKey & "]."
                WScript.Quit 2
        End If
Else
        WScript.Echo "Not found subkey [HKLM\" & strKey & "]."
        WScript.Quit 1
End If

objSWbemObjectEx.SetDWORDValue HKEY_LOCAL_MACHINE, strKey & "\" & strSubKey & "\FxProperties", FindValue1, AddValue1
objSWbemObjectEx.SetBinaryValue HKEY_LOCAL_MACHINE, strKey & "\" & strSubKey & "\FxProperties", FindValue2, AddValue2
objSWbemObjectEx.SetBinaryValue HKEY_LOCAL_MACHINE, strKey & "\" & strSubKey & "\FxProperties", FindValue3, AddValue3

Set objSWbemObjectEx  = Nothing
Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0


Iska 18-02-2014 07:42 2310898

Вообще-то вот так:
Код:

Option Explicit

Const HKEY_LOCAL_MACHINE = &H80000002

Dim strComputer
Dim strKey
Dim arrParameters

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim objSWbemObjectEx

Dim arrSubKeys
Dim strSubKey

Dim objRegExp

Dim arrParameter
Dim lngValue
Dim arrValues
Dim boolFound
Dim strResult


strComputer  = "."
strKey        = "SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render"
arrParameters = Array( _
        Array("{4b361010-def7-43a1-a5dc-071d955b62f7},14", "DWORD", 1), _
        Array("{4b361010-def7-43a1-a5dc-071d955b62f7},15", "BINARY", Array(&H41,&H00,&Hf8,&H73,&H01,&H00,&H00,&H00,&Hfc,&Hff,&Hff,&Hff,&Hf8,&Hff,&Hff,&Hff,&Hf6,&Hff,&Hff,&Hff,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&Hfa,&Hff,&Hff,&Hff,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00)), _
        Array("{4b361010-def7-43a1-a5dc-071d955b62f7},16", "BINARY", Array(&H41,&H00,&Hf8,&H73,&H01,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&Hf4,&H01,&H00,&H00,&Hf4,&H01,&H00,&H00,&Hf4,&H01,&H00,&H00,&H00,&H00,&H00,&H00,&Hf4,&H01,&H00,&H00,&Hf4,&H01,&H00,&H00,&H4a,&H01,&H00,&H00,&H4a,&H01,&H00,&H00)) _
)


Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\default")
Set objSWbemObjectEx  = objSWbemServicesEx.Get("StdRegProv")

If objSWbemObjectEx.EnumKey(HKEY_LOCAL_MACHINE, strKey, arrSubKeys) = 0 Then
        If Not IsNull(arrSubKeys) Then
                Set objRegExp = WScript.CreateObject("VBScript.RegExp")
                objRegExp.Pattern = "^\{[\da-fA-F]{8}(?:-[\da-fA-F]{4}){3}-[\da-fA-F]{12}}$"
               
                For Each strSubKey In arrSubKeys
                        If objRegExp.Test(strSubKey) Then
                                boolFound = True
                               
                                For Each arrParameter In arrParameters
                                        Select Case arrParameter(1)
                                                Case "DWORD"
                                                        If objSWbemObjectEx.GetDWORDValue(HKEY_LOCAL_MACHINE, strKey & "\" & strSubKey & "\FxProperties", arrParameter(0), lngValue) <> 0 Then
                                                                boolFound = False
                                                        End If
                                                Case "BINARY"
                                                        If objSWbemObjectEx.GetBinaryValue(HKEY_LOCAL_MACHINE, strKey & "\" & strSubKey & "\FxProperties", arrParameter(0), arrValues) <> 0 Then
                                                                boolFound = False
                                                        End If
                                                Case Else
                                                        ' Not implemented
                                        End Select
                                Next
                               
                                If boolFound Then
                                        For Each arrParameter In arrParameters
                                                Select Case arrParameter(1)
                                                        Case "DWORD"
                                                                If objSWbemObjectEx.SetDWORDValue(HKEY_LOCAL_MACHINE, strKey & "\" & strSubKey & "\FxProperties", arrParameter(0), arrParameter(2)) <> 0 Then
                                                                        WScript.Echo "Can't set DWord Value into parameter [HKLM\" & strKey & "\" & strSubKey & "\FxProperties" & "\" & arrParameter(0) & "]."
                                                                End If
                                                        Case "BINARY"
                                                                If objSWbemObjectEx.SetBinaryValue(HKEY_LOCAL_MACHINE, strKey & "\" & strSubKey & "\FxProperties", arrParameter(0), arrParameter(2)) <> 0 Then
                                                                        WScript.Echo "Can't set Binary Value into parameter [HKLM\" & strKey & "\" & strSubKey & "\FxProperties" & "\" & arrParameter(0) & "]."
                                                                End If
                                                        Case Else
                                                                ' Not implemented
                                                End Select
                                        Next
                                       
                                        Exit For
                                End If
                        End If
                Next
               
                Set objRegExp = Nothing
               
                If Not boolFound Then
                        WScript.Echo "Can't find any right subkey in [HKLM\" & strKey & "]."
                        WScript.Quit 3
                End If
        Else
                WScript.Echo "Nothing found in [HKLM\" & strKey & "]."
                WScript.Quit 2
        End If
Else
        WScript.Echo "Not found subkey [HKLM\" & strKey & "]."
        WScript.Quit 1
End If

Set objSWbemObjectEx  = Nothing
Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0


krot183 18-02-2014 08:52 2310926

Iska, Спасибо работает.

evgeny_t 06-05-2016 12:36 2632418

Товарищи знатоки, помогите пожалуйста изменить код этого скрипта, чтобы замена происходила автоматом, без подтверждений и уведомлений, в случае нахождения искомого значения в указанной ветке.



Код:

Option Explicit

Dim SectionName
Dim tmpRegFile
Dim FindValue
Dim AddValue
Dim objWSS
Dim objFSO
Dim RegFile
Dim CurrSection
Dim GetLine
Dim KeyName
Dim strPrompt
Dim ReturnValue

SectionName = "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook"
tmpRegFile  = "d:\tmp.reg"
FindValue  = "YYY.XXX.ru"
AddValue    = "ZZZ.XXX.ru"

Set objWSS = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

objWSS.Run "regedit /e " & tmpRegFile & " """ & SectionName & """", 2, True

Set RegFile = objFSO.OpenTextFile(tmpRegFile, 1, True, -1)

Do While RegFile.AtEndOfStream <> True
  GetLine = RegFile.ReadLine
  If Left(GetLine, 6) = "[HKEY_" Then
    CurrSection = Mid(GetLine, 2, Len(GetLine) - 2)
  Else
    If InStr(GetLine, FindValue) Then
      strPrompt = "Вы желаете заменить значение ключа " & GetLine & vbNewLine & _
                  "в разделе " & CurrSection & vbNewLine & _
                  "на значение """ & AddValue & """?"
      ReturnValue = MsgBox(strPrompt, 35, "Замена в реестре")
      If ReturnValue = 6 Then
        KeyName = Replace(Split(GetLine, "=")(0), """", "")       
        If KeyName = "@" Then KeyName = ""
        objWSS.RegWrite CurrSection & "\" & KeyName, AddValue, "REG_SZ"
      ElseIf ReturnValue = 2 Then
        Exit Do
      End If
      objWSS.RegWrite CurrSection & "\" & KeyName, AddValue, "REG_SZ" 
    End If
  End If
Loop

RegFile.Close

'Следующая строка закомментирована для возможности отката изменений
'objFSO.DeleteFile tmpRegFile 

Set objWSS = Nothing
Set objFSO = Nothing
'MsgBox "Скрипт завершил работу"

WScript.Quit



Время: 01:36.

Время: 01:36.
© OSzone.net 2001-