VBS/WSH/JS

Iska · Отправлено: **14:56, 03-11-2014** | #2

Цитата aBBat2:

32 экземпляра программы »

31 экземпляр, если судить по коду. Его лучше использовать в таком виде:

Скрытый текст

Код:

Option Explicit

Dim objFSO

Dim i
Dim strPath


Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

With WScript.CreateObject("WScript.Shell")
	.Run "%SystemRoot%\notepad.exe"
	WScript.Sleep 1000
	
	For i = 1 To 32
		strPath = "G:\работа\easyport\32 изи порта\easyport" & CStr(i) & ".exe"
		
		If objFSO.FileExists(strPath) Then
			.Run """" & strPath & """", 1, False
		Else
			WScript.Echo "Can't find file [" & strPath & "]."
		End If
	Next
End With

Set objFSO = Nothing

WScript.Quit 0

Цитата aBBat2:

Появилась необходимость запускать программы с дополнительным параметром oper "USSD1" ("G:\работа\easyport\32 изи порта\easyport2.exe" oper "USSD1") »

Скрытый текст

Код:

Option Explicit

Dim objFSO

Dim i
Dim strPath


Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

With WScript.CreateObject("WScript.Shell")
	.Run "%SystemRoot%\notepad.exe"
	WScript.Sleep 1000
	
	For i = 1 To 32
		strPath = "G:\работа\easyport\32 изи порта\easyport" & CStr(i) & ".exe"
		
		If objFSO.FileExists(strPath) Then
			.Run """" & strPath & """ oper ""USSD1""", 1, False
		Else
			WScript.Echo "Can't find file [" & strPath & "]."
		End If
	Next
End With

Set objFSO = Nothing

WScript.Quit 0

aBBat2 · Отправлено: **15:30, 03-11-2014** | #3

Первый скрипт замечательно открывает все экземпляры программы.

А вот второй открывает примерно треть и выдает кучу ошибок http://shot.qip.ru/00fCB9-51a7On1cYB/

еще одну ошибку успел увидеть http://shot.qip.ru/00fCB9-51a7On1cYR/

Iska · Отправлено: **16:01, 03-11-2014** | #4

Цитата aBBat2:

А вот второй открывает примерно треть и выдает кучу ошибок http://shot.qip.ru/00fCB9-51a7On1cYB/ »

Это не скрипт. Проверьте с помощью Process Explorer, что окна сообщений принадлежат экземплярам приложений.

Если речь про эту: Запуск программы EasyPort из командной строки и других приложений утилиту — то неудивительно: Вы же одновременно пытаетесь достучаться до одного псевдомодема из кучи запущенных приложений.

aBBat2 · Отправлено: **16:06, 03-11-2014** | #5

Эмм я пытаюсь достучаться до одного из 32 двух реальных устройств , которое каждое на своем порту.
И я пробовал через пуск=выполнить открыть с десяток подряд не дожидаясь закрытия предыдущего приложения никаких ошибок не было . и в ручном режиме без скрипта тоже ошибка не возникает

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

Iska · Отправлено: **16:35, 03-11-2014** | #6

Цитата aBBat2:

Эмм я пытаюсь достучаться до одного из 32 двух реальных устройств , которое каждое на своем порту. »

О как. Поясните, как именно они присоединены к машине. И как Вы указываете, к какому конкретному устройству следует обращаться.

Цитата aBBat2:

исходя из того что часть приложений таки успевают открыться , может быть можно в скрипте прописать таймаут между запусками ? хотябы самый минимальный. »

Может быть. Но лучше не гадать. «Колитесь», рассказывайте детали.

aBBat2 · Отправлено: **18:13, 03-11-2014** | #7

Устройство gsm pool называется. Состоит из отдельных гсм модулей объединенных в общий пул .
http://shot.qip.ru/00fCB9-61a7On1cZr/ вот само устройство.
Суть запроса oper "USSD1 это проверка номера активных в данный момент времени сим карт . USSD1 это сокращенный запрос который в полном виде выглядит как at+cusd=1,*110*10#,15
У каждого экземпляра программы есть свой файл конфиг с раширением .ini в котором прописан com порт на который идет обращение этого запроса.
Эмм какие еще моменты нужно прояснить ?

Iska · Отправлено: **19:01, 03-11-2014** | #8

Цитата aBBat2:

Устройство gsm pool называется. Состоит из отдельных гсм модулей объединенных в общий пул . »

Попытался малость посмотреть, что сие есть. Насколько я понимаю, всё это добро соединено с машиной одним кабелем, Ethernet или USB. Как это добро выглядит для машины, равно как и на каком уровне происходит эмуляция COM-портов — мне пока непонятно.

aBBat2 · Отправлено: **19:04, 03-11-2014** | #9

Может вернемся к вопросу как реализовать таймаут хоть небольшой между обращениями ?

Iska · Отправлено: **19:05, 03-11-2014** | #10

Я бы на Вашем месте после изучения деталей поигрался с этим — Программы для мобильной связи:

Цитата:

NEW v 4.0 - программа может работать в паре с программой waitport v 1.6 (скачать - 200Кб) для организации очереди на выполнение операций с мобильным телефоном или другим устройством - специально для СисАдминов (автор идеи - Кухарец Роман Александрович)

Цитата aBBat2:

Может вернемся к вопросу как реализовать таймаут хоть небольшой между обращениями ? »

Я полагаю, что:

Код:

WScript.Sleep <время в миллисекундах>

Вы и сами в состоянии вставить. Но это игра в орлянку.