Beiträge von _mk_

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 434, 209, 197, 178)
$Input1 = GUICtrlCreateInput("Input1", 168, 40, 185, 21)
$Radiobutton1 = GUICtrlCreateRadio("lesen", 168, 80, 65, 17)
$Button1 = GUICtrlCreateButton("Erstellen", 168, 176, 75, 25)
$Radiobutton2 = GUICtrlCreateRadio("lesen und schreiben", 168, 96, 129, 17)
$Label1 = GUICtrlCreateLabel("Rechte", 24, 80, 62, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Zugriff für", 21, 127, 84, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Ordnernamen", 24, 44, 113, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("Input2", 168, 128, 185, 21)
$Button2 = GUICtrlCreateButton("Abbrechen", 280, 176, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$Path = StringFormat("H:\Share_Test\%s", GUICtrlRead($Input1))
			DirCreate($path)


			$Principal = StringFormat("DOMAIN\%s", GUICtrlRead($Input2))
			Select
				Case BitAND(GUICtrlRead($Radiobutton1), $GUI_CHECKED)
					$Rights = "ReadAndExecute"
				Case BitAND(GUICtrlRead($Radiobutton2), $GUI_CHECKED)
					$Rights = "ReadAndExecute, Write"
			EndSelect


			Run(StringFormat('PowerShell.exe -noprofile -executionpolicy Bypass -file "c:\set-permission.ps1" -Path %s -Principal %s -Rights %s', _
									$Path, $Principal, $Rights))
	EndSwitch
WEnd

Param(
    [string] $Path,
    [string] $Principal,
    [String] $Rights
)


$acl = Get-Acl -Path $Path
# ACL vorher:
# $acl | Format-List


$accessRule = New-Object System.Security.AccessControl.FileSystemAccessRule(
                    $Principal,                                                               # identity
                    [System.Security.AccessControl.FileSystemRights]$Rights,                  # fileSystemRights
                    ([System.Security.AccessControl.InheritanceFlags]::ContainerInherit -bor
                      [System.Security.AccessControl.InheritanceFlags]::ObjectInherit),       # inheritanceFlags
                    [System.Security.AccessControl.PropagationFlags]::InheritOnly,            # propagationFlags
                    [System.Security.AccessControl.AccessControlType]::Allow)                 # type


$acl.AddAccessRule($accessRule)
Set-Acl -Path $Path -AclObject $acl


# ACL nachher:
# $acl | Format-List


 # Write-Host "Press any key to continue ..."
 # $host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown")

$xaml = [xml]@"
<?xml version="1.0" encoding="utf-8"?>
<Window
	x:Class="test.Window1" xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="test"
    SizeToContent="WidthAndHeight"
    WindowStyle="ToolWindow"
    ResizeMode="NoResize">
    <StackPanel Orientation="Vertical" Margin="10">
        <StackPanel Orientation="Horizontal" Margin="5">
            <Label Width="100">Ordnername</Label>
            <TextBox Name="txtFolder" Width="300"></TextBox>
        </StackPanel>
        <StackPanel Orientation="Horizontal" Margin="5">
            <Label Width="100">Rechte</Label>
            <RadioButton Name="optRead" Margin="5">Lesen</RadioButton>
            <RadioButton Name="optReadWrite" Margin="5">Lesen und Schreiben</RadioButton>
        </StackPanel>
        <StackPanel Orientation="Horizontal" Margin="5">
            <Label Width="100">Zugriff für ...</Label>
            <TextBox Name="txtPrincipal" Width="300"></TextBox>
        </StackPanel>
        <StackPanel Orientation="Horizontal" HorizontalAlignment="Right">
            <Button Name="butCreate" Width="80" Margin="5">Erstellen</Button>
            <Button Name="butCancel" Width="80" Margin="5">Abbrechen</Button>
        </StackPanel>
    </StackPanel>
</Window> 
"@
$xaml.Window.RemoveAttribute("x:Class")
Add-Type -AssemblyName PresentationFramework
$xmlReader = New-Object System.Xml.XmlNodeReader -ArgumentList $xaml
$window = [System.Windows.Markup.XamlReader]::Load($xmlReader)


# Steuerelemente ansprechen, mit denen später etwas passieren soll:
$textboxFolder        = $window.FindName("txtFolder")
$textboxPrincipal     = $window.FindName("txtPrincipal")
$radiobuttonRead      = $window.FindName("optRead")
$radiobuttonReadWrite = $window.FindName("optReadWrite")   
$buttonCreate         = $window.FindName("butCreate")
$buttonCancel         = $window.FindName("butCancel")


# Ereignisse der Steuerelemente mit Aktion versehen:
$buttonCreate.Add_Click( { $window.DialogResult = $true} )
$buttonCancel.Add_Click( { $window.DialogResult = $false} )


$dialogResult = $window.ShowDialog()


if ($dialogResult -eq $true)
{
    $directory = New-Item -Path $textboxFolder.Text -ItemType Directory


    $acl = Get-Acl -Path $directory
    # ACL vorher:
    # $acl | Format-List


    If ($checkboxRead.IsChecked)
    {
        $Right = [System.Security.AccessControl.FileSystemRights]::ReadAndExecute
    }


    If ($radiobuttonReadWrite.IsChecked)
    {
        $Right = ([System.Security.AccessControl.FileSystemRights]::ReadAndExecute -bor
            [System.Security.AccessControl.FileSystemRights]::Write)
    }


    # https://msdn.microsoft.com/de-de/library/sfe70whw(v=vs.110).aspx
    $accessRule = New-Object System.Security.AccessControl.FileSystemAccessRule(
                    $textboxPrincipal.Text,                                                   # identity
                    $Right,                                                                   # fileSystemRights
                    ([System.Security.AccessControl.InheritanceFlags]::ContainerInherit -bor
                      [System.Security.AccessControl.InheritanceFlags]::ObjectInherit),       # inheritanceFlags
                    [System.Security.AccessControl.PropagationFlags]::InheritOnly,            # propagationFlags
                    [System.Security.AccessControl.AccessControlType]::Allow)                 # type


    $acl.AddAccessRule($accessRule)
    Set-Acl -Path $directory -AclObject $acl
    # ACL nachher:
    # $acl | Format-List
}
else
{
    Write-Warning "Abbruch durch den Benutzer."
}