[megaloman]

Помогите написать cmd или vbs скрипт.

Код:

Ins = Array("$ACADVER", "1", "AC1009", "9")     ' Какие строки вставляем
nIns = 6                                        ' После какой строки
NFile = "E:\Test\test.dxf"                      ' В каком файле
ToFile = "E:\Test\test2.dxf"                    ' В какой файл. Имена могут совпадать

AllIns = ""
For i = 0 To UBound(Ins)
    AllIns = AllIns + Ins(i) + vbCrLf
Next

Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.OpenTextFile(NFile, 1, False)
AllTxt = F.ReadAll
F.Close

Beg = 0
For i = 1 To 6
    Beg = InStr(Beg + 1, AllTxt, vbCrLf)
Next

Set F = FSO.OpenTextFile(ToFile, 2, True)
F.Write (Mid(AllTxt, 1, Beg + 1) + AllIns + Mid(AllTxt, Beg + 2))
F.Close