Dim collSWbemObjectSet As Object
    Dim objSWbemObjectEx As Object
    
    With CreateObject("WbemScripting.SWbemLocator")
        With .ConnectServer(".", "root\cimv2")
            Set collSWbemObjectSet = .ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'wmplayer.exe'")

            If collSWbemObjectSet.Count > 0 Then
               'Процесс запущен
            End If
            
            Set collSWbemObjectSet = Nothing
        End With
    End With