Я использую 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? Есть ли токен или что-то, что мне нужно?