Function VBScript发行+；我正在努力使它在Windows XP上工作

请帮助我正确运行此脚本，我试图做的是，如果在进程中找不到'server.exe'和'cmd.exe'，请运行Dim strArg和strArgs。

您得到的错误是，您在此处对

run

方法进行嵌套调用：

state = 1
While state = 1
    Set WshShell = WScript.CreateObject ("WScript.Shell")
    Set colProcessList = GetObject("Winmgmts:").ExecQuery ("Select * from Win32_Process")
    Set oShell = CreateObject ("Wscript.Shell")
    For Each objProcess in colProcessList
        if objProcess.Name = "server.exe" And objProcess.Name = "cmd.exe" then
            vFound = True
        End if
    Next
    If vFound = True then
        wscript.sleep 10000
    Else
        Dim strArg, strArgs
        strArg = "pskill /accepteula cmd.exe"
        strArgs = "%windir%\psexec /accepteula \\server test.exe"
        oShell.Run strArg & oShell.Run strArgs, 0, false
        wscript.sleep 10000
    End If
    vFound = False
Wend

要按顺序运行命令，请等待每个命令返回：

oShell.Run strArg, 0, False
oShell.Run strArgs, 0, False

---

它到底是如何工作的？您是否收到错误？------------------------------------Windows脚本主机-----------------脚本：C:\Documents and Settings\Administrator\Desktop\testing.vbs行：17 Char:36错误：预期的语句结束代码：800A0401源：Microsoft VBScript编译错误------------------------------------------确定-----------------u建议的工作：）但它仍然没有像我希望的那样工作：（我希望它先运行

strArg

，然后再运行

strArgs

它运行得非常完美……）

oShell.Run strArg & oShell.Run(strArgs, 0, false)

oShell.Run strArg, 0, False
oShell.Run strArgs, 0, False

oShell.Run strArg, 0, True
oShell.Run strArgs, 0, True