论坛 › 已解决问题区 › lsasecur.au3中函数- 获取NTFS文件的安全信息用户账号有异常[已解决问题]

qqgghh1 发表于 2011-12-29 16:50:35

lsasecur.au3中函数- 获取NTFS文件的安全信息用户账号有异常[已解决问题]

本帖最后由 qqgghh1 于 2012-1-4 09:10 编辑

如题，我在使用此功能实现判断NTFS分区中【users】用户权限是否为完全控制。
但_ArrayDisplay($aList, $sOwner)查询中会出现多个相同用户，不知为何，在其它系统里也会有这种问题。以至无法继续分析利用下去#include <lsasecur.au3>
$sFilePath = "D:" ;以判断D盘为例
$iSecur = BitOR($SE_INFO_OWNER, $SE_INFO_DACL)
$pSecur = _SeGetFileSecurity($sFilePath, $iSecur)

If ($pSecur = 0) Then
      MsgBox(48, "Error", _SeFormatMsg("_SeGetFileSecurity"))
      Exit
EndIf

$pOwner = _SeGetSecurityDescriptorOwner($pSecur)
$pDacl = _SeGetSecurityDescriptorDacl($pSecur)

$sOwner = _SeLookupAccountSid($pOwner)
$aList = _SeEnumEntriesFromAcl($pDacl)

_ArrayDisplay($aList, $sOwner)

qqgghh1 发表于 2011-12-30 08:35:46

晕，2L小心再被扣分

qqgghh1 发表于 2011-12-30 08:36:20

晕，2L小心再被扣分

qqgghh1 发表于 2011-12-30 17:47:36

本帖最后由 qqgghh1 于 2011-12-30 17:53 编辑

呵呵，自己搞定。这段代码的目的是为了检测用户电脑各分区USERS账号是否有完全控制，如果没有的话，用USERS账号登陆可能无法正常使用电脑#RequireAdmin
#include <lsasecur.au3>
Local $var = DriveGetDrive( "fixed" )
Local $Remind = "",$j
If NOT @error Then
        For $i = 1 to $var
                If DriveGetFileSystem($var[$i]) <> "NTFS" Then
                        $Remind = $Remind&@CRLF&$var[$i]&"分区不是NTFS格式，建议使用convert命令将其转换成NTFS格式"
                Else
                        If $var[$i] <> @HomeDrive Then
                                checkaccess($var[$i])
                                If $j = 0Then $Remind= $Remind&@CRLF&$var[$i]&"分区，users无完全控制权限，【强烈建议】手动添加权限"
                        EndIf
                EndIf
    Next
        MsgBox(48,"请务必阅读！",$Remind)
EndIf

Func checkaccess($sFilePath)
        $j = 0
        $iSecur = BitOR($SE_INFO_OWNER, $SE_INFO_DACL)
        $pSecur = _SeGetFileSecurity($sFilePath, $iSecur)
        If ($pSecur = 0) Then
                MsgBox(48, "Error", _SeFormatMsg("_SeGetFileSecurity"))
                Exit
        EndIf
        $pOwner = _SeGetSecurityDescriptorOwner($pSecur)
        $pDacl = _SeGetSecurityDescriptorDacl($pSecur)
        $sOwner = _SeLookupAccountSid($pOwner)
        $aList = _SeEnumEntriesFromAcl($pDacl)
        For $i = 1 To $aList
                If $aList[$i] = "BUILTIN\Users" And $aList[$i] = 0x001F01FF Then $j = 1
        Next
        Return $j
EndFunc

#cs
$test = _DriveGetDrive('FIXED') ;返回本地硬盘
_ArrayDisplay($test, '本地硬盘')
;$test = _DriveGetDrive('FIXED', 0) ;返回USB移动硬盘
;_ArrayDisplay($test, 'USB移动硬盘')

Func _DriveGetDrive($type, $flag = 1)
      ;$flag = 1 返回本地设备；$flag = 0 返回USB移动设备
      Local $aDisk = , $i
      Local $aDrive = DriveGetDrive($type)
      For $i = 1 To $aDrive
                If $flag = 0 And _WinAPI_GetDriveBusType($aDrive[$i]) = 7 Then
                        _ArrayAdd($aDisk, StringUpper($aDrive[$i]))
                        $aDisk += 1
                ElseIf $flag = 1 And _WinAPI_GetDriveBusType($aDrive[$i]) <> 7 Then
                        _ArrayAdd($aDisk, StringUpper($aDrive[$i]))
                        $aDisk += 1
                EndIf
      Next
      Return $aDisk
EndFunc   ;==>_DriveGetDrive将移动硬盘从fixed中区分出来
#ce

pchome2000 发表于 2012-2-1 18:26:12

学习一下先，                   {:face (327):}

hollandmfq 发表于 2014-5-4 10:38:22

雷锋精神传天下！谢谢分享！

查看完整版本: lsasecur.au3中函数- 获取NTFS文件的安全信息用户账号有异常[已解决问题]