1 vbsの2コマンドの問題

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

誰かが間違っていることを教えてもらえますか？

コピー/貼り付けで宣言が欠落していたのでごめんなさい。そして、ウィンドウは静かにシャットダウンしました。その後、結果はそうではないと思います！

Answer 1

これは実際のコードですか？少なくとも2つの構文エラーがあります：

最初の構文エラー：

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

行末に二重引用符がありません：

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

2番目の構文エラー：

Dim resultat
Dim commande
Dim Jour

変数＆quot; commande2＆quot;使用されますが、宣言されていません。使用：

Dim resultat
Dim commande
Dim commande2
Dim Jour

これで問題が解決しない場合は、他の人が言ったように、問題を教えてください：エラーメッセージ？間違った動作ですか？

2回目の試行

正しいコンテンツが含まれていることを確認できるように、コマンドを実行する前に使用されるコマンドを表示する場合があります：

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