Vbscript Can';“我找不到地方”;报表的预期结尾为“;

Vbscript Can';“我找不到地方”;报表的预期结尾为“;,vbscript,Vbscript,所以我在VBS中创建了一个代码来自动设置计算机。我的代码的第1步工作得很好,第2步在本例中没有实现,但工作得很好,第3步在命令\u3a处抛出了一个“预期语句结束”错误 我试图设置的字符串是start“Lightspeed”/wait/I“Programs\Lightspeed\UserAgentx64 V2.1.14.msi” 我尝试过这些方法,但我遗漏了一些东西 Command_3A=“启动”Lightspeed”/wait/i“程序\Lightspeed\UserAgentx64 V2.1.

所以我在VBS中创建了一个代码来自动设置计算机。我的代码的第1步工作得很好,第2步在本例中没有实现,但工作得很好,第3步在
命令\u3a处抛出了一个“预期语句结束”错误

我试图设置的字符串是
start“Lightspeed”/wait/I“Programs\Lightspeed\UserAgentx64 V2.1.14.msi”

我尝试过这些方法,但我遗漏了一些东西

Command_3A=“启动”Lightspeed”/wait/i“程序\Lightspeed\UserAgentx64 V2.1.14.msi”`
Command_3A=“start”“Lightspeed”“/wait/i”“Programs\Lightspeed\UserAgentx64 V2.1.14.msi”“”`
Command_3A=(启动“Lightspeed”/wait/i“C:\Users\ccollins\Desktop\ThumbDrive\Programs\Lightspeed\UserAgentx64 V2.1.14.msi”)`
这是我的密码:

'Dim objShell
Set objShell = WScript.CreateObject ("WScript.Shell")

Drive_Letter = "C:"
File_Path = "C:\Users\ccollins\Desktop\ThumbDrive\"

' Step 1 - Set Power Settings
Command_1A = "powercfg /change standby-timeout-ac 0"
Command_1B = "powercfg /change standby-timeout-dc 15"
Command_1C = "powercfg /change monitor-timeout-ac 0"
Command_1D = "powercfg /change monitor-timeout-dc 15"
Command_1E = "powercfg /change hibernate-timeout-ac 0"
Command_1F = "powercfg /change hibernate-timeout-dc 15"

objShell.Run "cmd /k " & Command_1A & "&" & Command_1B & "&" & Command_1C & "&" & Command_1D & "&" & Command_1E & "&" & Command_1F & "& exit"

' Step 2 - Remove Bloatware (Win10Apps)

' Step 3 - Install wanted programs
Command_3A = (start "Lightspeed" /wait /i "C:\Users\ccollins\Desktop\ThumbDrive\Programs\Lightspeed\UserAgentx64 V2.1.14.msi" )
Command_3B = "start "Acrobat" /wait "Programs\AcroRdrDC1801120058_en_US.exe" /sAll "
Command_3C = "start "AZMerit" /wait /I "Programs\AzMERITSecureBrowser10.4-2018-08-02.msi" /passive "
Command_3D = "start "Java" /wait "Programs\jre-8u201-windows-x64.exe" /s "
Command_3E = "start "Chrome" /wait "Programs\ChromeStandaloneSetup64.exe" /silent /install "
Command_3F = "start "Eset" /wait "Programs\ESet Rip and Replace.exe" "

objShell.Run "cmd /k " & Drive_Letter & "&" & Command_3A & "&" & Command_3B & "&" & Command_3C & "&" & Command_3D & "&" & Command_3E & "&" & Command_3F & "& exit"

Set oShell = Nothing'

我肯定错过了一些东西,只需要另一双眼睛来查看我的代码。

所以这就是我想到的。我必须使用
Chr(34)
作为命令的一部分插入代码中的
。我还为sPath和UAC控制插入了一个输入框

Set wshShell = WScript.CreateObject("WScript.Shell")
    dim sPath

' ----------------------------------------------------------' 
' UAC Control
    If WScript.Arguments.Length = 0 Then
      Set objShell = CreateObject("Shell.Application")
      objShell.ShellExecute "wscript.exe" _
        , Chr(34) & WScript.ScriptFullName & Chr(34) & " RunAsAdministrator", , "runas", 1
      WScript.Quit
    End If

'Step 0 - Set Drive Letter or File Path

    sPath = InputBox("Enter the Path to the Drive. If entering just drive letter then add :, if file path remove the end \")

    ' Step 1 - Set Power Settings

    ' Step 2 - Remove Bloatware (Win10Apps)

    ' Step 3 - Install wanted programs
    Function GetOsBits()
        Set shell = CreateObject("WScript.Shell")
        If shell.ExpandEnvironmentStrings("%PROCESSOR_ARCHITECTURE%") = "AMD64" Then
             GetOsBits = 64
        Else
            GetOsBits = 32
        End If
    End Function

    Command_3A = Chr(34) & sPath & "\Programs\Lightspeed\UserAgentx64 V2.1.14.msi" & Chr(34)
    Command_3B = Chr(34) & sPath & "\Programs\Lightspeed\UserAgentx86 V2.1.14.msi" & Chr(34)
    Command_3C = Chr(34) & sPath & "\Programs\AcroRdrDC1801120058_en_US.exe" & Chr(34) & "& /sAll "
    Command_3D = Chr(34) & sPath & "\Programs\Java\jre-8u201-windows-x64.exe" & Chr(34) & "& /s "
    Command_3E = Chr(34) & sPath & "\Programs\Java\jre-8u201-windows-i586.exe" & Chr(34) & "& /s "
    Command_3F = Chr(34) & sPath & "\Programs\Chrome\ChromeStandaloneSetup64.exe" & Chr(34) & "& /silent /install "
    Command_3G = Chr(34) & sPath & "\Programs\Chrome\ChromeStandaloneSetupi586.exe" & Chr(34) & "& /silent /install "
    Command_3H = Chr(34) & sPath & "\Programs\ESet Rip and Replace.exe" & Chr(34)

    If GetOsBits = 64 Then
            wshShell.Run(Command_3A) 'LightSpeed
        wscript.Sleep 4000 
            wshShell.Run(Command_3C) 'Adobe Reader
        wscript.Sleep 30000 
            wshShell.Run(Command_3D) 'Java
        wscript.Sleep 30000 
            wshShell.Run(Command_3F) 'Chrome
        wscript.Sleep 30000
            wshShell.Run(Command_3H) 'Eset
        wscript.Sleep 30000
    Else
            wshShell.Run(Command_3B) 'LightSpeed x86
        wscript.Sleep 4000 
            wshShell.Run(Command_3C) 'Adobe Reader
        wscript.Sleep 4000 
            wshShell.Run(Command_3E) 'Java x86
        wscript.Sleep 30000 
            wshShell.Run(Command_3G) 'Chrome x86
        wscript.Sleep 30000
            wshShell.Run(Command_3H) 'Eset
        wscript.Sleep 30000
    End If


    Set oShell = Nothing

“符号标记字符串的开始或结束。“符号是”的转义版本,如果要将其包含在字符串中。您的字符串需要修复。我知道第二个位试图欺骗系统,因为我正在尝试运行的sting中有“我知道需要修复,我只是不知道该怎么做。我是否需要在它们之间放置一个
&
,以将它们链接在一起?可能存在重复的