Как создать ветку реестра на удаленнок компьютере через vbs путем поиска по strSID?
Где ошибка?
On Error Resume Next
const HKEY_USERS = &H80000003
UserName = "USERNAME" 'имя пользователя Windows, HKEY_CURRENT_USER которого надо прочитать на другой машине
CompName = "train-plazma" 'имя компьютера, на котором надо читать реестр
Key = "AppEvents" 'подраздел в 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
'Создание разделов
intRes = objReg.CreateKey(HKEY_USER, "test\tes1")
If intRes <> 0 Then
WScript.Echo intRes & ": не удалось создать разделы реестра"
WScript.Quit
End If
'Создание параметров
intRes = objReg.SetStringValue(HKEY_USER, "test\test1", "test_par", "test_val")
If intRes <> 0 Then
WScript.Echo intRes & ": не удалось установить параметр ""HKEY_USER\test\test1\test_par"""
WScript.Quit
End If
intRes = objReg.SetStringValue(HKEY_CURRENT_USER, "AppEvents", "", "MyDefaultValue")
If intRes <> 0 Then
WScript.Echo intRes & ": не удалось установить параметр ""HKEY_USER\AppEvents\(По умолчанию)"""
WScript.Quit
End If
'Вывод сообщений
WScript.Echo "Созданы параметры:"
WScript.Echo "HKEY_USER\AppEvents\test\test1\test_par (значение ""test_val"")"
WScript.Echo "HKEY_USER\AppEvents\(По умолчанию) (значение ""MyDefaultValue"")"
