' Project names
Const PROJECT_NAME = "Tea"
' Tests Directory
Const TESTS_DIR = "C:\"

Dim loadTool
' Create the UNICOM Intelligence Interviewer Load Tool instance
' If the tests directory is not set, the UNICOM Intelligence Interviewer Load Tool default
' is retrieved from the registry setting
' HKEY_LOCAL_MACHINE\Software\SPSS\mrInterview\3\LoadTool\TestsDirectory
Set loadTool = CreateObject("SPSSMR.DataCollection.Utilities.InterviewLoadTool")

' Set the tests directory
loadTool.TestsDirectory = TESTS_DIR

' Get the tests
Dim tests
Set tests = loadTool.Tests

' Add a new test
Dim TeaTest
Set TeaTest = tests.AddNew(PROJECT_NAME)

' Set the mandatory attributes for the test. These are
' Url, ProjectName, and UseSampleManagement
TeaTest.Url = "http://green/mrIWeb/mrIWeb.dll"
TeaTest.ProjectName = PROJECT_NAME
TeaTest.SampleManagement.UseSampleManagement = False

' Configure the following optional attributes
' RunForNumberOfTimes (default for ExecutionStrategy is "RunForDuration")
' SimultaneousInterviews (default is 10 concurrent interviews)
' MaxDelayBetweenResponses (default is between 1 and 20 seconds)
TeaTest.ExecutionStrategy = 1
TeaTest.RunForNumberOfTimes = 50
TeaTest.SimultaneousInterviews = 2
TeaTest.Respondent.MaxDelayBetweenResponses = 1

' Save the test
TeaTest.Save()

' Run the test
TeaTest.Run()

' Wait until the tests are complete
loadTool.WaitUntilAllTestsComplete()
Sleep(2000)

' Project names
Const PROJECT_ID = "Phone"

' Tests Directory
Const TESTS_DIR = "C:\"
Dim loadTool

' Create the UNICOM Intelligence Interviewer Load Tool instance
' If the tests directory is not set, the UNICOM Intelligence Interviewer Load Tool default
' is retrieved from the registry setting
' HKEY_LOCAL_MACHINE\Software\SPSS\mrInterview\3\LoadTool\TestsDirectory
Set loadTool = CreateObject("SPSSMR.DataCollection.Utilities.InterviewLoadTool")

' Set the tests directory
loadTool.TestsDirectory = TESTS_DIR

' Get the tests
Dim tests
Set tests = loadTool.Tests

' Add a new test
Dim phoneTest
Set phoneTest = tests.AddNew(PROJECT_ID)

' Set the mandatory attributes for the test. These are
' Url, ProjectName
phoneTest.Url = "http://ServerName/spssmr/dimensionnet/default.aspx"
phoneTest.ProjectName = PROJECT_ID

'1 indicates Phone test, 0 indicates Web test.
phoneTest.TestTypes = 1
phoneTest.Respondent.CompleteRunningInterviews = true

' UsersAndRoles.xls supports the interviewers to login DataCollection
phoneTest.Interviewer.InterviewerLogins.Load("D:\LoadToolTest\UsersAndRoles.xls", "LoadTester")
' Configure the following optional attributes
' RunForNumberOfTimes (default for ExecutionStrategy is "RunForDuration")
' SimultaneousInterviews (default is 10 concurrent interviews)
' MaxDelayBetweenResponses (default is between 1 and 20 seconds)
' 0 indicates RunForDuration, 1 indicates RunForNumberOfTimes
phoneTest.ExecutionStrategy = 0
phoneTest.RunForDuration = 60
phoneTest.SimultaneousInterviews = 2
phoneTest.Respondent.MaxDelayBetweenResponses = 1

' Save the test
phoneTest.Save()

' Run the test
phoneTest.Run()

' Wait until the tests are complete
loadTool.WaitUntilAllTestsComplete()
Sleep(2000)

' Project names
Const PROJECT_NAME = "Tea"
' Tests Directory
Const TESTS_DIR = "C:\"
'
Const SourceName = "source"
Dim loadTool

' Create the Load Tool instance
' If the tests directory is not set, the Load Tool default
' is retrieved from the registry setting
' \HKEY_LOCAL_MACHINE\Software\SPSS\mrInterview\3\LoadTool\TestsDirectory
Set loadTool = CreateObject("SPSSMR.DataCollection.Utilities.InterviewLoadTool")

' Set the tests directory
loadTool.TestsDirectory = TESTS_DIR

' Get the tests
Dim tests
Set tests = loadTool.Tests

' Add a new test
Dim TeaTest
Set TeaTest = tests.AddNew(PROJECT_NAME)

' Set the mandatory attributes for the test. These are
' Url, ProjectName, and UseSampleManagement
TeaTest.Url = "http://green/mrIWeb/mrIWeb.dll"
TeaTest.ProjectName = PROJECT_NAME
TeaTest.SampleManagement.UseSampleManagement = False
' Configure the following optional attributes

' RunForNumberOfTimes (default for ExecutionStrategy is "RunForDuration")
' SimultaneousInterviews (default is 10 concurrent interviews)
' MaxDelayBetweenResponses (default is between 1 and 20 seconds)
TeaTest.ExecutionStrategy = 1' RunForNumberOfTimes
TeaTest.SimultaneousInterviews = 2
TeaTest.Respondent.MaxDelayBetweenResponses = 1

' you can specify the detailed number
TeaTest.RunForNumberOfTimes = 2

' Specify the data source that provides the answer value for the question
TeaTest.SourceConnection = "Provider=mrOleDB.Provider.2;" + _
"Data Source=mrDataFileDsc;" + _
"Location=.\" + SourceName + ".ddf;" + _
"Initial Catalog=.\" + SourceName + ".mdd;" + _
"MR Init Category Names=1"

' Specify select clause for querying the data source
TeaTest.SourceSql = "SELECT * FROM VDATA"

' Save the test
TeaTest.Save()

' Run the test
TeaTest.Run()

' Wait until the tests are complete
loadTool.WaitUntilAllTestsComplete()
Sleep(2000)