Вот мой пример тестового кода:
On Error Resume Next
Dim localServiceKey : localServiceKey = CreateObject("WScript.Shell").RegRead("HKEY_USERS\s-1-5-19\")
'On error, elevate the script
If Err.Number <> 0 Then
CreateObject("Shell.Application").ShellExecute WScript.FullName, """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1
Err.Clear
WScript.Quit()
End If
...INSERT CODE BELOW...
Этот самоподъемный файл сценария VBS работает правильно, если я запускаю его с локального диска или с сетевого диска, доступ к которому осуществляется с помощью UNC (то есть: \\ server \ folder ).
Но если я запускаю его с подключенного диска (то есть: Z: \ folder ), я получаю сообщение об ошибке после запроса UAC:
Не удается найти файл сценария ...
Есть ли способ разрешить запуск файла сценария VBS с подключенного сетевого диска?
ПРИМЕЧАНИЕ. Я тестирую этот код в Windows 10 x64.
Спасибо за любые советы.