Автоматизация администрирования - [1101] :: В помощь системному администратору

Код:

'********************** Начало *************************************
' Присваиваем начальные значения переменным
strComputer = "."
strNamespace = "Root\CIMV2"

'Пространство имен
Set objService = GetObject("WinMgmts:\\" & strComputer & _
"\" & strNamespace)

Set objFile = objService.Get("Win32_LogicalFileSecuritySetting.Path='C:\\Test\\Test.vbs'")

WSH.Echo " --Свойства объекта класса Win32_LogicalFileSecuritySetting.Path='C:\\Test\\Test.vbs ---- "
    'WScript.Echo "Caption: " & objFile.Caption
    WScript.Echo "ControlFlags - Флаги наследования: " & objFile.ControlFlags
    WScript.Echo "Description: " & objFile.Description
    WScript.Echo "OwnerPermissions: " & objFile.OwnerPermissions
    WScript.Echo "Path: " & objFile.Path
    'WScript.Echo "SettingID: " & objFile.SettingID

'Выполняю метод
iErr= objFile.GetSecurityDescriptor(objSecDescr)
'Проверяю на ошибку
If iErr <> 0 Then
WSH.Echo "Ошибка выполнения метода = " & iErr
End If
WSH.Echo "---- Дискриптор безопасности Win32_SecurityDescriptor ---"
'Вывожу свойства объекта класса Win32_SecurityDescriptor
WSH.Echo "Битовые флаги дискриптора " & objSecDescr.ControlFlags

WSH.Echo " ------------ Владелец Owner -----"

'Вывожу свойство внедренного объекта класса Win32_Trustree
' Один вложенный объект
WSH.Echo "Доменная учетная запись " & objSecDescr.Owner.Domain
WSH.Echo " SID владельца " & objSecDescr.Owner.SIDString
WSH.Echo"Имя владельца " & objSecDescr.Owner.Name
WSH.Echo ""

' WSH.Echo "Группа владельца у меня не определена???
'WSH.Echo "Доменная учетная запись " & objSecDescr.Group.Domain
'WSH.Echo " SID владельца " & objSecDescr.Group.SIDString
'WSH.Echo"Имя владельца " & objSecDescr.Group.Name
'WSH.Echo ""
'Так нужно работать с типом данных array of uint8
'For Each oSID In objSecDescr.Owner.SID
' WSH.Echo osid
'Next
'Так нужно работать с типом данных array of object:Win32_ACE
WSH.Echo "-------- Разрешения DACL ---------"
For Each oDACL In objSecDescr.DACL
WSH.Echo " Объект: " &_
"Domain: " & oDACL.Trustee.Domain &_
"\Name: " & oDACL.Trustee.Name &_
"\SID: " & oDACL.Trustee.SIDString

WSH.Echo " Не внедренные свойства == "
WSH.Echo "AccessMask " & oDACL.AccessMask
WSH.Echo "Флаги наследования ACE " & oDACL.AceFlags
WSH.Echo "Тип записи ACE " & oDACL.AceType
WSH.Echo ""
Next
' Аудит тоже array of object:Win32_ACE
WSH.Echo "------- Аудит SACL--------"
For Each oSACL In objSecDescr.SACL
WSH.Echo " Объект: " &_
"Domain: " & oSACL.Trustee.Domain &_
"\Name: " & oSACL.Trustee.Name &_
"\SID: " & oSACL.Trustee.SIDString

WSH.Echo " Не внедренные свойства =="
WSH.Echo "AccessMask " & oSACL.AccessMask
WSH.Echo "Флаги наследования ACE " & oSACL.AceFlags
WSH.Echo "Тип записи ACE " & oSACL.AceType
WSH.Echo ""

Next

Модерирует : lynx, Crash_Master, dg, emx, ShriEkeR
emx (13-12-2006 21:07): http://forum.ru-board.com/topic.cgi?forum=8&topic=19088#1	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению