[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
$nwINFO = Get-WmiObject -ComputerName $Computer Win32_NetworkAdapterConfiguration | Where-Object { $_.IPAddress -ne $null } #| Select-Object DNSHostName,Description,IPAddress,IpSubnet,DefaultIPGateway,MACAddress,DNSServerSearchOrder | format-Table * -AutoSize
$nwServerName = $nwINFO.DNSHostName
$nwDescrip = $nwINFO.Description
$nwIPADDR = $nwINFO.IPAddress
$nwSUBNET = $nwINFO.IpSubnet
$nwGateWay = $nwINFO.DefaultIPGateway
$nwMacADD = $nwINFO.MACAddress
$nwDNS = $nwINFO.DNSServerSearchOrder
$objForm = New-Object System.Windows.Forms.Form
$objForm.Text = "Network Server Name"
$objForm.Size = New-Object System.Drawing.Size(600,540)
$objForm.StartPosition = "CenterScreen"
$objForm.KeyPreview = $True
$objForm.Add_KeyDown({if ($_.KeyCode -eq "Enter")
{$x=$objTextBox.Text;$objForm.Close()}})
$objForm.Add_KeyDown({if ($_.KeyCode -eq "Escape")
{$objForm.Close()}})
$OKButton = New-Object System.Windows.Forms.Button
$OKButton.Location = New-Object System.Drawing.Size(490,460)
$OKButton.Size = New-Object System.Drawing.Size(75,23)
$OKButton.Text = "OK"
$OKButton.Add_Click({$x=$objTextBox.Text;$u = $objTextBox2.Text; $objForm.Close()})
$objForm.Controls.Add($OKButton)
$objTextBox = New-Object System.Windows.Forms.ListBox
$objTextBox.Location = New-Object System.Drawing.Size(10,40)
$objTextBox.Size = New-Object System.Drawing.Size(270,20)
$objTextBox.Height = 200
$objForm.Controls.Add($objTextBox)
$objTextBox2 = New-Object System.Windows.Forms.ListBox
$objTextBox2.Location = New-Object System.Drawing.Size(300,40)
$objTextBox2.Size = New-Object System.Drawing.Size(270,20)
$objTextBox2.Height = 200
$objForm.Controls.Add($objTextBox2)
$objTextBox3 = New-Object System.Windows.Forms.ListBox
$objTextBox3.Location = New-Object System.Drawing.Size(10,250)
$objTextBox3.Size = New-Object System.Drawing.Size(560,20)
$objTextBox3.Height = 200
$objForm.Controls.Add($objTextBox3)
$nwServerName | ForEach-Object {[void] $objTextBox.Items.Add($_)}
$nwDescrip | ForEach-Object {[void] $objTextBox2.Items.Add($_)}
$nwIPADDR | ForEach-Object {[void] $objTextBox3.Items.Add($_)}
#$nwSUBNET | ForEach-Object {[void] $objListBox.Items.Add($_)}
#$nwGateWay
#$nwMacADD
#$nwDNS
$objForm.Topmost = $True
$objForm.Add_Shown({$objForm.Activate()})
[void] $objForm.ShowDialog()
