[Iska]

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

Появилась необходимость запускать программы с дополнительным параметром 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