Аналог dsa.msc на PowerShell (версия 1)

Оказывается работать с формами в PowerShell очень забавно. Появился на свет данный скрипт по очень простой причине, захотелось понимать средствами PowerShell когда у пользователя просрочен пароль от AD.

Проверить когда последний раз меняться пароль можно вот такой командой, она покажет список всех пользователей домена.

get-aduser -filter * -properties passwordlastset |ft Name, passwordlastset

1	get-aduser -filter * -properties passwordlastset \|ft Name, passwordlastset

Узнать для конкретного пользователя:

get-aduser nameuser -properties passwordlastset |ft Name, passwordlastset

1	get-aduser nameuser -properties passwordlastset \|ft Name, passwordlastset

Но есть одно НО, что бы так просто делать командами запросы, требуется знать логин пользователя, что не всегда удобно…

Допустим, нам требуется сменить пароль для учетной записи:

$loginname = nameuser
$newpwd = ConvertTo-SecureString -String "Aa12345" -AsPlainText –Force
Set-ADAccountPassword $loginname -NewPassword $newpwd -Reset -PassThru

$loginname = nameuser

$newpwd = ConvertTo-SecureString -String "Aa12345" -AsPlainText –Force

Set-ADAccountPassword $loginname -NewPassword $newpwd -Reset -PassThru

Или требуется сменить пароль и при первом входе его сменить:

$loginname = nameuser
$newpwd = ConvertTo-SecureString -String "Aa12345" -AsPlainText –Force
Set-ADAccountPassword $loginname -NewPassword $newpwd -Reset -PassThru | Set-ADuser -ChangePasswordAtLogon $True

$loginname = nameuser

$newpwd = ConvertTo-SecureString -String "Aa12345" -AsPlainText –Force

Set-ADAccountPassword $loginname -NewPassword $newpwd -Reset -PassThru | Set-ADuser -ChangePasswordAtLogon $True

Разблокировка учетной записи средствами PowerShell делается вот таким образом:

$loginname = nameuser
Get-ADUser -Identity $loginname | Unlock-ADAccount

1 2	$loginname = nameuser Get-ADUser -Identity $loginname \| Unlock-ADAccount

Ну теперь думаю можно переходить к самому скрипту.

Import-Module ActiveDirectory 

Add-Type -AssemblyName System.Windows.Forms

$Form = New-Object system.Windows.Forms.Form
$Form.Text = "Проверка пользователя"
$Form.TopMost = $true
$Form.StartPosition = "CenterScreen"
$Form.MaximizeBox = $false
$Form.MinimizeBox = $True
$Form.FormBorderStyle = [System.Windows.Forms.FormBorderStyle]::FixedDialog
#прозрачность
#$Form.Opacity = 0.9 
$Form.Width = 400
$Form.Height = 300

$textBox1 = New-Object system.windows.Forms.TextBox
$textBox1.Width = 100
$textBox1.Height = 20
$textBox1.Text = ""
$textBox1.location = new-object system.drawing.point(10,20)
$textBox1.Font = "Microsoft Sans Serif,10"
$Form.controls.Add($textBox1)
$textBox1.add_KeyDown({if ($_.KeyCode -eq "Enter"){FFADU}}) 

$button1 = New-Object system.windows.Forms.Button
$button1.Text = "Поиск"
$button1.Width = 60
$button1.Height = 30
$button1.location = new-object system.drawing.point(137,20)
$button1.Font = "Microsoft Sans Serif,10"
$Form.controls.Add($button1)
$button1.add_Enter({FFADU})

$button2 = New-Object system.windows.Forms.Button
$button2.Text = "Смена"
$button2.Width = 60
$button2.Height = 30
$button2.Add_Click({
$loginname = $listView1.Text
$newpwd = ConvertTo-SecureString -String "Aa12345" -AsPlainText –Force
Set-ADAccountPassword $loginname -NewPassword $newpwd -Reset -PassThru | Set-ADuser -ChangePasswordAtLogon $True
[System.Windows.MessageBox]::Show('Пароль сменен на Aa12345 со сменой при первом входе')
})
$button2.location = new-object system.drawing.point(222,20)
$button2.Font = "Microsoft Sans Serif,10"
$Form.controls.Add($button2)

$listView1 = New-Object System.Windows.Forms.ListBox
$listView1.MultiColumn=$false
$listView1.Width=100
$listView1.Height=170
$listView1.location = new-object system.drawing.point(9,53)
$Form.controls.Add($listView1)
$listView1.add_click({SelADU})

