Ошибка «Отказано в доступе» в vbscript при запуске wshShell - PullRequest
Новая
       6

Ошибка «Отказано в доступе» в vbscript при запуске wshShell

0 голосов
/ 03 июля 2018

Когда я запускаю этот код, он каждый раз печатает ошибку «Отказано в доступе». Код ошибки 800a0046, а код, который генерирует эту ошибку, показан ниже. 

Sub Delay( seconds )
    Dim wshShell, strCmd
    Set wshShell = CreateObject( "WScript.Shell" )
    strCmd = wshShell.ExpandEnvironmentStrings( "%COMSPEC% /C (PING.EXE -n " & ( seconds + 1 ) & " localhost >NUL 2>&1)" )
    wshShell.Run strCmd, 0, 1
    Set wshShell = Nothing
End Sub

в 4-й строке выдает ошибку 

Microsoft VBScript runtime error '800a0046' 
Permission denied

Может ли кто-нибудь предоставить решение о том, как и где установить требуемое разрешение.

...