パスの指定について(長文です。)

質問

お世話になっています、WSHにてレジストリを追記するスクリプトを作成していますが躓いてしまいました。お手数ですが、力をお貸しください。
求めるものは特定のパスにキーを追加し、値を代入することです。
下記のスクリプトを実行すると、[List]の下に[c:]-[program files]…
と作成されてしまいます。[List]の下に[c:\program files\internet explorer\iexplore.exe]を作成指定と考えています。

strTime.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List" & "C:\\Program Files\\Internet Explorer\\iexplore.exe","C:\\Program Files\\Internet Explorer\\iexplore.exe:192.168.1.1/255.255.255.255,192.168.1.1/255.255.255.255:Enabled:Internet Explorer","REG_SZ"

以上、お手数をお掛けいたしますがご存知の方知恵を貸してください。

回答No.1

venzou

List" の後に & "C:\\Program・・・ となってますが、これが不要では？

strTime.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List","C:\\Program Files\\Internet Explorer\\iexplore.exe:192.168.1.1/255.255.255.255,192.168.1.1/255.255.255.255:Enabled:Internet Explorer","REG_SZ"

動作確認はしてません。

お礼

解決しました。

WMIを使用し以下のように設定することで要件を満たすことが出来ました。ありがとうございます。

Set objStdReg = GetObject("winmgmts:\\.\root\Default:StdRegProv")
nRet = objStdReg.SetStringValue(&H80000002,"SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List","C:\Program Files\Internet Explorer\iexplore.exe","C:\Program Files\Internet Explorer\iexplore.exe:192.168.1.1/255.255.255.255,192.168.1.1/255.255.255.255:Enabled:Internet Explorer")
If nRet <> 0 Then MsgBox "Err:No." & nRet
Set objStdReg =Nothing

補足

ご回答ありがとうございました。

ご連絡のように行ってみましたが現象はかわらずでした。