Search by name using the Powershell GUI in Active Directory

Question

Search by name using the Powershell GUI in Active Directory

Good afternoon dear forum users. Please help me with the following question. I am trying to create a GUI application in Powershell GUI. Since I'm new to programming and I don't have enough knowledge, I decided to turn to the forum for help. The essence of the application is to search for the full name in the Active Directory accounts of the desired employee account and view the date of changing the password of this account. I have a ready made code that works when you enter your username the account is in English. At the same time, I want to implement a search in Russian. The code that I give below searches in Russian, but only in text form displays a list of accounts by full name, this text can only be copied. Please tell me how you can program the program so that it would search not in the form of a FULL name text, but in the form of elements on the full name of which you can click the mouse cursor and get the result. I attach a screenshot of the program https://i.stack.imgur.com/GJ5qP.png . Thank you in advance for your help.

[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")

$Form = New-Object System.Windows.Forms.Form
$Form.Size = New-Object System.Drawing.Size(460,350) # Размер формы
$Form.Text ="Pass info"
$Form.AutoSize = $false
$Form.MaximizeBox = $false # кнопка развернуть программу
$Form.MinimizeBox = $true # кнопка свернуть программу
$Form.BackColor = "#c08888" # Цвет формы
$Form.ShowIcon = $true # Включить иконку(левый верхний угол) $true , отключить иконку $false
$Form.SizeGripStyle = [System.Windows.Forms.SizeGripStyle]::Hide # Запретить растягивание формы
#$Form.SizeGripStyle = "Hide"
$Form.FormBorderStyle = [System.Windows.Forms.FormBorderStyle]::Fixed3D # Запретить растягивание формы _2
$Form.WindowState = "Normal"
$Form.StartPosition = "CenterScreen" #loads the window in the center of the screen
$Form.Opacity = 1.0 # Прозрачность формы(менее 1 прозрачная форма)
$Form.TopMost = $false # Поверх других окон

# тут получить код иконки в левом верхнем углу программы: 
# https://onlineimagetools.com/convert-image-to-base64
# вставить код сюда:  $iconBase64      = ''  между кавычек.

$iconBase64      = ''
$iconBytes       = [Convert]::FromBase64String($iconBase64)
$stream          = New-Object IO.MemoryStream($iconBytes, 0, $iconBytes.Length)
$stream.Write($iconBytes, 0, $iconBytes.Length);
$iconImage       = [System.Drawing.Image]::FromStream($stream, $true)
$Form.Icon       = [System.Drawing.Icon]::FromHandle((New-Object System.Drawing.Bitmap -Argument $stream).GetHIcon())

###################################### Тут конец иконки.......


########### Старт функции:

function Info {
$wks=$InputBox.text;
Write-Host $wks
$regex1 = "[^-a-zA-Z0-9_#.!@]+"
$regex2 = "[^-а-яА-Я0-9_#.!@]+"
If($wks -match $regex2) {
$Result1=Get-ADUser -identity $wks -Properties * | select CN -ExpandProperty CN
$outputBox.text=$Result1
$Result2=Get-ADUser -identity $wks -Properties * | select PasswordLastset -ExpandProperty PasswordLastset
$outputBox2.text=$Result2
}
If($wks -match $regex1) { 
$wks2 = "$wks*"
Write-Host $wks2
$Result3=Get-AdUser -Filter 'name -Like $wks2' | Select Name -expandproperty Name| Sort Name | fl | out-string
Write-Host $Result3 

#$Result3 = ($Result3 -replace ' ','_')
#$Result3 = $Result3 -split '_',2 -join ' '
$ListBox.text = $Result3
} 
}

########### Тут конец функции.


############################################## Start text fields

#### Гр. выделение меток 2 и 3
$groupBox = New-Object System.Windows.Forms.GroupBox
$groupBox.Location = New-Object System.Drawing.Size(10,230)
$groupBox.size = New-Object System.Drawing.Size(280,80)
$groupBox.text = "Info:"
$Form.Controls.Add($groupBox)

$FormLabel1 = New-Object System.Windows.Forms.Label
$FormLabel1.Text = "User AD:"
$FormLabel1.ForeColor = "#3009f1"
$FormLabel1.Font = "Microsoft Sans Serif,8"
$FormLabel1.Location = New-Object System.Drawing.Point(10,10)
$FormLabel1.AutoSize = $true
$Form.Controls.Add($FormLabel1)

$FormLabel2 = New-Object System.Windows.Forms.Label
$FormLabel2.Text = "ФИО:"
$FormLabel2.Location = New-Object System.Drawing.Point(10,25)
$FormLabel2.ForeColor = "#3009f1"
$FormLabel2.Font = "Microsoft Sans Serif,8"
$FormLabel2.AutoSize = $true
#$Form.Controls.Add($FormLabel2) # Метка явл. частью общ. Form
$groupBox.Controls.Add($FormLabel2) # Метка явл. частью groupBox

$FormLabel3 = New-Object System.Windows.Forms.Label
$FormLabel3.Text = "Дата:"
$FormLabel3.Location = New-Object System.Drawing.Point(10,47)
$FormLabel3.ForeColor = "#3009f1"
$FormLabel3.Font = "Microsoft Sans Serif,8"
$FormLabel3.AutoSize = $true
#$Form.Controls.Add($FormLabel3) # Метка явл. частью общ. Form
$groupBox.Controls.Add($FormLabel3) # Метка явл. частью groupBox

############################################ InputBox #########################################

$InputBox = New-Object System.Windows.Forms.TextBox
$InputBox.Location = New-Object System.Drawing.Size(65,5)
$InputBox.Size = New-Object System.Drawing.Size(150,20)
$Form.Controls.Add($InputBox)

$outputBox = New-Object System.Windows.Forms.TextBox
$outputBox.Location = New-Object System.Drawing.Size(80,20)
$outputBox.Size = New-Object System.Drawing.Size(180,20)
$outputBox.ReadOnly = $True # Активировать поле только для чтения (нельзя поменять, удалить, дописать информацию в ячейке)
$groupBox.Controls.Add($outputBox)

$outputBox2 = New-Object System.Windows.Forms.TextBox
$outputBox2.Location = New-Object System.Drawing.Size(80,42)
$outputBox2.Size = New-Object System.Drawing.Size(180,42)
$outputBox2.ReadOnly = $True # Активировать поле только для чтения (нельзя поменять, удалить, дописать информацию в ячейке)
$groupBox.Controls.Add($outputBox2)

############################################## Список

$ListBox = New-Object System.Windows.Forms.TextBox 
$ListBox.Location = New-Object System.Drawing.Size(65,30) 
$ListBox.Size = New-Object System.Drawing.Size(220,200) 
$ListBox.MultiLine = $True #declaring the text box as multi-line 
$ListBox.AcceptsReturn = $true
$ListBox.ScrollBars = "Vertical"
$ListBox.AcceptsTab = $true
$ListBox.WordWrap = $True
$ListBox.ReadOnly = $True

$Form.Controls.Add($ListBox)

############################################## Список конец 


############################################## поиск на Русском и на Английском

$regex1 = "[^-a-zA-Z0-9_#.!@]+"
$regex2 = "[^-а-яА-Я0-9_#.!@]+"
$TestName = "Mouse" # Mouse или мышь
If($TestName -match $regex1){echo "English '$TestName'"}
If($TestName -match $regex2){echo "Русский '$TestName'"}
get-aduser -filter 'name -like "*" ' | select name -expandproperty name

############################################## поиск на Русском и на Английском конец

################ Тут кнопка

$Button = New-Object System.Windows.Forms.Button
$Button.Location = New-Object System.Drawing.Size(310,20)
$Button.Size = New-Object System.Drawing.Size(110,80)
$Button.Text = "Загрузить данные"
$Button.BackColor = "#d7f705"
$Button.Add_Click({Info})
$Form.Controls.Add($Button)

################ тут конец кнопки....

################ Привязка кнопки в программе к клавише Enter на клавиатуре ....

$Form.KeyPreview = $True
$Form.Add_KeyDown({if ($_.KeyCode -eq "Enter") 
    {
    # if enter, perform click
    $Button.PerformClick()
    }
})
################ Конец кода привязки кнопки ....

$Form.Add_Shown({$Form.Activate()})
[void] $Form.ShowDialog()```


  [1]: https://i.stack.imgur.com/GJ5qP.png

0

powershell gui

Author: Александр Хорольский, 2020-12-27

Source