VBNet - Форум - Автоматический запуск 1С через VBScript

Вопрос: Автоматический запуск 1С через VBScript Добавлено: 13.02.11 02:11

Автор вопроса: The_Immortal

Ребят, всех приветствую!
В общем, у меня следующая задача: проверять запущена ли процесс 1cv7s.exe и если нет, то запускать 1С, а следом еще одну утилитку.
Решил реализовать ее на VBScript (как/где еще это можно сделать - не знаю - может кто подскажет варианты).
Как проверять процесс не знаю (может тоже подскажите?)... Пока пробую автоматически запуск 1С... В скрипте наткнулся на следующую проблему:

Set WshShell = Wscript.CreateObject("Wscript.Shell")
CmdLine = ""C:\Program Files\1Cv77\BIN\1cv7s.exe" enterprise /DG:\db\1C_SQL\ /N Adm /P 1"
WshShell.Run CmdLine, 1, True[/CODE]

Не может выполнить вторую строчку из-за кавычек... Структура задания переменной такая: var = "..." А у меня в описании самой переменной уже есть кавычки: "C:\Program Files\1Cv77\BIN\1cv7s.exe"
Как быть не знаю... :(
Также пробовал такие варианты:

CmdLine = """C:\Program Files\1Cv77\BIN\1cv7s.exe" enterprise /DG:\db\1C_SQL\ /N Adm /P 1""

CmdLine = Chr(34)& "C:\Program Files\1Cv77\BIN\1cv7s.exe" enterprise /DG:\db\1C_SQL\ /N Adm /P 1 &Chr(34)

Не помогло. По-прежнему пишет: "Предполагается наличие окончания инструкции"

Подскажите, пожалуйста...
Ну или может решение есть какое-нибудь другое...

Буду очень признателен!
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: Just Вопросов: 4 Ответов: 330	Профиль \| \| #1	Добавлено: 13.02.11 12:05
	проверять процесс так On Error Resume Next Dim strProcName strProcName = "1cv7s.exe" Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2") If Err.Number <> 0 Then Wscript.Echo Err.Number & ": " & Err.Description Err.Clear Wscript.Quit End If For Each objProc In objService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & strProcName & "'") Wscript.Echo strProcName & " started" Wscript.Quit Next Wscript.Echo strProcName & " not started" Wscript.Quit а насчет кавычек не совсем понял может так CmdLine = """C:\Program Files\1Cv77\BIN\1cv7s.exe""" & " enterprise /DG:\db\1C_SQL\ /N Adm /P 1" msgbox CmdLine ' посмотри как выглядит эта переменная и если не угадал напиши как должна Ответить

Номер ответа: 2 Автор ответа: The_Immortal Вопросов: 3 Ответов: 7	Профиль \| \| #2	Добавлено: 13.02.11 15:47
	Большое спасибо! Ответить

Номер ответа: 3 Автор ответа: The_Immortal Вопросов: 3 Ответов: 7	Профиль \| \| #3	Добавлено: 14.02.11 01:00
	Just, а не подскажите еще кое-что, пожалуйста? Dim time Dim fso, tf, time Set fso = CreateObject("Scripting.FileSystemObject") Const ForAppending = 8 Set tf = fso.OpenTextFile("c:\testfile.txt", ForAppending, True) time = Now() tf.Write(time) tf.WriteLine(" Не удалось запустить процесс.") Как одной строкой вот это можно оформить? tf.Write(time) tf.WriteLine(" Не удалось запустить процесс.") Не знаю, как преобразовать переменную time в строку... Ответить

Номер ответа: 4 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #4	Добавлено: 14.02.11 01:42
	полагаю, что CStr(time) Ответить

Номер ответа: 5 Автор ответа: The_Immortal Вопросов: 3 Ответов: 7	Профиль \| \| #5	Добавлено: 14.02.11 02:07
	AgentFire, ага спасибо. tf.WriteLine(time & " Не удалось запустить процесс.") - так тоже прокатило Но на эту тему созрел еще один вопрос: пусть на входе есть 2 строковые переменные "Люблю " и "Мир!". На выходе надо получить "Люблю Мир!". Я пытался сделать следующим образом: love = """Люблю """ what = """Мир!""" res = l & m MsgBox res На выходе у меня получается: "Люблю ""Мир!" Если же сделать так: love = "Люблю " what = "Мир!" res = """l & m""" MsgBox res То оператор & и переменные l,m будут восприниматься как обычные символы, и на выходе получится: "l & m". А вот как можно загнать эти слова под общие кавычки? И реально ли это осуществить? Ответить

Номер ответа: 6 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #6	Добавлено: 14.02.11 03:07
	res = """" & l & m & """" Ответить

Страница: 1 |