[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]

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

Чудеса :)

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

[la_vanille_ciel]

теперь оказывается, надо еще этот скрипт в автозагрузку сделать....
млин, я вообще в Vbs никак, хоть он и для начинающих...