$label1 = New-Object system.windows.Forms.Label
$label1.Text = "Последний раз пароль менялся:"
$label1.AutoSize = $true
$label1.Width = 25
$label1.Height = 10
$label1.location = new-object system.drawing.point(139,74)
$label1.Font = "Microsoft Sans Serif,10"
$Form.controls.Add($label1)

$label3 = New-Object system.windows.Forms.Label
$label3.Text = "Просрочен пароль? (FALSE - норм):"
$label3.AutoSize = $true
$label3.Width = 25
$label3.Height = 10
$label3.location = new-object system.drawing.point(139,114)
$label3.Font = "Microsoft Sans Serif,10"
$Form.controls.Add($label3)

$label5 = New-Object system.windows.Forms.Label
$label5.Text = "Имя логина:"
$label5.AutoSize = $true
$label5.Width = 25
$label5.Height = 10
$label5.location = new-object system.drawing.point(139,154)
$label5.Font = "Microsoft Sans Serif,10"
$Form.controls.Add($label5)

$button3 = New-Object system.windows.Forms.Button
$button3.Text = "Выход"
$button3.Width = 60
$button3.Height = 30
$button3.Add_Click({
$form.Close()
})
$button3.location = new-object system.drawing.point(10,225)
$button3.Font = "Microsoft Sans Serif,10"
$Form.controls.Add($button3)

#PasswordLastSet
$label2 = New-Object system.windows.Forms.Label
$label2.AutoSize = $true
$label2.Width = 25
$label2.Height = 40
$label2.location = new-object system.drawing.point(139,94)
$label2.Font = "Microsoft Sans Serif,10"
$Form.controls.Add($label2)
#PasswordExpired
$label4 = New-Object system.windows.Forms.Label
$label4.AutoSize = $true
$label4.Width = 25
$label4.Height = 10
$label4.location = new-object system.drawing.point(139,134)
$label4.Font = "Microsoft Sans Serif,10"
$Form.controls.Add($label4)
#Здесь могла быть ваша реклама
$label6 = New-Object system.windows.Forms.Label
$label6.Text = "Здесь могла быть ваша реклама"
$label6.AutoSize = $true
$label6.Width = 25
$label6.Height = 10
$label6.location = new-object system.drawing.point(139,174)
$label6.Font = "Microsoft Sans Serif,10"
$Form.controls.Add($label6)

function FFADU{
    $listView1.Items.Clear()
    $ldapfilte = [string]"(|(userPrincipalName=*"+ $textBox1.Text + "*)(Name=*"+ $textBox1.Text + "*))"
    $UsersAD = Get-ADUser -ldapfilter $ldapfilte -Properties SamAccountName | Sort SamAccountName
    foreach ($itemAD in $UsersAD)
        {
            $listView1.Items.Add($itemAD.SamAccountName)
        }
    $listView1.SelectedIndex=0
}

function SelADU {
    $label2.Text = ""
    $label4.Text = ""
    $Global:UserAD = Get-ADUser -Identity $listView1.Text -Properties PasswordExpired, PasswordLastSet
    $label2.Text =if ($Global:UserAD.PasswordLastSet) {$Global:UserAD.PasswordLastSet}
    $label4.Text = $Global:UserAD.PasswordExpired
}

[void]$Form.ShowDialog()
$Form.Dispose()

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

Import-Module ActiveDirectory

Add-Type -AssemblyName System.Windows.Forms

$Form = New-Object system.Windows.Forms.Form

$Form.Text = "Проверка пользователя"

$Form.TopMost = $true

$Form.StartPosition = "CenterScreen"

$Form.MaximizeBox = $false

$Form.MinimizeBox = $True

$Form.FormBorderStyle = [System.Windows.Forms.FormBorderStyle]::FixedDialog

#прозрачность

#$Form.Opacity = 0.9

$Form.Width = 400

$Form.Height = 300

$textBox1 = New-Object system.windows.Forms.TextBox

$textBox1.Width = 100

$textBox1.Height = 20

$textBox1.Text = ""

$textBox1.location = new-object system.drawing.point(10,20)

$textBox1.Font = "Microsoft Sans Serif,10"

$Form.controls.Add($textBox1)

$textBox1.add_KeyDown({if ($_.KeyCode -eq "Enter"){FFADU}})

$button1 = New-Object system.windows.Forms.Button

$button1.Text = "Поиск"

$button1.Width = 60

$button1.Height = 30

$button1.location = new-object system.drawing.point(137,20)

$button1.Font = "Microsoft Sans Serif,10"

$Form.controls.Add($button1)

$button1.add_Enter({FFADU})

$button2 = New-Object system.windows.Forms.Button

$button2.Text = "Смена"

$button2.Width = 60

