模拟与当前用户不同的用户并使用vbscript UFT自动化访问文件

Question

我将UFT（统一功能测试）用于自动化测试。我有一种情况，我必须模拟用户并连接到同一域下的另一台远程计算机，然后从文件夹中检索文件。有人创建了一个.NET脚本，该脚本一直工作到几天前。现在那个人不在这里，我也不知道.NET。

这是我到目前为止所拥有的：

strComputer = "AAAAAAAAAAAA" 
strDomain = "BBBB" 
strUser = "username"
strPassword = "password"

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
objSWbemLocator.Security_.AuthenticationLevel = 3
objSWbemLocator.Security_.ImpersonationLevel = 3
Set objSWbemServices = objSWbemLocator.ConnectServer(strComputer, _
                                                     "Root\CIMv2", _
                                                     strUser, _
                                                     strPassword, _
                                                     "MS_409", _
                                                     "ntlmdomain:" & strDomain)
Set colSwbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_Process")
For Each objProcess in colSWbemObjectSet
    Print "Process Name: " & objProcess.Name 
Next

我收到拒绝访问错误。

我也尝试过安全删除线路。

有人尝试过使用vbscript模拟吗？有什么令牌或我需要的东西吗？