Quantcast
Channel: Remote Desktop Services (Terminal Services) forum
Viewing all articles
Browse latest Browse all 1106

Remote Desktop Load Simulation - Multiple clients from the same computer to server

$
0
0

Hi,

I have three computers to simulate multiple clients from the same computer to server but I receive a bad report in the controller. 

A example could be more easy to understand:

State1       
User              Machines       Script        Status
testuser1         User-PC        test.vbs      Script started


State2
User              Machines       Script        Status
testuser1         User-PC        test.vbs      TS Connection completed


State3
User              Machines       Script        Status
testuser1         User-PC        test.vbs      Script finished


State4     
User              Machines        Script       Status
testuser1         User-PC         test.vbs     Script finished
testuser2         User-PC         test.vbs     Script started


State5
User              Machines        Script       Status
testuser1         User-PC         test.vbs     TS Connection completed --> Always refresh testuser1 status
testuser2         User-PC         test.vbs     Script started -->
It never is refreshed. The testuser2 do the action but the report that I receive is done by testuser1.


State6
User              Machines        Script        Status
testuser1         User-PC         test.vbs      Script finished
testuser2         User-PC         test.vbs      Script started


State7
User              Machines        Script        Status
testuser1         User-PC         test.vbs      Script finished
testuser2         User-PC         test.vbs      Script started
testuser3         User-PC         test.vbs      Script started


State8
User              Machines         Script       Status
testuser1         User-PC          test.vbs     TS Connection completed
testuser2         User-PC          test.vbs     Script started
testuser3         User-PC          test.vbs     Script started


State9
User              Machines         Script       Status
testuser1         User-PC          test.vbs     Script finished
testuser2         User-PC          test.vbs     Script started
testuser3         User-PC          test.vbs     Script started



My scenario is : 

- Computer runs the RDLoadSimulationClient.exe (the client). In it we have already registered the RemoteUIControl.dll

- Computer runs the RDLoadSimulationController.exe (the controller).

- Server Computer where there are 4 users:  Admin, testuser1, testuser2 and testuser3. 

* In the Admin session, the  RDLoadSimulationServerAgent.exe is running.

* In ther other users session, the TSAccSessionAgent.exe will be executed when the user session starts.

The controller configuration is:

 - Test Progression: 

User Range: 1-3

User Group Size: 1

Interval Between Users: 5

Interval Between Groups: 5

Speed Factor: 1

- General 

Run Without Server Agent: unchecked

Use user index only: unckecked

User Name pad count: 1

user: testuser

TestEnd Mode : Users Finished

The test code is:

'*******************************************
'Remote Desktop Scalability scenario script header
'*******************************************
VK_RETURN   = 13
VK_MENU     = 18
VK_CONTROL  = 162
VK_TAB      = 9
VK_UP       = 38
VK_DOWN     = 40
VK_RIGHT    = 39
VK_LEFT     = 37
VK_SHIFT    = 16
VK_BACK     = 8
VK_ESCAPE   = 27
VK_SPACE    = 32
VK_END      = 35
VK_HOME     = 36
VK_DELETE   = 46
VK_LWIN     = 91
WINDOW_EVENT   = 1
MENU_EVENT     = 2
OBJECTSHOW_EVENT = 3
OBJECTFOCUS_EVENT = 4
VKeyFlag = 1
AltFlag = 2
CtrlFlag = 4

ShiftFlag = 8

'***************************
'Parse the script arguments
'***************************
ArgumentCount = WScript.Arguments.Count
dim argString
Server = "xxx"
Password = "xxx"
Domain = ""
for indx = 0 to ArgumentCount - 1 step 1
   if InstrRev(WScript.Arguments(indx),"-u:") = 1 then
      argString = WScript.Arguments(indx)
      User = Mid(argString,4)
   end if
next

RUIObject = "RUIDCOM.RUI" 

Err.Clear
Set RUIDCOM = CreateObject (RUIObject)
If Err.Number Then
    WScript.Echo("Error (" + _
                 Err.Number + _
                 "): unable to create RUIDCOM object!")
    WScript.Quit(1)
End If
RUIDCOM.TypingRate = 35*SpeedFactor
'// set connection properties
RUIDCOM.DesktopWidth = 800
RUIDCOM.DesktopHeight = 600
RUIDCOM.DesktopBpp = 16
RUIDCOM.TypingRate = 300 
'// Connect to Server
RUIDCOM.TSConnect Server, User, Password, Domain
WScript.Sleep (25000)
'// Finish Script
RUIDCOM.EndScript

Any help is appreciated, 'cause I'm quite stuck and the documentation doesn't get me anywhere either at this point.

Thanks in advance,


Regards, Emilio






Viewing all articles
Browse latest Browse all 1106

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>