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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

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

Можно ли интегрировать, (.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)

Код:

@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()")