Smile1988
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Сам скрипт:
Код:
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2:Win32_Process")
errResult = objWMIService.Create("B:\1cv8.exe", null, int1cID)
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colProcesses = objWMIService.ExecNotificationQuery _ ("Select * From __InstanceDeletionEvent Within 1 Where TargetInstance ISA 'Win32_Process'")
Do Until False = True
Set objProcess = colProcesses.NextEvent
If objProcess.TargetInstance.ProcessID = int1cID Then
Exit Do
End If
Loop
Set objShell = CreateObject("Wscript.Shell")
objShell.run "shutdown /l"
|
Проблема в том что на ПК всего 512Мб оперативной памяти, без него 1С летает с ним выругивается на недостаток памяти.
При запуске только 1с она берет все 512Мб, в случаи через скрипт только 128Мб.
Заранее спасибо! |
Всего записей: 47 | Зарегистр. 12-01-2006 | Отправлено: 19:24 04-06-2009 | Исправлено: Smile1988, 19:27 04-06-2009 |
|
