| Single Post |
Topic: Script Content Plugin |
| Author |
Message |
Batya
|
 Posted: Mon Sep 13, 2010 17:49 Post subject: |
 |
|
Новый скриптик:
| Code: | '=================================================
' Колонка Result возвращает владельца файла\папки
'=================================================
content = Result
Function Result
On Error Resume Next
Dim wmiSecSettings 'WMI объект для параметров безопасности
Dim wmiSecurityDescriptor 'Дескриптор защиты файла
Dim FOResult 'Результат выполнения операции чтения дескриптора безопасности
Dim wmiOwner 'Объект владельца файла
Set wmiSecSettings = GetObject ("winmgmts:Win32_LogicalFileSecuritySetting.path='" & filename & "'") 'Создание WMI объекта файла
FOResult = wmiSecSettings.GetSecurityDescriptor(wmiSecurityDescriptor) 'Считывание дескриптора безопасности
Set wmiOwner = wmiSecurityDescriptor.Owner 'Создание объекта владельца файла
If Err.Number <> 0 Then 'Ошибка при определении владельца файла
Result = "Can't get file owner. Error: " & Err.Description
Else 'Владелец файла определен - вывод результата
Result = wmiOwner.Domain & "\" & wmiOwner.Name
End If
End Function
|
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
|
|
 |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
