Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать


Цитата leonaft:
владелец файла »
Код: Выделить весь код
ConsoleWrite(_FileGetOwner(@HomePath) &@CRLF)

Func _FileGetOwner($sFile, $sComputer = ".")
    Local $objWMI, $colItems, $objItem, $strOwner = ""

    $objWMI = ObjGet("winmgmts:\\" & $sComputer & "\root\cimv2")
    If Not(IsObj($objWMI)) Then Return SetError(1, 0, "")
    $colItems = $objWMI.ExecQuery("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & $sFile & "'}" _
         & " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")
    If Not(IsObj($colItems)) Then Return SetError(2, 0, "")
    For $objItem In $colItems
        $strOwner = $objItem.ReferencedDomainName &"\"& $objItem.AccountName
        If $strOwner=="\" Then $strOwner = $objItem.SID
    Next

    Return $strOwner
EndFunc
Это сообщение посчитали полезным следующие участники:

Отправлено: 08:55, 17-08-2009 | #7