Action() { int HttpRetCode=0; // Set redirection depth to 0 web_set_option("MaxRedirectionDepth", "0", LAST); // Initial Location where we want to go lr_save_string("http://www.mercury.com", "Location"); do { // Save new Redirection Info (Location: header) web_reg_save_param("Location", "LB=Location: ", "RB=\r\n", "Ord=1", "NotFound=Warning", "Search=Headers", LAST ); // do any web call (This needs to be modified to suit your needs) web_url("my_req", "URL={Location}", LAST ); // Get HTTP response Code HttpRetCode = web_get_int_property(HTTP_INFO_RETURN_CODE); } while ((HttpRetCode>=300) & (HttpRetCode<400)); return 0; }
$y=0; $c=100; $d=10; for($x=0; $x -lt 10; $x++) { $y++; $a=$y; $y=($y-1)+$c; $b=$y; bin\mdrv.exe -usr "script_name.usr" -waittime $d -rowsmin $a -rowsmax $b }
web_set_rts_key("key=HttpErrorsAsWarnings", "Value=1", LAST);
https://www.youtube.com/watch?v=ZscWpd8LbI8
#[xml]$adrt = .\lreapi_get_all_tests.ps1 ($adrt.Tests.Test | Where-Object Name -eq 'STORM_TEST_INTEGRATION' | Where-Object TestFolderPath -eq 'Subject\OneMDSR3A').ID
$user = 'c977004' $pass = $env:password $pair = "$($user):$($pass)" $bytes = [System.Text.Encoding]::ASCII.GetBytes($pair) $base64 = [System.Convert]::ToBase64String($bytes) #Write-output $base64 $headers = @{ 'Authorization'= "Basic "+$base64 } #Write-Output $headers $response = Invoke-WebRequest -Uri https://lreserver/LoadTest/rest/authentication-point/authenticate -Method GET -Headers $headers -SessionVariable session foreach ($ck in $response.BaseResponse.Cookies) { if($ck.Name -eq "LWSSO_COOKIE_KEY") { $cookiereq = $ck.Value } } $TCSession = New-Object Microsoft.PowerShell.Commands.WebRequestSession $cookie = New-Object System.Net.Cookie $cookie.Name = "LWSSO_COOKIE_KEY" $cookie.Value = $cookiereq $TCSession.Cookies.Add('https://lreserver', $cookie) #$TCSession.Headers.Add('Content-Type', 'application/zip') $TCSession.Headers.Add('Content-Type', 'application/xml') #$TCSession.Headers.Add('Content-Disposition', 'attachment; filename=Reports.zip') $response2 = Invoke-WebRequest -Uri https://lreserver/LoadTest/rest/domains/BSC/projects/EU_oneMDS_PerformanceTesting/tests -Method GET -WebSession $TCSession write-output $response2.Content