[Ua-life]

Подставил свои параметры (прошу посмотреть правильно ли)

читать дальше »

Код:

Option Explicit

Const Above_Normal = 32768

Dim objSWbemObjectEx
Dim lngProcessID


With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2")
	If .ExecQuery("SELECT * FROM Win32_Process WHERE Name = '1cv8.exe'").Count = 0 Then
		Set objSWbemObjectEx = .Get("Win32_ProcessStartup")
		
		objSWbemObjectEx.PriorityClass = Above_Normal
		
		' Create method of the Win32_Process class (Windows) (http://msdn.microsoft.com/en-us/library/aa389388(v=vs.85).aspx)
		If .Get("Win32_Process").Create( _
			"""C:\Program Files\1cv82\8.2.16.352\bin\1cv8.exe"" ENTERPRISE /FD:\ЦентральнаяБаза /N ЦентральнаБаза /P МойПароль", _
			"C:\Program Files\1cv82\8.2.16.352\bin\1cv8.exe", _
			objSWbemObjectEx, _
			lngProcessID _
		) <> 0 Then
			WScript.Echo "Can't start process [""%Program Files\1cv82\8.2.16.352\bin\1cv8.exe"" ENTERPRISE /FD:\ЦентральнаяБаза /N ЦентральнаБаза /P МойПароль."
		End If
		
		Set objSWbemObjectEx = Nothing
	End If
End With

WScript.Quit 0

и последующего запуска появляется

--------------------------- Windows Script Host --------------------------- Can't start process ["%Program Files\1cv82\8.2.16.352\bin\1cv8.exe" ENTERPRISE /FD:\ЦентральнаяБаза /N ЦентральнаБаза /P МойПароль. --------------------------- ОК ---------------------------

If .ExecQuery("SELECT * FROM Win32_Process WHERE Name = '1cv8.exe'").Count = 0 Then »

не понял, так этот кусок кода и так присутствует в выше приведенном вами коде