На удаленном компьютере должна быть запущена служба Удаленный реестр . Затем вы можете использовать WMI для подключения реестра. Вот пример сценария кода с этого сайта :
Dim strComputer
Dim strUserName
Dim strPassword
Dim objLocator
Dim objService
Dim objRegistry
strComputer = "somesys"
strUserName = "somename"
strPassword = "somepw"
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objService = objLocator.ConnectServer( strComputer, _
"Root\Default", strUserName, strPassword )
objService.Security_.impersonationlevel = 3
Set objRegistry = objService.Get( "StdRegProv" )
'Do something here like retrieving or setting values.
Set objRegistry = Nothing
Set objLocator = Nothing
Set objService = Nothing
Вы можете получить много ценных результатов, прибегая к помощи «использования WMI для изменения удаленного реестра»