How to simulate custom user-agent query to web application?

hello

can i scrips same function by using delphiscript?

i tried it, but  "httpObj.open("GET", url, true);" calls "unknown error"

function HttpGet(url, userAgent): boolean;

var

  httpObj: OleVariant;

begin

  httpObj := Sys.OleObject['MSXML2.XMLHTTP'];

  httpObj.open('GET', url, true);

  httpObj.setRequestHeader('User-Agent', userAgent); // set user agent

  httpObj.setRequestHeader('If-Modified-Since', 'Sat, 1 Jan 2000 00:00:00 GMT'); /// do not cache the response

  httpObj.send();

  while(httpObj.readyState <> 4) do

    Delay(300);

    

  case httpObj.status of 

    200, 302 :

      if Length(httpObj.responseText) <> 0 then

        begin

          Log.Message('The ' + url + ' link is valid', httpObj.responseText);

            Result := false;

        end

      else

        Result := true;

  else

    begin

      Log.Message('The ' + url + ' link was not found, the returned status: ' +

            aqConvert.VarToStr(httpObj.status), httpObj.responseText);

      Result := false;

    end

  end

end;

thanks for your answer.

when i posted message about error, tried to execute this script:

procedure RequestTest;  

var i:olevariant;  

begin

try

i:= Sys.OleObject('MSXML2.XMLHTTP');

i.open('GET', '192.168.0.106/Some.Service/action.aspx?src=someSourse&dest=someDest&message=someMessage', True);

delay(5000);

Log.Event(i.readyState);

except

Log.Error('Exception', ExceptionMessage)

end;

end;

at string, which contains " i.open('GET', '192.16.." i got an error. you proposed me almost same code, excluding minor parameters. right now  
this function
is written , but with making request by telnet. i hope is temprorary )

thanks alot.

sorry for this dummy mistake )