[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).