А как прочитать эту самую ветку и прочитанное положить в скрипт vbs, который копирует с сервера файлы туда, что прочитали???
Кстати, у меня не работает, пишет, что что-то не то с unbound (((

Я понимаю, я имела в виду, как написать этот скрипт...вот у меня два фрагмента:
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Adobe"
objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
If subkey = "Acrobat Reader" Then
find = True
Path_reg = strKeyPath & "\" & subkey
Exit For
End If
Next
If Not find Then
For Each subkey In arrSubKeys
If subkey = "Adobe Acrobat" Then
find = True
Path_reg = strKeyPath & "\" & subkey
Exit For
End If
Next
End If
If Not find Then
execute_programm_path = ""
Exit Function
Else
objReg.EnumKey HKEY_LOCAL_MACHINE, Path_reg, arrSubKeys
For Each subkey In arrSubKeys
Version_Acr = subkey
Next
End If
objReg.GetStringValue HKEY_LOCAL_MACHINE, Path_reg & "\" & Version_Acr & "\InstallPath\", "", dwValue
execute_programm_path = dwValue

- из этой темы

и своя часть скрипта, в котором неправильно задан путь копирования, а именно надо туда подставить вот этот вот с реестром:
Set fileFSO = CreateObject("Scripting.FileSystemObject")
source_file = "\\Apu18s\Shell\civil3D_2007_net\acad2004.lsp"
dest_file = "C:\Program Files\Autodesk Civil 3D 2007\Graph\acad.lsp"
fileFSO.CopyFile source_file, dest_file , true



Как их сделать вместе????? У меня совсем плохо со скриптами...я их второй день пытаюсь понять...с cmd еще ничего, а vbs для меня вообще темный лес...

написала вот такое:
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut=WScript.StdOut
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
Key = "SOFTWARE\Autodesk\AutoCAD\R 17.0\AcadLocation"
intRes = oReg.EnumKey(HKEY_LOCAL_MACHINE, Key, sNames)
intRes = oReg.GetStringValue(HKEY_LOCAL_MACHINE, Key&"\"&strSubKey, "DisplayName", Val1)

Set fileFSO = CreateObject("Scripting.FileSystemObject")
source_file = "\\Uzdp-files\share_shell\civil3D_2007_net\acad2004.lsp"
dest_file = intRes & "Graph\acad.lsp"
fileFSO.CopyFile source_file, dest_file , true



выдает ошибку, что путь не найден, я не понимаю, почему...

Всем спасибо, мне подсказали другой скрипт, вот смотрите:

On Error Resume Next
Dim WSh, FSO, P, P1, P2, P3, P4

Set WSh = WScript.CreateObject("WScript.Shell")
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")


P = WSh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R16.0\ACAD-201:419\AcadLocation")
PP = P & "\Graph\Support"
If FSO.FolderExists(PP) Then FSO.CopyFolder "\\Uzdp-files\share_shell\New_Stamps_CAD\NewShortName2004", PP, True


Теперь проблема, надо значение прочитанной ветки реестра записать и далее вывести в сообщении, как это сделать?