get local remote users

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

$objForm = New-Object System.Windows.Forms.Form
$objForm.Text = "Data Entry Form"
$objForm.Size = New-Object System.Drawing.Size(210, 260)
$objForm.StartPosition = "CenterScreen"

$OKButton = New-Object System.Windows.Forms.Button
$OKButton.Location = New-Object System.Drawing.Size(10, 80)
$OKButton.Size = New-Object System.Drawing.Size(180, 30)
$OKButton.Text = "查看遠程桌面權限"
$OKButton.Add_Click({
    $objTextBox2.Text = ""
    $Computer = $objTextBox1.Text
    if (!(Test-Connection $Computer -Count 2 -Quiet))
    {
        $objTextBox2.Text = "$Computer 無法連接"
    }
    else
    {
        $adcomputer = [ADSI]("WinNT://" + $Computer + "/Remote Desktop Users,group")
        $members = $adcomputer.psbase.Invoke("Members") | foreach{ ([ADSI]$_).InvokeGet("Name") }
        if ($members -eq $null)
        {
            $objTextBox2.Text = "$Computer 無遠程桌面權限"
        }
        else
        {
            $objTextBox2.Text = ""
            $nl = [System.Environment]::NewLine
            foreach ($user in $members)
            {
                $objTextBox2.AppendText($user + $nl)
            }
        }
    }
})
$objForm.Controls.Add($OKButton)


$objLabel = New-Object System.Windows.Forms.Label
$objLabel.Location = New-Object System.Drawing.Size(10, 20)
$objLabel.Size = New-Object System.Drawing.Size(180, 20)
$objLabel.Text = "請在下方輸入一個電腦名稱："
$objForm.Controls.Add($objLabel)

$objTextBox1 = New-Object System.Windows.Forms.TextBox
$objTextBox1.Location = New-Object System.Drawing.Size(10, 40)
$objTextBox1.Size = New-Object System.Drawing.Size(180, 20)
$objForm.Controls.Add($objTextBox1)

$objTextBox2 = New-Object System.Windows.Forms.TextBox
$objTextBox2.Location = New-Object System.Drawing.Size(10, 120)
$objTextBox2.Size = New-Object System.Drawing.Size(180, 90)
$objTextBox2.ScrollBars = 'Vertical'
$objTextBox2.Multiline = $true
$objForm.Controls.Add($objTextBox2)

$objForm.Topmost = $True

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