Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » PowerShell

Модерирует : KLASS, IFkO

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

   

Etalon

BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору


Код:
 
[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()
 


Всего записей: 306 | Зарегистр. 03-02-2006 | Отправлено: 16:47 24-05-2006
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » PowerShell
KLASS (06-03-2018 00:43): Объединение тем по сценариям: Сценарии Windows


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.Board
© Ru.Board 2000-2018

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru