SUB GetHostName ( )