PowerShell - [9] :: Microsoft Windows :: Компьютерный форум Ru.Board

Код:

[System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
$Form = new-object system.windows.forms.form
$Form.topmost = $true
# $Form.Autosize = "True"

$Size = new-object system.drawing.Size

$ListView = new-object system.windows.forms.ListView
$ListView.Dock = "Fill"
$ListView.View = "Details"
$listView.GridLines = $True.ToString()
$ListView.FullRowSelect = $True.ToString()
$listView.AllowColumnReorder = $True.ToString()

$columnHeader1 = new-object System.Windows.Forms.ColumnHeader
$columnHeader1.Text = " "
$columnHeader2 = new-object System.Windows.Forms.ColumnHeader
$columnHeader2.Text = "Имя пользователя"
$columnHeader3 = new-object System.Windows.Forms.ColumnHeader
$columnHeader3.Text = "Имя компьютера"
$columnHeader4 = new-object System.Windows.Forms.ColumnHeader
$columnHeader4.Text = "IP адрес"
$columnHeader5 = new-object System.Windows.Forms.ColumnHeader
$columnHeader5.Text = "Тип подключения"

$listView.Columns.Add($columnHeader1)
$listView.Columns.Add($columnHeader2)
$listView.Columns.Add($columnHeader3)
$listView.Columns.Add($columnHeader4)
$listView.Columns.Add($columnHeader5)

$txtCode = @'
    imports system
    Class mow
        function main() as System.DirectoryServices.DirectoryEntry
            Dim entryPC As New System.DirectoryServices.DirectoryEntry
            entryPC.Path = "WinNT://."
            return entryPC
        end function
    end class
'@

$Form.Add_Load(
{
    $a = net view | findstr "\\"
    $ping = new-object Net.NetworkInformation.Ping
    for ($i = 0; $i -le $a.Count - 1; $i++)
    {
        $Item = new-object system.windows.forms.ListViewItem($i)
        $b = $a[$i].Remove($a[$i].IndexOf(" "), $a[$i].length - $a[$i].IndexOf(" "))
        $b = $b.Replace("\\", "")
        $Result = $ping.Send($b)
        if($Result.Status -eq "Success")
        {
            $ComputerSystem = Get-WMIobject -class "Win32_ComputerSystem" -namespace "root\CIMV2" -computername $b
            if ($ComputerSystem.UserName -ne $null)
            {
                $Item.SubItems.Add($ComputerSystem.UserName)
            }
            else
            {
                $Item.SubItems.Add("Н/А")
            }
            $Item.SubItems.Add($b)
            $Item.SubItems.Add($Result.Address)
            $Item.SubItems.Add("Тип подключения")

            $Item.Text = $i + 1
            $ListView.Items.Add($Item)
        }
    }
    $listView.AutoResizeColumns("ColumnContent")
    for ($i = 0;$i -le $listView.Columns.Count - 1; $i++)
    {
        $listView.columns[$i].width
        $Size.Width += ($listView.columns[$i].width +20)
    }
    $Size.Height = 700
    $form.Size = $Size
})

$form.Controls.add($ListView)
$Form.showdialog()

Модерирует : KLASS, IFkO
KLASS (06-03-2018 00:43): Объединение тем по сценариям: Сценарии Windows	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению