第二次尝试

Question

我对一个简单的vbScript有点问题。该脚本必须一个接一个地运行2个动作。

Option Explicit

Dim WshShell
Dim Yesterday
Dim resultat
Dim commande
Dim Jour

Set WshShell = WScript.CreateObject("WScript.Shell")

Yesterday =  DateAdd("d", -2, Date())
resultat = "00001"
resultat = resultat & Right(Year(Yesterday), 2)
Jour = (Datepart("y", Yesterday))

If ((Jour < 100) and (Jour > 9)) Then resultat = resultat & "0" & Jour

If (Jour < 10) Then resultat = resultat & "00" & Jour

If (Jour >= 100) Then resultat = resultat & Jour

resultat = """(&(objectClass=eTGlobalUser)(eTSuspended=0)(eTRoleDN=*)(eTUpdateDate>=" & resultat & "))"""

commande = GetScriptPath() & "PharosGDH.exe /ldapfilter:" & resultat & " /conso"
WshShell.Run commande, 5, true
commande2 = GetScriptPath() & "PharosGDH.exe /all /auditPharos
WshShell.Run commande2, 5, true
WScript.Quit 1

Function GetScriptPath()
    GetScriptPath = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\"))
End Function

有人可以告诉我有什么问题吗？

很抱歉，副本/过去没有声明，并且windows juste默默关闭，之后我看到结果不是它被曝光了！

Answer 1

这是您的实际代码吗？其中至少有两个语法错误：

第一个语法错误：

commande2 = GetScriptPath() & "PharosGDH.exe /all /auditPharos

该行末尾缺少双引号：

commande2 = GetScriptPath() & "PharosGDH.exe /all /auditPharos"

第二语法错误：

Dim resultat
Dim commande
Dim Jour

使用变量“commande2”，但未声明。使用：

Dim resultat
Dim commande
Dim commande2
Dim Jour

如果这不能解决您的问题，正如其他人所说，请告诉我们，问题是什么：错误信息？错误的行为？

第二次尝试

可能会在执行命令之前显示所使用的命令，以便检查它们是否包含正确的内容：

commande = GetScriptPath() & "PharosGDH.exe /ldapfilter:" & resultat & " /conso"
WshShell.Popup commande
WshShell.Run commande1, 5, true
commande2 = GetScriptPath() & "PharosGDH.exe /all /auditPharos"
WshShell.Popup commande
WshShell.Run commande2, 5, true
WScript.Quit 1

1 vbs中2命令的问题

1 个答案:

第二次尝试