$button2.Height = 30

$button2.Add_Click({

$loginname = $listView1.Text

$newpwd = ConvertTo-SecureString -String "Aa12345" -AsPlainText –Force

Set-ADAccountPassword $loginname -NewPassword $newpwd -Reset -PassThru | Set-ADuser -ChangePasswordAtLogon $True

[System.Windows.MessageBox]::Show('Пароль сменен на Aa12345 со сменой при первом входе')

})

$button2.location = new-object system.drawing.point(222,20)

$button2.Font = "Microsoft Sans Serif,10"

$Form.controls.Add($button2)

$listView1 = New-Object System.Windows.Forms.ListBox

$listView1.MultiColumn=$false

$listView1.Width=100

$listView1.Height=170

$listView1.location = new-object system.drawing.point(9,53)

$Form.controls.Add($listView1)

$listView1.add_click({SelADU})

$label1 = New-Object system.windows.Forms.Label

$label1.Text = "Последний раз пароль менялся:"

$label1.AutoSize = $true

$label1.Width = 25

$label1.Height = 10

$label1.location = new-object system.drawing.point(139,74)

$label1.Font = "Microsoft Sans Serif,10"

$Form.controls.Add($label1)

$label3 = New-Object system.windows.Forms.Label

$label3.Text = "Просрочен пароль? (FALSE - норм):"

$label3.AutoSize = $true

$label3.Width = 25

$label3.Height = 10

$label3.location = new-object system.drawing.point(139,114)

$label3.Font = "Microsoft Sans Serif,10"

$Form.controls.Add($label3)

$label5 = New-Object system.windows.Forms.Label

$label5.Text = "Имя логина:"

$label5.AutoSize = $true

$label5.Width = 25

$label5.Height = 10

$label5.location = new-object system.drawing.point(139,154)

$label5.Font = "Microsoft Sans Serif,10"

$Form.controls.Add($label5)

$button3 = New-Object system.windows.Forms.Button

$button3.Text = "Выход"

$button3.Width = 60

$button3.Height = 30

$button3.Add_Click({

$form.Close()

})

$button3.location = new-object system.drawing.point(10,225)

$button3.Font = "Microsoft Sans Serif,10"

$Form.controls.Add($button3)

#PasswordLastSet

$label2 = New-Object system.windows.Forms.Label

$label2.AutoSize = $true

$label2.Width = 25

$label2.Height = 40

$label2.location = new-object system.drawing.point(139,94)

$label2.Font = "Microsoft Sans Serif,10"

$Form.controls.Add($label2)

#PasswordExpired

$label4 = New-Object system.windows.Forms.Label

$label4.AutoSize = $true

$label4.Width = 25

$label4.Height = 10

$label4.location = new-object system.drawing.point(139,134)

$label4.Font = "Microsoft Sans Serif,10"

$Form.controls.Add($label4)

#Здесь могла быть ваша реклама

$label6 = New-Object system.windows.Forms.Label

$label6.Text = "Здесь могла быть ваша реклама"

$label6.AutoSize = $true

$label6.Width = 25

$label6.Height = 10

$label6.location = new-object system.drawing.point(139,174)

$label6.Font = "Microsoft Sans Serif,10"

$Form.controls.Add($label6)

function FFADU{

$listView1.Items.Clear()

$ldapfilte = [string]"(|(userPrincipalName=*"+ $textBox1.Text + "*)(Name=*"+ $textBox1.Text + "*))"

$UsersAD = Get-ADUser -ldapfilter $ldapfilte -Properties SamAccountName | Sort SamAccountName

foreach ($itemAD in $UsersAD)

{

$listView1.Items.Add($itemAD.SamAccountName)

}

$listView1.SelectedIndex=0

}

function SelADU {

$label2.Text = ""

$label4.Text = ""

$Global:UserAD = Get-ADUser -Identity $listView1.Text -Properties PasswordExpired, PasswordLastSet

$label2.Text =if ($Global:UserAD.PasswordLastSet) {$Global:UserAD.PasswordLastSet}

$label4.Text = $Global:UserAD.PasswordExpired

}

[void]$Form.ShowDialog()

$Form.Dispose()

И так, на выходе мы получаем форму которая может найти учетную запись, вывести списки логинов и дать необходимую информацию. Так же скрипт способен произвести смену пароля для учетной записи (пароль ставится в тексте самого скрипта) и попросить смену при первом входе в систему.

Это первая версия скрипта.

Отдельное спасибо в освоении двух функций Максиму, а так же Тёмычу за его рассказ об Unlock-ADAccount.

Похожие записи:

Добавить комментарий Отменить ответ