Скрипт для копирования веток реестра

On Error Resume Next
const HKEY_USERS = &H80000003
UserName = "SuperUser" 'имя пользователя Windows, HKEY_CURRENT_USER которого надо прочитать на другой машине
CompName = "SuperComputer" 'имя компьютера, на котором надо читать реестр
Key = "Software\1C\1Cv7\7.7\Titles" 'подраздел в HKEY_CURRENT_USER, который надо прочитать
'получение SID пользователя
Set objWMIService = GetObject("winmgmts:{ImpersonationLevel=Impersonate}!\\.\root\cimv2")
If Err.Number <> 0 Then
    WScript.Echo Err.Number & ": " & Err.Description
    WScript.Quit
End If
Set colItems = objWMIService.ExecQuery("Select * from Win32_UserAccount WHERE Name = """ & UserName & """")
For Each objItem in colItems
    strSID = Trim(objItem.SID)
    Exit For
Next
'собственно чтение реестра
Set oReg = GetObject("winmgmts:{ImpersonationLevel=Impersonate}!\\" & CompName & "\root\default:StdRegProv")
If Err.Number <> 0 Then
    WScript.Echo Err.Number & ": " & Err.Description
    WScript.Quit
End If
strKeyPath = strSID & "\" & Key
intRes = oReg.EnumValues(HKEY_USERS, strKeyPath, arrValues)
If intRes <> 0 Then
    WScript.Echo intRes & ": не удалась прочитать раздел ""HKEY_USERS\" & strKeyPath & """"
    WScript.Quit
End If
For i = LBound(arrValues) To UBound(arrValues)
    intRes = oReg.GetStringValue(HKEY_USERS, strKeyPath, arrValues(i), Val)
    If intRes <> 0 Then
        WScript.Echo intRes & ": не удалась прочитать значение параметра ""HKEY_USERS\" & _
                     strKeyPath & "\" & arrValues(i) & """"
        WScript.Quit
    End If
    WScript.Echo Val
Next