скобки при вызове суб

297
Christopher Collins

Попытка установить с .exeпомощью vbs. Я получаю сообщение об ошибке не могу использовать parentheses when calling a subна `Line 11 '. Я относительно новичок в VS и понятия не имею, о чем они говорят.

Option Explicit  Dim objShell,objFSO,strCommand,spath  'INSTALL ESet ANTIVIRUS USING VBScript Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = WScript.CreateObject("WScript.Shell") spath = objShell.CurrentDirectory  wscript.sleep 1800000 If objFSO.FolderExists("C:\Program Files\Lightspeed Systems\User Agent") then objShell.LogEvent vbLogSuccess, sLogHeader & "Lightspeed is already installed." & VbCrLf & "Exit code: " & i End if  If Not objFSO.FolderExists("C:\Program Files\Lightspeed Systems\User Agent") then  If fso.FileExists(spath & "\Lightspeed\UserAgentx64 V2.1.14.exe") Then path = """" & spath & "\Lightspeed\UserAgentx64 V2.1.14.exe" & """ /passive /norestart /update-no" objShell.Run path, 1 ,True i = 0 'INSTALL ESet ANTIVIRUS i = objShell.Run(path, 1 ,True) If (i = 0) Or (i = 3010) Then 'WRITE EXIT CODE [0-success/3010-success&requires reboot] TO EVENTLOG objShell.LogEvent vbLogSuccess, sLogHeader & "Lightspeed installation completed successfully." & VbCrLf & "Exit code: " & i Else MsgBox "The installation of Lightspeed returned an error: " & i & VbCrLf & _ "Please contact IT Support to report this error.", vbOKOnly objShell.LogEvent vbLogError, sLogHeader & "Installation returned failure code: " & VbCrLf & "Exit code: " & i End If  Else WScript.Quit (1) End If  set fso = Nothing set WSHShell = Nothing End if
0
Вероятно, это строка `objShell.Run (path, 1, True)`. Либо используйте `objShell.Run path, 1, True` или` Call objShell.Run (path, 1, True) `) Máté Juhász 6 лет назад 0
Обновлен код в первом посте. ОК получил новую ошибку, `переменная неопределена" объект "` в `строке 11`. Christopher Collins 6 лет назад 0
`object.Run (strCommand, [intWindowStyle], [bWaitOnReturn])` является просто [синтаксическим шаблоном из ссылки WSH] (http://www.vbsedit.com/html/6f28899c-d653-4555-8a59-49640b0e32ea.asp ). Удалить эту строку на всех. JosefZ 6 лет назад 0
Хорошо, обновленный код. Теперь я получаю `is undefined 'spath'`on` line 14` Christopher Collins 6 лет назад 0
Хорошо, понял это. Теперь у меня нет ошибок при запуске, но ничего не возвращается. Это должно сказать мне, или это уже установлено, установило это, или ошибка. Я ничего не получаю. Christopher Collins 6 лет назад 0
Вам нужно отладить свой код, чтобы увидеть, как именно он работает. https://stackoverflow.com/questions/2288043/how-do-i-debug-a-stand-alone-vbscript-script Máté Juhász 6 лет назад 0

0 ответов на вопрос

Похожие вопросы