windows 10:動的に作成されたレジストリキーのレジストリ値を変更する

応答1# ->にスキップ

2 #

mgorski 2019-04-22 22:47

???????????.

?????????????????.?????????????????.??????????nircmd?????????????????????????????.???????????????????????????????????
?????.???????????????????????????????:

• ???????????????????????????????????????????.????RegState???DeviceState??????1(?????)??10000001(??)???????
  ??.
• devcon????????????????????.
• ?????????>????>????????????????????>?????>?????????????????????????????DeviceState?10000001??????.???????????????????????????.
  ???????.
• DeviceState????10000001????????????????????????????.?????????????????????????????????????????????.
• ??????????????????????????????HKLM\SOFjpARE\Microsoft\Windows\CurrentVersion\MMDevices???.\Audio\Capture\{af45fadf-1fb3-4576-bd59-48ab1eb861b5}?????????????????????GUID?{d4ce43de-9eb9-4714-977a-3482b2e74460.}????????.
  ???????????????????????????????????????.
• ???????????????????????????????????{a45c254e-df1c-4efd-8020-67d146a850e0}?2????????????HKLM\SOFjpARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Capture\\Properties?????Microphone Array?????????.
  ?????????????????????.

???

応答2# ->にスキップ

3 #

Frederi 2019-04-23 02:41

以下のスクリプトが生成するものをご覧ください.指定したレジストリキーを再帰的に調べ、見つかったと思われる一意の値を探します.次に、自動的に開くデスクトップファイルに結果を記録します.スクリプトを保存する必要があります
.vbs拡張子.DisableMike.vbsとして.

応答3# ->にスキップ

4 #

mgorski 2019-04-23 06:11

???????????????????????.

Capture\{2b3a81a2-0ec5-41ba-8870-1b802a16b44f}\Properties {a45c254e-df1c-4efd-8020-67d146a850e0}?2 8
Capture\{d4ce43de-9eb9-4714-977a-3482b2e74460}\Properties {a45c254e-df1c-4efd-8020-67d146a850e0}?2 Realtek Audio 1
Capture\{f5f7d5e1-50f9-4ca7-a920-97b1122e8c93}\Properties {a45c254e-df1c-4efd-8020-67d146a850e0}?2 Realtek Audio

??????????????Microphone Array?????????????????????????????????.????????????????????????????????????????????????????????????.

応答4# ->にスキップ

5 #

Frederi 2019-04-23 07:05

関連するブランチをエクスポートし、それをいくつかのクラウドストレージにアップロードして、リンクをここに投稿できます.

応答5# ->にスキップ

6 #

mgorski 2019-04-23 22:33

私は関係のないものをテストしていたので、昨夜テストマシンのイメージを再作成しました.スクリプトを再実行しましたが、次の結果が返されました:

Capture\{1b5e524e-ca5f-456a-bb2f-55fe53a5cfbe}\Properties {a45c254e-df1c-4efd-8020-67d146a850e0}、2 1
Capture\{4004cda5-eaec-4f01-aebf-71adf725b31b}\Proties {a45c254e-df1c-4efd-8020-67d146a850e0}、2 Realtek Audio 268435457
Capture\{cf24af56-9356-46d2-a3f8-d6fede59548c}\Properties {a45c254e-df1c-4efd-8020-67d146a850e0}、2 Realtek Audio

関連するレジストリキーをエクスポートして、One Driveに投稿しました.リンクは以下のとおりです.

応答6# ->にスキップ

7 #

Frederi 2019-04-24 02:26

スクリプトは正しいキー、値、およびデータを読み取りましたが、予想していたすべてのフィールドを出力しませんでした.このバリアントを試してください:

'

---

-
'指定した「キー」と「値」の「DeviceState」レジストリデータを抽出します
'23.4.2019 FNL
'

---

-
sMainKey="SOFjpARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Capture "
MyValue="{a45c254e-df1c-4efd-8020-67d146a850e0}、2 "The script looks for this value
Dim HKLM、oFSO、oWshShell、oReg、sLog、 oLog、iState、sName、sMike、sNameValue、sMikeValue
Prepare
ProcessKey(sMainKey)
oLog.Close
oWshShell.Run "notepad.exe" ""&sLog& "" ""、1 、False
'

---

-
'指定されたレジストリキーを再帰的に処理します
'

---

-
Sub ProcessKey(sKey)
oReg.EnumKey HKLM、sKey、aSubKeys
If IsArray(aSubKeys)Then
For Each sSubkey In aSubKeys
CheckValues sKey& "\"&sSubkey
ProcessKey sKey& "\"&sSubkey
Next
End If
End Sub
'

---

-
'名目上のレジストリキーの下のすべての値を調べます
'MyValueに一致するものをログに記録します
'

---

-
Sub CheckValues(sCurrentKey)
oReg.EnumValues H KLM、sCurrentKey、aValues、aTypes
If IsArray(aValues)Then
For i=0 To UBound(aValues)
Select Case aValues(i)
Case "DeviceState"
iState=oWshShell.RegRead( "HKLM \"&sCurrentKey& "\DeviceState")
Case MyValue
sName=oWshShell.RegRead( "HKLM \"&sCurrentKey& "\"&sNameValue)
sMike=oWshShell.RegRead ( "HKLM \"&sCurrentKey& "\"&sMikeValue)
Log.WriteLine Mid(sCurrentKey、59)& ""&aValues(i)_
& "、"&sName& "、"&sMike & "、State=$"&Hex(iState)
End Select
Next
End If
End Sub
'

---

-
' Prepare a few things
'

---

-
Sub Prepare
HKLM =&H80000002
Set oWshShell=CreateObject( "Wscript.shell")
Set oFSO=CreateObject( "scripting.FileSystemObject")
Set oReg=GetObject( "Winmgmts:{impersonationLevel=impersonate}！\\.\root\defaul t:StdRegProv ")
sLog=oWshShell.ExpandEnvironmentStrings("%UserProfile%\Desktop\Log.txt ")
Set oLog=oFSO.CreateTextFile(sLog、True)
sNameValue="{b3f8fa53-0004-438e-9003-51a46e139bfc}、6 "
sMikeValue="{a45c254e-df1c-4efd-8020-67d146a850e0}、2 "
End Sub

応答7# ->にスキップ

8 #

mgorski 2019-04-25 04:13

最後のスクリプトを実行した結果は以下のとおりです.

apture\{1b5e524e-ca5f-456a-bb2f-55fe53a5cfbe}\Properties {a45c254e-df1c-4efd-8020-67d146a850e0}、2、Realtek Audio、Microphone Array、State=$ 1
apture\{4004cda5-eaec-4f01-aebf-71adf725b31b}\Properties {a45c254e-df1c-4efd-8020-67d146a850e0}、2、Realtek Audio、Stereo Mix、State=$ 10000001
apture\{cf24af56-9356-46d2-a3f8-d6fede59548c}\Properties {a45c254e-df1c-4efd-8020-67d146a850e0}、2、Realtek Audio、Jack Mic、State=$ 8

応答8# ->にスキップ

9 #

Frederi 2019-04-25 06:13

???.