QTP (11) : (Test2.xml에 정의 된대로), I는 사용자 정의 된 환경 변수를 사용하고 AOM

Question

나는 QTP 스크립트에서

Set objFSO = CreateObject("Scripting.FileSystemObject") 
curDir = objFSO.GetParentFolderName(WScript.ScriptFullName) & "\" 
Set qtApp = CreateObject("QuickTest.Application") 
If qtApp.Launched <> True Then 
    With qtApp 
     .Launch 
     .Visible = True 
     .Options.Run.RunMode = "Fast" 
     .Options.Run.ViewResults = False 
     .Open "C:\_Work\MAIN\TestDriver", False 

     Set qtTest = .Test 
     With qtTest 
      .Settings.Run.OnError = "NextStep" 
      .Settings.Resources.Libraries.RemoveAll 
      .Environment.LoadFromFile "C:\_Work\MAIN\Configuration\Test2.xml" 
      .Run 
     End With 
    End With 
End If 

AOM

를 사용하여 환경 변수를 설정하려고를 사용하여 환경 변수를로드하지만, 아무튼 파일이로드되지 않았기 때문에 작동하지 않습니다. 나는 설정을 점검했고 사용자 정의 된 EV는 없다.

Answer 1

Dim App 'As Application 
Set App = CreateObject("QuickTest.Application") 
App.Launch 
App.Visible = True 
App.Open "C:\Automation\OracleEBS", False 
App.Test.Settings.Launchers("Java").Active = False 
App.Test.Settings.Launchers("Java").CommandLine = "" 
App.Test.Settings.Launchers("Java").WorkingDirectory = "" 
App.Test.Settings.Launchers("Oracle").Active = False 
App.Test.Settings.Launchers("Oracle").Address = "" 
App.Test.Settings.Launchers("Oracle").AutoLogin = False 
App.Test.Settings.Launchers("Oracle").User = "" 
App.Test.Settings.Launchers("Oracle").Password = "" 
App.Test.Settings.Launchers("Oracle").LogoutOnExit = False 
App.Test.Settings.Launchers("Oracle").CloseOnExit = False 
App.Test.Settings.Launchers("Web").Active = True 
App.Test.Settings.Launchers("Web").Browser = "CHROME" 
App.Test.Settings.Launchers("Web").Address = "http://newtours.demoaut.com " 
App.Test.Settings.Launchers("Web").CloseOnExit = True 
App.Test.Settings.Launchers("Windows Applications").Active = True 
App.Test.Settings.Launchers("Windows Applications").Applications.RemoveAll 
App.Test.Settings.Launchers("Windows Applications").RecordOnQTDescendants = True 
App.Test.Settings.Launchers("Windows Applications").RecordOnExplorerDescendants = True 
App.Test.Settings.Launchers("Windows Applications").RecordOnSpecifiedApplications = True 
App.Test.Settings.Run.IterationMode = "rngAll" 
App.Test.Settings.Run.StartIteration = 1 
App.Test.Settings.Run.EndIteration = 1 
App.Test.Settings.Run.ObjectSyncTimeOut = 20000 
App.Test.Settings.Run.DisableSmartIdentification = False 
App.Test.Settings.Run.OnError = "Dialog" 
App.Test.Settings.Resources.DataTablePath = "<Default>" 
App.Test.Settings.Resources.Libraries.RemoveAll 
App.Test.Settings.Resources.Libraries.Add("C:\UFTAutomation\function_Libraray\FL.txt") 
App.Test.Environment.LoadFromFile "C:\Users\uftuser01\Desktop\env.xml" 
App.Test.Settings.Web.BrowserNavigationTimeout = 60000 
App.Test.Settings.Web.ActiveScreenAccess.UserName = "" 
App.Test.Settings.Web.ActiveScreenAccess.Password = "" 
App.Test.Settings.Recovery.Enabled = True 
App.Test.Settings.Recovery.SetActivationMode "OnError" 
App.Test.Settings.Recovery.Add "C:\tmp\FRecovery.qrs", "First Recovery Scenario", 1 
App.Test.Settings.Recovery.Item(1).Enabled = True 
App.Test.Settings.Java.EditSet.KeyPressed = True 
App.Test.Settings.Java.EditSet.KeyTyped = True 
App.Test.Settings.Java.EditSet.KeyReleased = True 
App.Test.Settings.Java.EditSet.InputMethod = False 
App.Test.Settings.Java.EditSet.FocusLost = False 
App.Test.Settings.Java.EditSet.JavaAPI = False 
App.Test.Settings.Java.EditSet.JavaAPICharactersToExclude = "\t\n\r" 
App.Test.Settings.Java.DeviceReplay.Click = False 
App.Test.Settings.Java.DeviceReplay.DoubleClick = False 
App.Test.Settings.Java.DeviceReplay.Type = False 
App.Test.Settings.Java.DeviceReplay.DragDrop = False 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
' System Local Monitoring settings 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
App.Test.Settings.LocalSystemMonitor.Enable = false 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
' Log Tracking settings 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
With App.Test.Settings.LogTracking 
    .IncludeInResults = False 
    .Port = 18081 
    .IP = "127.0.0.1" 
    .MinTriggerLevel = "ERROR" 
    .EnableAutoConfig = False 
    .RecoverConfigAfterRun = False 
    .ConfigFile = "" 
    .MinConfigLevel = "WARN" 
End With 

Answer 2

나는 UFT에서 버그가 또는 우리가 뭔가를 누락 될 수 있는지 확실하지 않습니다,하지만 .vbs 파일에서 Environment.LoadFromFile가 작동하지 않습니다.

현재로서는 환경 변수 파일을 UFT 테스트 스크립트에로드하는 중입니다. TestDriver.

코드 상단에이 코드를 넣으십시오.

'Check if an External Environment file is loaded and if not, load it. 
Dim fileName 
fileName = Environment.ExternalFileName 
If (fileName = "") Then 
    Environment.LoadFromFile("C:\_Work\MAIN\Configuration\Test2.xml") 
End If 
Msgbox Environment.Value("Your_Variable_Name") 
... 
'your rest of the code 

이 경로로 가고 싶지 않은 경우 HP에 문의해야 할 수도 있습니다.