Base:レジストリを変更する vb スクリプトの短い部分があります。
key = "Software\Microsoft\Windows\CurrentVersion\Explorer\Streams"
result = wmireg.CreateKey(HKCU, key)
binaer = Array(8,0,0,0,6,0,0,0,0,0,0,0,229,37,241,101,225,123,16,72,186,157,210,113,200,67,44,227,4,0,0,0,3,0,0,0,67,0,0,0)
result = wmireg.SetBinaryValue(HKCU, key,"Settings",binaer)
key ="Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Defaults"
result = wmireg.CreateKey(HKCU, key)
binaer = Array(28,0,0,0,5,0,0,0,0,0,3,0,0,0,144,0,0,0,0,0,1,0,0,0,255,255,255,255,240,240,240,240,20,0,3,0,144,0,0,0,0,0,0,0,48,0,0,0,253,223,223,253,15,0,4,0,32,0,16,0,40,0,60,0,0,0,0,0,1,0,0,0,2,0,0,0,3,0,0,0,42,1,96,0,120,0,120,0,0,0,0,0,1,0,0,0,2,0,0,0,3,0,0,0,255,255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
result = wmireg.SetBinaryValue(HKCU,key,"{F3364BA0-65B9-11CE-A9BA-00AA004AE837}", binaer)
問題:このスニペットでは、エクスプローラーのデフォルト ビューがタイル ビューに設定されます。Windows XP ではすべて正常に動作します。これをWindows 8に翻訳しようとしていますが、うまくいきません。
Process Monitorを使用して、UI を使用してこの手順を手動で実行した場合に設定されるレジストリ キーの値を把握しました。
Windows 8 では、キー:
HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Settings
次のように設定されます。
08 00 00 00 06 00 00 00 01 00 00 00 E5 25 F1 65
そして鍵：
HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Defaults\{5C4F28B5-F869-4E84-8E60-F11DB97C5CC7}
に設定されます
1C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
Windows XP では、スクリプト、再起動 (またはログアウト-ログイン) によってこの値を変更できます。デフォルトのビューはタイル ビューです。しかし、Windows 8 では何も起こりません。
vbs を Windows 8 の値に変更しました。スクリプトが完了すると、レジストリの値が正常に変更されます。しかし、エクスプローラーを開くと、他のビューは適用されません。