Почему нет выводится информация запроса powershell формы?

Question

[L0ns]

Коллеги, есть задача по просмотру acl папок через powershell. Захотелось оформить красиво в оконном режиме, но почему-то информация которая нужна не выводится, пустое поле, помогите разобраться, что делаю не правильно? По всей видимости как-то не правильно функцию написал....

Скрипт:

Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing

##############################################################################################################

function GetAclFolder {


  $Input = $inputBox.Text
  $Result = (get-acl $Input).access | select @{expression={$_.IdentityReference}; label='Кто имеет доступ'}, @{expression={$_.IsInherited}; label='Наследование прав'}, @{expression={$_.FileSystemRights}; label='Тип доступа'}

  $outputBox.Text = $Result
}


##############################################################################################################


$Form = New-Object System.Windows.Forms.Form
$Form.Text = "Права доступа на папку"
$Form.Size = New-Object System.Drawing.Size(600,400)

##############################################################################################################


$Label = New-Object System.Windows.Forms.Label
$Label.Text = "Введите путь к папке, Например C:\Temp"
$Label.Location = New-Object System.Drawing.Size(20,30)
$Label.BackColor = "Transparent"
$Label.AutoSize = $true

$Form.Controls.Add($Label)


##############################################################################################################

$inputBox = New-Object System.Windows.Forms.TextBox
$inputBox.Location = New-Object System.Drawing.Size(20,50)
$inputBox.Size = New-Object System.Drawing.Size(250,20)

$Form.Controls.Add($inputBox)

##############################################################################################################


$outputBox = New-Object System.Windows.Forms.TextBox
$outputBox.Location = New-Object System.Drawing.Size(10,150)
$outputBox.Size = New-Object System.Drawing.Size(565,200)
$outputBox.MultiLine = $True

$Form.Controls.Add($OutputBox)


##############################################################################################################



$Button = New-Object System.Windows.Forms.Button
$Button.Location = New-Object System.Drawing.Size(400,30)
$Button.Size = New-Object System.Drawing.Size(110,80)
$Button.Text = "Посмотреть права"

$Button.Add_Click( {GetAclFolder} )


$Form.Controls.Add($Button)



##############################################################################################################


[void] $Form.ShowDialog()

Comments

[сергей кузьмин]

проверьте что в $result после выполнения командлета
get-acl

function GetAclFolder {


  $Input = $inputBox.Text

write-host $input
$Result = (get-acl $Input).access | select @{expression={$_.IdentityReference}; label='Кто имеет доступ'}, @{expression={$_.IsInherited}; label='Наследование прав'}, @{expression={$_.FileSystemRights}; label='Тип доступа'}
write-host $result

 $outputBox.Text = $Result
}

Answer 1

[Роман Безруков]

Вместо второго TextBox ($outputbox) лучше использовать ListVew или ListBox, тогда ваш скрипт будет примерно такой:

