Obtener Nombre del Servidor SQL Server 2005

Esta funcion me devuelve el nombre del servidor SQL Server 2005, valido tambien para la versión 2008:

$PBExportHeader$f_server_name.srf
global type f_server_name from function_object
end type

forward prototypes
global function string f_server_name ()
end prototypes

global function string f_server_name ();

// -------------------------------------------------------------------------------------
// Funcion : f_server_name
// Proposito: Devuelve Nombre del Servidor SQL Server 2005
// Creador : Jorge A. Barzola Rosadio
// Fecha : 27/06/2010// -------------------------------------------------------------------------------------

String ls_ServerName

SELECT srvname
INTO :ls_ServerName
FROM sys.sysservers;

RETURN ls_ServerName

end function