How to now the server name

OBJECT Codeunit 50000 Get servername
{
  OBJECT-PROPERTIES
  {
    Date=27/02/03;
    Time=16:20:56;
    Modified=Yes;
    Version List=mibuso.com HowTo2;
  }
  PROPERTIES
  {
    OnRun=BEGIN
            IF CONFIRM(fctGetServerName) THEN;
            IF CONFIRM(fctGetServerType) THEN;
          END;

  }
  CODE
  {

    PROCEDURE fctGetServerName@1000000000() : Text[30];
    VAR
      ltxtTemp@1000000000 : Text[250];
      i@1000000001 : Integer;
    BEGIN
      ltxtTemp := CONTEXTURL;
      IF CONFIRM(ltxtTemp) THEN;
      i := STRPOS(ltxtTemp,'servername=');
      IF i > 0 THEN BEGIN
        ltxtTemp := COPYSTR(ltxtTemp,i + 11,999);
        i := STRPOS(ltxtTemp,'&');
        EXIT(COPYSTR(ltxtTemp,1,i - 1));
      END
      ELSE
        EXIT('');
    END;

    PROCEDURE fctGetServerType@1000000001() : Text[30];
    VAR
      ltxtTemp@1000000000 : Text[250];
      i@1000000001 : Integer;
    BEGIN
      ltxtTemp := CONTEXTURL;
      i := STRPOS(ltxtTemp,'servertype=');
      IF i > 0 THEN
        EXIT(COPYSTR(ltxtTemp,i + 11))
      ELSE
        EXIT('');
    END;

    BEGIN
    END.
  }
}