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

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

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

turbolover

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

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

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

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