Правильный формат имени размещенного кэша в реестре

Microsoft.Windows.BranchCache.HostedCacheClient.FixLocationTask (Task)

Эта задача исправляет формат расположения размещенного кэша путем добавления нулевого символа в конце. Эта задача устраняет проблему с неправильным обнаружением клиентов размещенного кэша.

Element properties:

Member Modules:

Source Code:

<Task ID="Microsoft.Windows.BranchCache.HostedCacheClient.FixLocationTask" Accessibility="Public" Enabled="true" Target="Microsoft.Windows.BranchCache.HostedCacheClientNode" Timeout="600" Remotable="true">

  <Category>Operations</Category>

  <ProbeAction ID="Script" TypeID="Windows!Microsoft.Windows.ScriptProbeAction">

    <ScriptName>Microsoft.Windows.BranchCache.HostedCacheClient.FixLocation.vbs</ScriptName>

    <Arguments/>

    <ScriptBody><Script>Option Explicit

On Error Resume Next



SetLocale("en-us")



Dim WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")



Dim location



Err.Clear

location = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\PeerDist\HostedCache\Connection\Location")

If Err.Number &lt;&gt; 0 Then

    WScript.Echo "Error: " &amp; HEX(err.number)

    WScript.Quit()

End If

If location = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\PeerDist\HostedCache\Connection\Location" Then

    WScript.Echo "Set the location key to empty"

    Err.Clear

    WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\PeerDist\HostedCache\Connection\Location","","REG_SZ"

Else

    WScript.Echo "The hosted cache location is set as: " &amp; location

End If</Script></ScriptBody>

    <TimeoutSeconds>600</TimeoutSeconds>

  </ProbeAction>

</Task>