if open(1,"c:\computers2.txt",2) = 0
	$line = readline(1)
	while @ERROR = 0
		$computer = Split($line,",")[0]
		SHELL "C:\ALIVE /repeat=2 " + $computer
		If not @ERROR
			shell "C:\pstools\psloggedon \\" + $computer
		EndIf
		$line = readline(1)
	LOOP
	CLOSE (1)
Endif