Получение информации о свойствах и состоянии служб

Сценарий ServicesInfo.vbs, приведенный в листинге 13.10, выводит информацию о зарегистрированных службах (экземпляры класса Win32_Service ) в текстовый файл C:\Services.txt, который затем открывается с помощью Блокнота.

'*******************************************************************

' Имя: ServicesInfo.vbs

' Язык: VBScript

' Описание: Вывод информации о службах

'*******************************************************************

Option Explicit

 

' Объявляем переменные

Dim strComputer ' Имя компьютера

Dim strNamespace ' Имя пространства имен

Dim objWMIService ' Объект SWbemServices

Dim colServices ' Коллекция экземпляров класса WMI

Dim objService ' Элемент коллекции

Dim strResult ' Результирующая строка

Dim WshShell ' Объект WshShell

Dim theNotepad ' Объект WshScriptExec

 

' Объявляем константы

Const wbemFlagForwardOnly = 32

Const wbemFlagReturnImmediately = 16

Const ForWriting = 2

 

' Функция для записи информации в файл

Sub TextOut (Text, File)

' Объявляем переменные

Dim objFSO, FOut

' Создаем объект FileSystemObject

Set objFSO=WScript.CreateObject("Scripting.FileSystemObject")

' Открываем выходной файл для записи

Set FOut = objFSO.OpenTextFile (File,ForWriting,true)

' Записываем текстовую строку в файл

FOut.WriteLine Text

' Закрываем выходной файл

FOut.Close

End Sub

 

'********************** Начало *************************************

' Присваиваем начальные значения переменным

strComputer = "."

strNamespace = "Root\CIMV2"

strResult = "Информация о службах " & VbCrLf & VbCrLf

 

' Подключаемся к пространству имен WMI

Set objWMIService = GetObject("WinMgmts:\\" & _

strComputer & "\" & strNamespace)

 

Set colServices = objWMIService.ExecQuery("SELECT * FROM Win32_Service"_

,, wbemFlagReturnImmediately+wbemFlagForwardOnly)

For Each objService In colServices

strResult = strResult & "Name: " & _

objService.Name & VbCrLf

strResult = strResult & "Display Name: " & _

objService.DisplayName & VbCrLf

strResult = strResult & "Caption: " & _

objService.Caption & VbCrLf

strResult = strResult & "Description: " & _

objService.Description & VbCrLf

strResult = strResult & "Path Name: " & _

objService.PathName & VbCrLf

strResult = strResult & "ServiceType: " & _

objService.ServiceType & VbCrLf

strResult = strResult & "Status: " & _

objService.Status & VbCrLf

strResult = strResult & "State: " & _

objService.State & VbCrLf

strResult = strResult & "Started: " & _

objService.Started & VbCrLf

strResult = strResult & "Start Mode: " & _

objService.StartMode & VbCrLf

strResult = strResult & "Start Name: " & _

objService.StartName & VbCrLf

strResult = strResult & "Accept pause: " & _

objService.AcceptPause & VbCrLf

strResult = strResult & "Accept stop: " & _

objService.AcceptStop & VbCrLf

strResult = strResult & "********************************" & VbCrLf &_

VbCrLf

Next

 

' Выводим результат в текстовый файл

TextOut strResult, "C:\Services.txt"

 

'Создаем объект WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")

'Открываем созданный файл в Блокноте

Set theNotepad = WshShell.Exec("notepad " & "C:\Services.txt" )

'************************* Конец ***********************************

Листинг 13.10. Вывод информации о всех службах Windows

<== предыдущая лекция | следующая лекция ==>
Получение информации о сетевом адаптере | Запуск и восстановление работы служб


Дата добавления: 2018-03-01; просмотров: 48; ЗАКАЗАТЬ НАПИСАНИЕ РАБОТЫ


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию, введите в поисковое поле ключевые слова и изучайте нужную вам информацию.

Поделитесь с друзьями:

Если вам понравился данный ресурс вы можете рассказать о нем друзьям. Сделать это можно через соц. кнопки выше.
helpiks.org - Хелпикс.Орг - 2014-2018 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.005 сек.