' скрипт получения процессов и/или служб локального компьютера ' аргументы: p - только процессы, s - только службы, a - и процессы и службы If WScript.Arguments.Count = 0 Then MsgBox "Не достаточно аргументов" WScript.Quit End If Dim str, s, p, a str = "Powershell -version 3 -nologo -noexit -command " p = """& { Get-Process | Out-GridView -title ""Processes""}""" s = """& { Get-Service | Out-GridView -title ""Services""}""" a = """& { Get-Process | Out-GridView -title ""Processes""; Get-Service | Out-GridView -title ""Services"" }""" Select Case WScript.Arguments(0) Case "p" str = str & p Case "s" str = str & s Case "a" str = str & a Case Else MsgBox "Аргумент скрипта '" & WScript.Arguments(0) & "' не найден" WScript.Quit End Select CreateObject("WScript.Shell").Run(str)
Для теста копируем код в блокнот и сохраняем файл с расширением vbs.
В результате выполнения скрипта с параметром "а" получаем две таблицы:
Функциональность интерфейса таблиц очевидна.
p.s.: На самом деле из оболочки PowerShell все эти движения выглядят гораздо проще:
Комментариев нет:
Отправить комментарий
Комментарий будет опубликован после модерации