Break on

$rc = Open(1,"c:\xpsystems.txt",5)
$rc = Open(2,"c:\nonxpsystems.txt",5)
$rc = Open(3,"c:\notonline.txt",5)

$computers = COMNetView(domainname)

For Each $computer in $computers
	$online = Ping($computer,0,4,2500)
	If $online = "1"
		$winver = ReadValue("\\" + $computer + "\HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductName")
		If $winver = "Microsoft Windows XP"
			$rc = WriteLine(1,$computer + ";" + $winver + @CRLF)
		Else
			$rc = WriteLine(2,$computer + ";" + $winver + @CRLF)
		EndIf
	Else
		$rc = WriteLine(3,$computer + " is not online." + @CRLF)
	EndIf
Next

$rc = Close(1)
$rc = Close(2)
$rc = Close(3)