Прочитать параметры запуска чужого процесса - VB
Формулировка задачи:
Здравствуйте, коллеги!
Требуется подсказка вот в каком вопросе. Запускается процесс с именем "msaccess.exe" и ему при запуске передаются параметры типа : "C:\Program Files\PIMSlider\Start_SI.vbs" "C:\Program Files\TTT\ttt.mde" /bla_bla_bla
Необходимо из другой программы найти этот процесс и прочитать путь к файлу ttt.mde. Процесс нахожу, далее :
В результате возвращается такая строка :
"C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE" -Embedding "C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE" WinSta0\Default ????C:\Windows\SYSTEM32\ntdll.dll ????C:\Windows\system32 ?????#???#?? ????gnp?#?#? ? ?&?????# ?#?#?#?
Где ж запрятана ссылка на базу ttt.mde, путь к которой передается процессу "msaccess.exe" как параметр? Прошу помощи
Решение задачи: «Прочитать параметры запуска чужого процесса»
textual
Листинг программы
Sub Test() Dim objWMI As Object, objCollection As Object, objApp As Object Set objWMI = GetObject("winmgmts:\\.\root\cimv2") Set objCollection = objWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name='excel.exe'") Select Case objCollection.Count Case 1 Set objApp = GetObject(, "Excel.Application") MsgBox objApp.ActiveWorkbook.Path & "\" & objApp.ActiveWorkbook.Name Set objApp = Nothing Case 0: MsgBox "Не найдено ни одного процесса." Case Else: MsgBox "Найдено более одного процесса." End Select Set objCollection = Nothing Set objWMI = Nothing End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д