Невозможно запустить файл VBScript на Windows 10

Question

Когда я пытаюсь запустить файл .vbs на моем ноутбуке с Windows 10, появляется следующая ошибка.

Answer 1

Я могу придумать две причины, по которым это может произойти:

1. Скрипт скачивается из интернета, поэтому он заблокирован. Разблокируйте его с помощью свойств файла.
2. У вас установлено какое-то антивирусное ПО, блокирующее доступ к файлу. Проверьте ваши журналы для любой информации.

Answer 2

Проверьте, находится ли файл на "Общедоступном рабочем столе". Если это так, он будет отображаться на визуальном "рабочем столе" каждого пользователя, но Windows не сможет найти его в папках рабочего стола пользователя.

Answer 3

РЕДАКТИРОВАТЬ

На основании комментария от Питера (спасибо за это) я редактирую свой ответ.

Возможно, у вас возникли проблемы с правами - у вас нет прав на выполнение сценария на рабочем столе или, возможно, сценарий полностью заблокирован? Вам нужно больше информации - что это за сценарий? Лучше всего будет предоставить исходный код + каковы права на каталог (или цепочку каталогов), где вы пытаетесь выполнить свой код.

Это на тот случай, если вам нужно повысить права на ваш скрипт, который еще не ваш случай:

У вас должны быть права для запуска вашего скрипта. Вы можете запустить командную строку как администратор.

Или же

используйте runas /noprofile /user:mymachine\administrator your_script.vbs из командной строки вашего пользователя

Или же

Наконец, вы можете добавить UAC прямо в ваш скрипт:

Это исходный код от Microsoft technet:

'---------------------------------------
'Elevate this script before invoking it.
'25.2.2011 FNL
'---------------------------------------
bElevate = False
if WScript.Arguments.Count > 0 Then If WScript.Arguments(WScript.Arguments.Count-1) <> "|" then bElevate = True
if bElevate Or WScript.Arguments.Count = 0 Then ElevateUAC
'******************
'Your script goes here
'******************


'-----------------------------------------
'Run this script under elevated privileges
'-----------------------------------------
Sub ElevateUAC
    sParms = " |"
    If WScript.Arguments.Count > 0 Then
            For i = WScript.Arguments.Count-1 To 0 Step -1
            sParms = " " & WScript.Arguments(i) & sParms
        Next
    End If
    Set oShell = CreateObject("Shell.Application")
    oShell.ShellExecute "wscript.exe", WScript.ScriptFullName & sParms, , "runas", 1
    WScript.Quit
End Sub