How do I use PowerShell to 1) telnet to a list of digis to 2) login and run a single command?

# ==============================================================================================
# 
# Microsoft PowerShell Source File -- Created with SAPIEN Technologies PrimalScript 4.1
# 
# NAME: 
# 
# AUTHOR: 
# DATE  : 3/25/2009
# 
# COMMENT: Code originally found at http://www.leeholmes.com/blog/ScriptingNetworkTCPConnectionsInPowerShell.aspx
# 
# ==============================================================================================
 
## Connect-Computer.ps1 
## Interact with a service on a remote TCP port 
param( 
        ##[string] $remoteHost = "xxx.xxx.xxx.xxx", 
        [int] $port = 23, 
        [string] $inputObject, 
        [int] $commandDelay = 100
     ) 
 
[string] $output = "" 
 
##$errorActionPreference = "SilentlyContinue"
 
$currentInput = $inputObject 
 
if(-not $currentInput) 
{ 
    $SCRIPT:currentInput = @($input) 
} 
##I want it to always run batched, not wait for input, so I commented out the check and forced $scriptedMode
##$scriptedMode = [bool] $currentInput 
$scriptedMode = 1
 
##Here we have to replace username, password, and command with what we want to happen once the telnet session is opened.
##$currentInput = ("username","password","command")
$currentInput = ("USER","PASSWORD","boot a=r")
 
function Main 
{ 
    ## Open the socket, and connect to the computer on the specified port 
##    if(-not $scriptedMode) 
##    { 
        write-host "Connecting to $remoteHost on port $port" 
##    } 
 
    trap 
    	{ 
    		Write-Host "Could not connect to remote computer: $_"
    	 	continue 
    	} 
    $socket = new-object System.Net.Sockets.TcpClient($remoteHost, $port) 
 
##    if(-not $scriptedMode) 
##    { 
##        write-host "Connected.  Press ^D followed by [ENTER] to exit.`n" 
##    } 
 
    $stream = $socket.GetStream() 
    $writer = new-object System.IO.StreamWriter($stream) 
 
    ## Create a buffer to receive the response 
    $buffer = new-object System.Byte[] 1024 
    $encoding = new-object System.Text.AsciiEncoding 
 
	$sentCommands = 0
    while(-not $sentCommands) 
    { 
        ## Receive the output that has buffered so far 
        $SCRIPT:output += GetOutput 
 
        ## If we're in scripted mode, send the commands, 
        ## receive the output, and exit. 
        if($scriptedMode) 
        { 
            foreach($line in $currentInput) 
            { 
                $writer.WriteLine($line) 
                $writer.Flush() 
                Start-Sleep -m $commandDelay 
            } 
 
            $SCRIPT:output += GetOutput 
			$sentCommands = 1
            break 
        } 
        ## If we're in interactive mode, write the buffered 
        ## output, and respond to input. 
        else 
        { 
            if($output)  
            { 
                foreach($line in $output.Split("`n")) 
                { 
                    write-host $line 
                } 
                $SCRIPT:output = "" 
            } 
 
            ## Read the user's command, quitting if they hit ^D 
            $command = read-host 
            if($command -eq ([char] 4)) { break; } 
 
            ## Otherwise, Write their command to the remote host      
            $writer.WriteLine($command) 
            $writer.Flush() 
        } 
    } 
 
    ## Close the streams 
    $writer.Close() 
    $stream.Close() 
 
    ## If we're in scripted mode, return the output 
    if($scriptedMode) 
    { 
        $output 
		[string] $output = ""
    } 
} 
 
## Read output from a remote host 
function GetOutput 
{ 
    $outputBuffer = "" 
    $foundMore = $false  
 
    ## Read all the data available from the stream, writing it to the 
    ## output buffer when done. 
    do 
    { 
        ## Allow data to buffer for a bit 
        start-sleep -m 500 
 
        ## Read what data is available 
        $foundmore = $false 
        while($stream.DataAvailable)  
        { 
            $read = $stream.Read($buffer, 0, 1024)    
            $outputBuffer += ($encoding.GetString($buffer, 0, $read))  
            $foundmore = $true 
        } 
    } while($foundmore) 
 
    $outputBuffer 
} 
 
##I eventually want to make $Digis = Get-Content $rebootList and have $rebootList defined as an input variable.
$Digis = Get-Content h:\test.csv
foreach ($remoteHost in $Digis) {. Main}

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
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:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152: