Листинг 1. Подготовка списка активных служб

BEGIN COMMENT LINE
?Выбираем компьютер для проверки.
END COMMENT LINE
sComputerName= «Alien»
BEGIN COMMENT LINE
?Подключение к WMI-службе на целевом компьютере.
END COMMENT LINE
Set oWMIService = GetObject(«winmgmts:» _
	& «{impersonationLevel=impersonate}!» & sComputerName& «
ootcimv2»)
BEGIN COMMENT LINE
?Получаем список имеющихся служб.
END COMMENT LINE
Set colRunningServices = oWMIService.ExecQuery _
	(«Select * from Win32_Service»)
BEGIN COMMENT LINE
?Проход по списку и выдача имен и данных о состоянии служб.
END COMMENT LINE
For Each oService in colRunningServices
Wscript.Echo oService.DisplayName & VbTab & oService.State
Next