Учитывая, что каждый локальный или доменный пользователь может иметь свой собственный путь, вы можете запросить класс Win32_Environment
:
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemLocator = objSWbemLocator.ConnectServer(strComputer, _
"root\CIMV2", _
strUser, _
strPass)
Set colItems =objSWbemLocator.ExecQuery("SELECT * FROM Win32_Environment WHERE Name='TEMP' AND SystemVariable=FALSE AND username='machine_or_domain_name\\user_whos_temp_path_you_require'", "WQL", 48)
For Each objItem In colItems
msgbox objItem.VariableValue
Next