Здраствуйте. Мне нужно отправить команду на компорт (оборудование)из 1С 8.1. Как это можно реализовать? Напрямую через 1С или ВК?

сам как думаешь?

Как вариант:
http://www.script-coding.com/dynwrapx.html

FileSystemObject = Новый COMОбъект("Scripting.FileSystemObject");
com1 = fso.OpenTextFile("com1:",1,);

(3) - это на чтение
На запись:
com1 = fso.OpenTextFile("com1:", 2, Ложь, 0);

(3) что, правда прокатит?

(5)Про DOS слышал?

(6) а то

+7 проверил на ХР, действительно, в лоб файл com1 не создать :) ...хотя умельцы умеют

Извините, а можна подробней о параметрах:
OpenTextFile("com1:", 2, Ложь, 0);

у меня в отладке:

com1.AtEndOfLine = Ошибка чтения значения
com1.AtEndOfStream = Ошибка чтения значения
com1.Column = 1
com1.Line = 1

я з 1С недолга работаю и с ком-портом первый раз.

а тупо бат формировать с "copy file com1" или как там в досе было?

Подробней о OpenTextFile:

"OpenTextFile Method  

Description
Opens a specified file and returns a TextStream object that can be used to read from, write to, or append to the file.
Syntax
object.OpenTextFile(filename[, iomode[, create[, format]]])
The OpenTextFile method has these parts:

Part Description
object Required. Always the name of a FileSystemObject.
filename Required. String expression that identifies the file to open.
iomode Optional. Indicates input/output mode. Can be one of three constants: ForReading, ForWriting, or ForAppending.
create Optional. Boolean value that indicates whether a new file can be created if the specified filename doesn't exist. The value is True if a new file is created; False if it isn't created. The default is False.
format Optional. One of three Tristate values used to indicate the format of the opened file. If omitted, the file is opened as ASCII.  


Settings
The iomode argument can have either of the following settings:
Constant Value Description
ForReading 1 Open a file for reading only. You can't write to this file.
ForWriting 2 Open a file for writing only. You can't read from this file.
ForAppending 8 Open a file and write to the end of the file.


The format argument can have any of the following settings:

Constant Value Description
TristateUseDefault -2 Opens the file using the system default.
TristateTrue -1 Opens the file as Unicode.
TristateFalse  0 Opens the file as ASCII.


Remarks
The following code illustrates the use of the OpenTextFile method to open a file for writing text:
Sub OpenTextFileTest
 Const ForReading = 1, ForWriting = 2, ForAppending = 8
 Dim fso, f
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
 f.Write "Hello world!"
 f.Close
End Sub" Microsoft® Visual Basic® Scripting Edition

Но здесь указываеться файл .txt, а как указать ком-порт?

(12) С точки зрения системы когда она пишет в файл который называется COM1 она пишет в ком порт.

восьмерка может это делать и объектом ТекстовыйДокумент

вот пути правильно таковые \\.\com1

(14) Вообще все равно как это делать. Вот только с чтением этот вариант врят ли поможет. Ком порт он ведь не стоит и не ждет пока ты его прочитаешь, он отправил данные и все твоя задача успеть их поймать.

+(15) Короче надо по любому писать ВК или найти уже готовое, которое будет уметь слушать ком порт.

Мне читать ненужно, мне толька подавать команды и писать. Всем большое спасибо!!! Буду тестировать. Щас нету просто возможности увидить попадает в компорт или нет.

Здраствуйте. В ком нечего не попадает. Вот код который я использую:

 Команда = ЭлементыФормы.Команда1.Значение;
 fso = Новый COMОбъект("Scripting.FileSystemObject");
 f = fso.OpenTextFile("\\.\com9", 2, Ложь, 0);
 f.Write (Команда);
 
В чем может быть проблема?