VBScript chiama discarica svnadmin

StackOverflow https://stackoverflow.com/questions/2406540

  •  18-09-2019
  •  | 
  •  

Domanda

L'esecuzione del seguente VBScript per chiamare svnadmin dump fallisce (cioè è stato creato alcun dump) 

Set objShell = CreateObject("WScript.Shell")
Set objShellExec = objShell.Exec("svnadmin dump  C:\svn_repos > C:\fullbackup")

ho scoperto da un altro post, svn discarica non riesce con WScript.Shell che ho dovuto creare un nuovo interprete di comandi utilizzando cmd come segue: 

Set objShellExec = objShell.Exec("%comspec% /c" & "svnadmin dump  C:\svn_repos > C:\fullbackup")

Questo ha creato con successo la discarica, ma non ho mai potuto leggere le informazioni in uscita (vale a dire * revisione Dumped 100. * revisione Dumped 101. ecc). Ho cercato 

Do While objWshScriptExec.Status = 0
    Wscript.Echo objShellExec.StdOut.Readline
    Wscript.Echo objShellExec.StdErr.Readline
    WScript.Sleep 100
Loop

, ma nulla viene visualizzata mai.

Posso sapere come posso leggere le informazioni in uscita ed anche il motivo per cui avevo bisogno di creare un nuovo interprete di comandi utilizzando "% COMSPEC% / c" prima del comando svnadmin dump avrebbe eseguito correttamente? Grazie.

Saluti, Dexton

Codice Modificato: 

Set objShell = CreateObject("WScript.Shell")

Set objFS = CreateObject("Scripting.FileSystemObject") 

strOutput = "c:\svn_backup\fullbackupa" 

Set objOutFile = objFS.CreateTextFile(strOutput,True) 

Set objShellExec = objShell.Exec("%comspec% /c " & "svnadmin dump C:\svn_repos")

Do While objShellExec.Status = 0 
  stdoutline=objShellExec.StdOut.Readline 
  'Wscript.Echo stdoutline 'echo to standard output 
  Wscript.Echo objShellExec.StdErr.Readline 
  objOutFile.WriteLine(stdoutline & vbCrLf) 'write to file at the same time 
  WScript.Sleep 100 
Loop 


objOutFile.Close

Soluzione: 

Set objShell = CreateObject("WScript.Shell")

Set objFS = CreateObject("Scripting.FileSystemObject") 

strOutput = "c:\svn_backup\fullbackupa" 

Set objOutFile = objFS.CreateTextFile(strOutput,True) 


Set objShellExec = objShell.Exec("%comspec% /c " & "svnadmin dump C:\svn_repos > c:\svn_backup\fullbackupb")

Do While objShellExec.Status = 0 
  stdoutline=objShellExec.StdErr.Readline 
  Wscript.Echo stdoutline 'echo to standard output 
  'Wscript.Echo objShellExec.StdErr.Readline 
  objOutFile.WriteLine(stdoutline & vbCrLf) 'write to file at the same time 
  WScript.Sleep 100 
Loop 


objOutFile.Close
È stato utile?

Soluzione

Non si può leggere lo stato perché si reindirizza tutta la vostra stdout a c:\fullbackup. Si dovrebbe aprire il file c:\fullbackup e leggere il contenuto, invece.

Aggiornamento: è possibile scrivere il proprio stato ad un file di output, qualcosa di simile 

Set objFS = CreateObject("Scripting.FileSystemObject")
strOutput = "c:\fullbackup"
Set objOutFile = objFS.CreateTextFile(strOutput,True)
...
Do While objWshScriptExec.Status = 0
    stdoutline=objShellExec.StdOut.Readline
    Wscript.Echo stdoutline 'echo to standard output
    'Wscript.Echo objShellExec.StdErr.Readline
    objOutFile.WriteLine(stdoutline & vbCrLf) 'write to file at the same time
    WScript.Sleep 100
Loop
....
objOutFile.Close
Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow
scroll top