SUB
GetHostName
( )