У меня есть сценарий настройки, в котором мне нужно проверить, не дали ли результаты выполнения файла .bat результаты. Файл .bat вызывает другой файл .exe, а файл .bat имеет окно CMD DOS, которое выводит информацию о критических ошибках в этот ящик DOS из .exe. Если .exe не запускается правильно, я могу проверить результаты в нашей базе данных SQL. Мне нужно закрыть текущий файл .bat и перезапустить его.
Это кажется довольно простым, я могу получить ProcessID с помощью вызова WMI. Я могу завершить процесс с помощью команды Terminate (). Это работает для любого .exe, который я использую для тестирования: блокнот, calc, iexplorer и т. Д. Когда я запускаю VBScript для уничтожения файла .bat, он говорит, что завершает PID (что он делает, так как я больше не вижу PID) Однако окно DOS все еще открыто, и файл .exe, вызываемый из файла .bat, все еще работает. Если я нажимаю «X» в окне DOS или щелкаю правой кнопкой мыши на строке заголовка и выбираю «Закрыть», окно DOS и файл .exe будут уничтожены. Как мне заставить этот скрипт работать правильно? Сервер работает под управлением Windows Server 2003 (некоторые x32, а другие x64). Есть идеи? Вот версия моего кода, было несколько оборотов:
If colFiles.Count = 0 Then
Wscript.Echo "The file does not exist on the remote computer."
Else
Wscript.Echo "The file exists on the remote computer."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process")
For Each objItem in colProcessList
If InStr(objItem.CommandLine, "r15_A.bat") Then
Wscript.Echo "Batch file: " & objItem.CommandLine & " Process ID: " & objItem.ProcessID & " Parent ID: " & objItem.ParentProcessID
Call TerminateProcess(objItem.ParentProcessID)
Call TerminateProcess(objItem.ProcessID)
End If
Next
dim shell
set shell=createobject("wscript.shell")
shell.run BATDIR & BATFILE
'set shell=nothing
End If
Function TerminateProcess(PID)
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Handle = '" & PID & "'")
For Each objProcess in colProcesses
On Error Resume Next
return = objProcess.Terminate()
Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Handle = '" & PID & "'")
If Error Then
TerminateProcess = FALSE
Else
TerminateProcess = TRUE
msgBox colProcesses.Count
End If
Next
End Function
Я даже пытался использовать SendKeys для отправки ALt-F4, X, C и т. Д. AppActivate выводит правильную коробку DOS вперед.
Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate "r15_A"
'WshShell.SendKeys("+{F10}")
WshShell.SendKeys("C")
Заранее спасибо
EDIT --------------
Да, мне придется убить процесс, который вызывает этот файл .bat. Только нижняя сторона этого окна DOS остается открытой. Раздражает, но я могу жить с этим. В конце я написал скрипт, похожий на мой первый, но проверяет только тот экземпляр, который я хочу уничтожить, проверяя параметр CommandLine: (Первый бит кода с тестом "-FAIL.txt", чтобы увидеть, присутствует ли файл FAIL , если это так, то остальные скрипты выполняются)
Set colFiles = objWMIService. _
ExecQuery("Select * From CIM_DataFile Where Name = 'S:\\servers\\Logs\\" & LOGFILE & "-FAIL.txt'")
If colFiles.Count = 0 Then
'Wscript.Echo "The file does not exist on the remote computer."
Else
'Wscript.Echo "The file exists on the remote computer."
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'AppStart.exe'")
For Each objProcess in colProcessList
IF instr(objProcess.CommandLine, "robo05-A") > 0 THEN
'msgBox "Found text"
objProcess.Terminate()
'This part restarts the failed .bat file.
wscript.sleep (200)
dim shell
set shell=createobject("wscript.shell")
shell.run BATDIR & BATFILE
'set shell=nothing
ELSE
'msgBox "Not found"
END IF
Next
End If