AutoIt-Pastebin

Auf AutoIt-Pastebin können Sie Ihre Skripte und Codeschnipsel einfügen und anderen eine farblich hervorgehobene Seite zeigen

Details:
Das Skript wird niemals automatisch gelöscht.
Es wurde am 17.01.11 um 15:10 Uhr veröffentlicht und hatte bisher 508 Besucher.


			$wbemFlagReturnImmediately = 0x10
			$wbemFlagForwardOnly = 0x20
			$colItems = ""
			$strComputer = "localhost"

			$Output=""
			$Output = $Output & "Computer: " & $strComputer & @CRLF
			$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
			$colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_LogicalFileSecuritySetting WHERE Path="c:\\xampp"', "WQL", _
			$wbemFlagReturnImmediately + $wbemFlagForwardOnly)

			If IsObj($colItems) then
			For $objItem In $colItems
			$objItem.GetSecurityDescriptor
			$Output = $Output & "Caption: " & $objItem.Caption & @CRLF
			$Output = $Output & "ControlFlags: " & $objItem.ControlFlags & @CRLF
			$Output = $Output & "Description: " & $objItem.Description & @CRLF
			$Output = $Output & "OwnerPermissions: " & $objItem.OwnerPermissions & @CRLF
			$Output = $Output & "Path: " & $objItem.Path & @CRLF
			$Output = $Output & "SettingID: " & $objItem.SettingID & @CRLF
			Next
			ConsoleWrite($Output)
			Else
			Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_LogicalFileSecuritySetting" )
			Endif