[решено] Можно ли интегрировать, (.Vbs) скрипт в, (.bat) скрипт, и запустить его как "батник"

[turbolover]

Можно ли интегрировать, (.Vbs) скрипт в, (.bat) скрипт, и запустить его как "батник".
Например этот, (.vbs) скрипт интегрировать в, (.bat).
Dim PsWMI, PsProcesses, PsProcess, PsList, Mess, a, b, c
set WshShell = WScript.CreateObject("WScript.Shell")
set PsWMI=GetObject("winmgmts:")
If Err.Number <> 0 Then
Mess ="Error" &vbCrLf & "Error Code: " & err.Number
WshShell.Popup Mess,0,"Running processes",vbCritical
Else
set PsProcesses=PsWMI.ExecQuery("SELECT * FROM Win32_Process")
PsList="Running processes" & vbCrLf & vbCrLf
For Each PsProcess in PsProcesses
PsList=PsList & PsProcess.Name &" " & PsProcess.ProcessID &" " & vbCrLf
NEXT
end if
a = inputbox (" "& PsList)

[Georgio]

@mshta vbscript:Execute("Dim PsWMI, PsProcesses, PsProcess, PsList, Mess, a, b, c : Set WshShell = CreateObject(""WScript.Shell"") : Set PsWMI = GetObject(""winmgmts:"") : Set PsProcesses = PsWMI.ExecQuery(""SELECT * FROM Win32_Process"") : PsList = ""Running processes"" & vbCrLf & vbCrLf : For Each PsProcess in PsProcesses : PsList = PsList & PsProcess.Name & "" "" & PsProcess.ProcessID & "" "" & vbCrLf : Next : a = InputBox ("" "" & PsList) : Close()")