एक उप बुला जब कोष्ठक

एक .exeका उपयोग कर स्थापित करने की कोशिश कर रहा है a vbs। मुझे लगता है कि त्रुटि parentheses when calling a sub'लाइन 11' पर उपयोग नहीं की जा सकती है । मैं वीएस के लिए अपेक्षाकृत नया हूं और उनके पास कोई सुराग नहीं है कि वे किस बारे में बात कर रहे हैं।

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

script vbscript

— क्रिस्टोफर कोलिन्स
स्रोत

शायद यह लाइन है objShell.Run(path, 1 ,True)। या तो उपयोग करें objShell.Run path, 1 ,Trueया Call objShell.Run(path, 1 ,True))

— Máté Juhász

पहली पोस्ट में अपडेट किया गया कोड। ठीक है, variable undefined "object"पर एक नई त्रुटि मिली line 11।

— क्रिस्टोफर कॉलिंस

object.Run(strCommand, [intWindowStyle], [bWaitOnReturn])WSH संदर्भ से केवल एक सिंटैक्स पैटर्न है । उस लाइन को बिल्कुल हटा दें।

— जोसेफ

ठीक है अद्यतन कोड। अब मैं हो रही है is undefined 'spath'परline 14

— क्रिस्टोफर कोलिन्स

ठीक है, लगा कि बाहर। अब मेरे पास चलने पर कोई त्रुटि नहीं है, लेकिन यह कुछ भी वापस नहीं करता है। यह मुझे बताना चाहिए कि यह पहले से ही स्थापित है, इसे स्थापित किया है, या एक त्रुटि है। मुझे कुछ नहीं मिल रहा है।

— क्रिस्टोफर कॉलिंस