バッチにより特定のVBSのPIDを取得したい

「Windows Management Instrumentation（WMI）」を使用すると、プロセスのコマンドラインを取得できるため、
「コマンドラインの中にB.vbsが含まれているかどうか」程度の判定であれば可能です。

WMIの操作はバッチからも、VBScript(COM)からも、どちらからでも行えます。

バッチから操作する場合はWMIC.exeを使用します。
私はちゃんと使ったことが無いので割愛しますが、以下の記事が参考になると思います。

Windows がなんか重いときにコマンドで調べる（WMIC PROCESS） - Qiita

COMから操作する場合はMicrosoft WMI Scripting V1.2 Libraryを使用します。
以下はVBScriptの場合のサンプルです。

Option Explicit

'https://teratail.com/questions/145888
Call Sample_KillProcess_teratail_Q145888

Sub Sample_KillProcess_teratail_Q145888()

    'Win32_Process から
    'Nameが'wscript.exe'かつCommandLineに'b.vbs'が含まれるものを探し
    'ProcessId と CommandLine を取得する
    '[WQLクエリステートメントの紹介 - WMI Reference](http://www.wmifun.net/reference/wql_query_statement.html)
    Dim wql 
    wql = "SELECT ProcessId, CommandLine "
    wql = wql & "FROM Win32_Process "
    wql = wql & "WHERE Name = 'wscript.exe' AND CommandLine LIKE '%b.vbs%'"


    'WbemScripting = Microsoft WMI Scripting V1.2 Library
    Dim locator 'As WbemScripting.SWbemLocator
    Set locator = CreateObject("WbemScripting.SWbemLocator")

    'ローカル端末に接続し検索
    Dim proc 'As WbemScripting.SWbemObject
    For Each proc In locator.ConnectServer().ExecQuery(WQL)
        '[[WMI Class] Win32_Process クラス - WMI Library](http://www.wmifun.net/library/win32_process.html)
        Dim cmdLnTxt
        cmdLnTxt = proc.Properties_.Item("CommandLine").Value
        Dim pId
        pId = proc.Properties_.Item("ProcessId").Value

        Dim msg
        msg = "ProcessId = " & pId & vbLf & _
              "CommandLine = " & cmdLnTxt & vbLf & _
              "kill ok ?"

        If MsgBox(msg, vbQuestion Or vbOKCancel) = vbOK Then
            '[[WMI for VB6] WMI のメソッドを使ってみよう - WMI Step](http://www.wmifun.net/step/vb6_04.html)
            Call proc.Terminate
        End If

    Next 'proc

End Sub