CMD/BAT - +VBS: копирование файлов с сервера в папку установки проги

[Petya V4sechkin]

la_vanille_ciel, примерно так (у меня работает, во всяком случае):



Код:

Код: Выделить всё

On Error Resume Next
Dim WSh, FSO, P
Set WSh = WScript.CreateObject("WScript.Shell")
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
P = ""
P = WSh.RegRead("HKLM\SOFTWARE\Autodesk\AutoCAD\R 17.0\ACAD-5000:419\AcadLocation")
If FSO.FolderExists(P) Then FSO.CopyFile "\\Apu18s\Shell\civil3D_2007_net\acad2004.lsp", P & "\Graph\acad.lsp", True

Кстати, странное имя acad2004.lsp (в смысле, у вас же 2007).

[la_vanille_ciel]

((((((((((((((((((((((((((( не работает, может у меня с компом что-то не так......

я убрала строчку, которая не повзволяет ошибке выводиться (если я правильно поняла):On Error Resume Next

и тогда он сообщает: ошибка: строка 8 символ 1, неверная ссылка на корень в разделе реестра, источник WshShell.RegRead ...

[Petya V4sechkin]

la_vanille_ciel, значит, раздел реестра HKLM\SOFTWARE\Autodesk\AutoCAD\R 17.0\ACAD-5000:419 не существует.

[la_vanille_ciel]

как это???? я же его своими глазами вижу!!!!

я даже поменяла на HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R 17.0\ACAD-5000:419

чтобы точно уж....а оно не работает...что делать?????

[Petya V4sechkin]

la_vanille_ciel, уверены, что в \R 17.0\ пробел?

[la_vanille_ciel]

для всех остальных автокадов тоже не работает (((((((((((((((( такого не может быть...они же все у меня стоят!!



да, я уже и без пробела попробовала...то же самое ((((

[la_vanille_ciel]

пожалуйста...не бросайте меня ((((((((((((



АААААААААААААААААААААААА Сработало!!!!!! Но только для 2008, который стоит в Programs, для 2004 и 2007 не работает, разница - они стоят в Program Files.....почему так?

[la_vanille_ciel]

УРА!!!!!!!!!!!!!!!!!!!!!!! ОНИ ВСЕ РАБОТАЮТ!!!!!! Я просто перепечатала эти строки для реестра ручками и убрала пробел везде после R.

Petya V4sechkin - Вы супер!!!! СПАСИБО Вам большое!!!!!!

[Petya V4sechkin]

Цитата la_vanille_ciel:



ОНИ ВСЕ РАБОТАЮТ!!!!!! Я просто перепечатала эти строки для реестра ручками и убрала пробел везде после R



Чудеса



Рад, что смог помочь.

[la_vanille_ciel]

теперь оказывается, надо еще этот скрипт в автозагрузку сделать....

млин, я вообще в Vbs никак, хоть он и для начинающих...