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

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

Пользователь

Сообщения: 80
Благодарности: 1

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

Отправлено: 22:59, 28-07-2015

Georgio

Ветеран

Сообщения: 874
Благодарности: 575

Профиль | Отправить PM | Цитировать

Код:

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

Это сообщение посчитали полезным следующие участники:

turbolover

Отправлено: 00:46, 29-07-2015 | #2