Open(1, "RenameTargets.txt", 2)

Do
	$Comp = ReadLine(1)
		
		If $Comp = ""
			Close(1)
			Exit
		EndIf
	
;**********************************
Function renameComputer()
	Select
		Case InStr($Comp, "B2-") <> 0
			$newName = Right($Comp, Len($Comp) - 3)
			$newName = UCase("Old-" + $newName)
		EndSelect
		$cmd = "netdom renamecomptuer $comp /newname:$newname /userd:username /passwordD:password /usero:administrator /passwordo:password /force /reboot:20"		
		
	EndFunction