Прочитать параметры запуска чужого процесса - 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

Оцени полезность:

13   голосов , оценка 4.154 из 5
Похожие ответы