Mechanical Loss Characterization at Cryogenic Temperature of a Tungsten Wire: an Automated Measurement System