Microsoft Windows Server 2003. Наиболее полное руководство


Использование WMI в LDAP-запросах - часть 2


'Перечень свойств содержится в описании WMI-класса

'Win32_ComputerSystem.

'Вывод некоторой информации о выбранном компьютере:

Debug.Print "Состояние = " + WMIObject.Status

Debug.Print "Статус загрузки = " + WMIObject.BootUpState

Debug.Print "Имя компьютера = " + WMIObj ect.Caption

Debug.Print "Роль в домене = " + CStr(WMIObject.DomainRole)

Debug.Print "Всего памяти (байт) = " + WMIObject.TotalPhysicalMemory

Debug.Print "Зарегистрированный пользователь = " + WMIObject.UserNaroe

Debug.Print vbCrLf

'Получить объект служб WMI из пространства имен "root\cimv2":

Set WMIServices = ADSObject.GetWMIServices

'Определение установленной системы:

Set recSet = WMIServices.ExecQuery_

("select * from Win32_OperatingSystem")

'Использование интерфейса GetWMIObject для выбора WMI-объекта:

For Each WMIObject In recSet

Debug.Print WMIObject.Name

Next

Debug.Print vbCrLf

'Список всех работающих служб:

Set recSet = WMIServices.ExecQuery _

("select * from Win32_Service where Stateo'Stopped'")

' Следующий оператор перечисляет службы, которые не смогли

' запуститься на выбранном компьютере:

' Set recSet = WMIServices.ExecQuery("select * from Win32_Service

' -> where State='Stopped1 and StartMode='Auto'")

Debug.Print "Службы (ВСЕГО)"; recSet.Count

For Each WMIObject In recSet

Debug.Print WMIObject.Name

Next

Debug.Print vbCrLf

' Список всех процессов, выполняющихся на целевом компьютере:

Set recSet = WMIServices.ExecQuery("select*from Win32_Process")

Debug.Print "Процессы (ВСЕГО)"; recSet.Count

For Each WMIObject In recSet

Debug.Print WMIObject.Name

Next

Debug.Print vbCrLf

'Список журналов системных событий:

Set recSet = WMIServices.ExecQuery_

("select * from Win32_NTEventLogFile")

Debug.Print "Журналов событий (ВСЕГО)";

recSet.Count For Each LogFile In recSet

Debug.Print LogFile.Name

'Следующий оператор сохраняет журнал в файле




Начало  Назад  Вперед