[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")
##############################
function GetAclFolder
{
  $InputText = $inputBox.Text
  $Result = (get-acl $InputText).access | Select-Object IdentityReference,IsInherited,FileSystemRights
  ForEach ($r in $Result)
  {
    $item = New-Object System.Windows.Forms.ListViewItem($r.IdentityReference.ToString())
    $item.SubItems.Add($r.IsInherited.ToString())
    $item.SubItems.Add($r.FileSystemRights.ToString())
    $listView.Items.AddRange($item)
  }
}
##############################
$Form = New-Object System.Windows.Forms.Form
$Form.Text = "Права доступа на папку"
$Form.StartPosition = "CenterScreen"
$Form.Width = 600
$Form.Height = 400
##############################
$Label = New-Object System.Windows.Forms.Label
$Label.Text = "Введите путь к папке, Например C:\Temp"
$Label.Location = New-Object System.Drawing.Size(20,30)
$Label.BackColor = "Transparent"
$Label.AutoSize = $true
$Form.Controls.Add($Label)
##############################
$inputBox = New-Object System.Windows.Forms.TextBox
$inputBox.Location = New-Object System.Drawing.Size(20,50)
$inputBox.Size = New-Object System.Drawing.Size(250,20)
$Form.Controls.Add($inputBox)
##############################
$listView = New-Object System.Windows.Forms.ListView
$listView.View = 'Details'
$listview.Location = New-Object System.Drawing.Size(10,150)
$listView.Width = 565
$listView.Height = 200
$listView.Columns.Add("Кто имеет доступ") | Out-Null
$listView.Columns.Add("Наследование прав") | Out-Null
$listView.Columns.Add("Тип доступа") | Out-Null
$Form.Controls.Add($listView)
##############################
$Button = New-Object System.Windows.Forms.Button
$Button.Location = New-Object System.Drawing.Size(400,30)
$Button.Size = New-Object System.Drawing.Size(110,80)
$Button.Text = "Посмотреть права"
$Button.Add_Click( {GetAclFolder} )
$Form.Controls.Add($Button)
##############################
$Form.ShowDialog() | Out-Null

Результат

Comments

[L0ns]

Спасибо большое за помощь, а как бы еще сделать так, чтобы результат возможно было скопировать?

[Роман Безруков]

L0ns, для чего?

[L0ns]

Роман Безруков, Ну вся суть этого кейса, чтоб посмотреть есть ли отдельная группа доступа на запрашиваемую сетевую папку, если есть, то просто скопировать её название и накинуть пользователю через AD.

[Роман Безруков]

L0ns, проверять у listview свойство SelectedItems, выбирать первый столбец...можно на нажатие кнопки навесить

[L0ns]

Роман Безруков, Поясните, пожалуйста, как это сделать? добавить еще одну одну кнопку, которая будет копировать в буфер?

[Роман Безруков]

L0ns, как то так:
1. у ListView включить MultiSelect
2. Добавить еще одну кнопку на форму. Кнопка доступна (Enabled = $true), если в ListView выбрана хотя бы одна строка (свойство ListView.SelectedItems не пустое)
3. В цикле пройти по всем выбранным элементам ListView, выбирая значения первого столбца

[L0ns]

Роман Безруков, Не особо понял как это реализовать, мои знания оставляют желать лучшего :) Но зато разобрался почему у меня вывода в форму не было, нужно было добавить | Out-String в конце строки:

$Result = (get-acl $Input).access | select @{expression={$_.IdentityReference}; label='Кто имеет доступ'}, @{expression={$_.IsInherited}; label='Наследование прав'}, @{expression={$_.FileSystemRights}; label='Тип доступа'} | Out-String

Вывод конечно получается кривоватый, столбцы не отформатированы, но зато можно выделить и скопировать.

[Роман Безруков]

L0ns, вместо Out-String в данном случае лучше использовать Format-Table -AutoSize (сокращенно ft -a)

[L0ns]

Роман Безруков, Без | Out-String в конце результат не выводится в форму $outputBox. А ft -a я подставлял вместо select, разницы в выводе в форму нет. А если ставить его в конце, то в $outputBox выводится Microsoft.PowerShell.Commands.Internal.Format.FormatEntryData

[L0ns]

Роман Безруков, Нашел еще одно свойство ListView - LabelEdit ($listView.LabelEdit = $true), которое позволяет редактировать ячейку и соответственно решают проблему с копированием названия группы. Но с толкнулся с другой проблемой, если несколько раз нажать на кнопку "Просмотреть права", то строки дублируются (добавляются ниже), а не обновляются. Можно ли как-то так сделать, чтобы при нажатии кнопки "Просмотреть права" ячейки ListView сначала очищалось, а новые данные подгружались снова?

[Роман Безруков]

L0ns, добавить $listView.Items.Clear() в обработчик нажатия кнопки

[L0ns]

Роман Безруков, Спасибо, очень помогли!