1 vbsで2コマンドの問題

Question

シンプルなvbScriptで少し問題があります。スクリプトは2つのアクションを1つずつ実行する必要があります。

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 

変数 "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