|
1 2 |
WshShell = Новый COMОбъект("WScript.Shell"); WshShell.Run(СтрокаЗапуска, 0, Истина) |
|
1 2 3 |
<pre><code class="vbs"> Set WshShell=CreateObject("WScript.Shell") WshShell.Run """C:\Program Files\1cv81\bin\1cv8.exe"" ENTERPRISE /Sserver\base",0,0 |
|
1 2 3 4 5 6 7 8 9 |
<pre><code class="vbs"> On Error Resume Next Set objClass = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2:Win32_Process") 'WScript.Echo "Запускаем" Res = objClass.Create("C:\Program Files\1CV8PDA\1Cv8pSRV.exe ""Параметры""", Null, Null, PID) If Res <> 0 Then WScript.Echo "Код ошибки: " & Res WScript.Quit End If |
About the Author
