2
Dim WshShell 
Set WshShell = WScript.CreateObject("WScript.Shell") 
Set WshProEnv = WshShell.Environment("SYSTEM") 
SysInfo = WshProEnv.Item("PROCESSOR_ARCHITECTURE")

If SysInfo = "x86" Then
  WshShell.Run("notepad.exe", 0) 
Else
  WshShell.Run("notepad.exe", 1)
End If

Пишет ошибку:

Недопустимо использование скобок при вызове процедуры sub.

В чем причина?

1
  • @Nicolas Chabanovsky, в использовании WshShell.Run "program.exe" не надо ставить скобки
    – ExposedCat
    4 июл 2018 в 10:18

1 ответ 1

1

При использовании WshShell.Run "program.exe" (вообще, при вызове процедур) не надо ставить скобки вокруг аргументов:

Dim WshShell 
Set WshShell = WScript.CreateObject("WScript.Shell") 
Set WshProEnv = WshShell.Environment("SYSTEM") 
SysInfo = WshProEnv.Item("PROCESSOR_ARCHITECTURE")    

If SysInfo = "x86" Then
      WshShell.Run "notepad.exe",0
Else
      WshShell.Run "notepad.exe",1
End If

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.