Quite nant

wolfganguhr

Hello

I've just written a "quiet nant", which can be used in windows systems only ...

The nant is started in a separate process and the output stream is catched and redirected to a file. If the filke contains "BUILD FAILED" a message box is shown.

The the nant is moved to be something like a background task and the pc can be used for anything else in the mean time.

Best regards
Wolfgang

    Const nantPfadName = """C:\Program Files (x86)\nant-0.91-alpha2\bin\Nant.exe"" "
    Const nantBuildPath = """C:\Documents and Settings\wolfgangu\My Documents\openpetra\trunk1"""
    Const reportPath = """C:\Documents and Settings\wolfgangu\My Documents\openpetra\trunk1"""
    Const reportName = "Report.txt"

    
nantCommand = Wscript.Arguments.Item(0)

CallNant nantPfadName, nantBuildPath, nantCommand, reportPath, reportName



Private Sub CallNant(nantPfadName, strPathOfBuildFile, strNantCommand, strReportDirectory, 

strReportName)

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objWSH = WScript.CreateObject("WScript.Shell")

Const ForReading = 1
Const ForWriting = 2

Set oFSFile = objFSO.OpenTextFile(strReportDirectory & strReportName,ForWriting,True) 

objWSH.CurrentDirectory = strPathOfBuildFile

Set objExec = objWSH.Exec(nantPfadName & " " & strNantCommand)

Do While Not objExec.StdOut.AtEndOfStream
   strInput = objExec.StdOut.Read(1)
   oFSFile.Write(strInput) 
Loop

oFSFile.Close

Set oFSFile = objFSO.OpenTextFile(strReportDirectory & strReportName,ForReading) 

strFileContent = oFSFile.ReadAll()

Const strBuildFailed = "BUILD FAILED"

If (instr(strFileContent, strBuildFailed)) Then
  msgbox "Path of build file: " & strPathOfBuildFile,  , "NantCommand: " & strNantCommand & " 

failed!"
    End If
    

End Sub

christiankatict

Hi Wolfgang,

this should prove very useful! Thanks!

I have trouble getting it to work, though! I used the 'select all' command in the forum to copy the text into the windows clipboard and pasted it into a text editor and saved it under the name "C:\Windows\qnant.vbs". When I now run 'qnant quickCompile" I get the following error:

Windows Script Host

Script: C:\WINDOWS\qnant.vbs
Line: 20
Char: 5
Error: Bad file name or number
Code: 800A0034
Source: Microsoft VBScript runtime error

OK

and the execution stops. Have I done anything wrong here?

Kind regards,

ChristianK

wolfganguhr

Hi Christian

The problem was: It does not run on the server in this way:

    Const nantPfadName = """C:\Program Files (x86)\nant-0.91-alpha2\bin\Nant.exe"" "
    Const nantBuildPath = "C:\Documents and Settings\wolfgangu\My Documents\openpetra\trunk3\"
    Const reportPath = "C:\Documents and Settings\wolfgangu\My Documents\openpetra\trunk3\"
    Const reportName = "Report.txt"

I've removed some "".

And the other point is a line break wich was created by the forum software

Private Sub CallNant(nantPfadName, strPathOfBuildFile, strNantCommand, strReportDirectory, strReportName)

This is one line. I do not know why this are two lines.

    Const nantPfadName = """C:\Program Files (x86)\nant-0.91-alpha2\bin\Nant.exe"" "
    Const nantBuildPath = "C:\Documents and Settings\wolfgangu\My Documents\openpetra\"
    Const reportPath = "C:\Documents and Settings\wolfgangu\My Documents\openpetra\"
    Const reportName = "Report.txt"

    
nantCommand = Wscript.Arguments.Item(0)

CallNant nantPfadName, nantBuildPath, nantCommand, reportPath, reportName



Private Sub CallNant(nantPfadName, strPathOfBuildFile, strNantCommand, strReportDirectory, strReportName)

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objWSH = WScript.CreateObject("WScript.Shell")

Const ForReading = 1
Const ForWriting = 2

Set oFSFile = objFSO.OpenTextFile(strReportDirectory & strReportName,ForWriting,True) 

objWSH.CurrentDirectory = strPathOfBuildFile

Set objExec = objWSH.Exec(nantPfadName & " " & strNantCommand)

Do While Not objExec.StdOut.AtEndOfStream
   strInput = objExec.StdOut.Read(1)
   oFSFile.Write(strInput) 
Loop

oFSFile.Close

Set oFSFile = objFSO.OpenTextFile(strReportDirectory & strReportName,ForReading) 

strFileContent = oFSFile.ReadAll()

Const strBuildFailed = "BUILD FAILED"

If (instr(strFileContent, strBuildFailed)) Then
  msgbox "Path of build file: " & strPathOfBuildFile,  , "NantCommand: " & strNantCommand & " failed!"
End If

End Sub

wolfganguhr

Now it is one line. But it makes no sense for me to split a line at this position ...

wolfganguhr

wolfganguhr wrote

Hi Christian

The problem was: It does not run on the server in this way:

    Const nantPfadName = """C:\Program Files (x86)\nant-0.91-alpha2\bin\Nant.exe"" "
    Const nantBuildPath = "C:\Documents and Settings\wolfgangu\My Documents\openpetra\"
    Const reportPath = "C:\Documents and Settings\wolfgangu\My Documents\openpetra\"
    Const reportName = "Report.txt"

I've removed some "".

And the other point is a line break wich was created by the forum software

Private Sub CallNant(nantPfadName, strPathOfBuildFile, strNantCommand, strReportDirectory, strReportName)

This is one line. I do not know why this are two lines.

    Const nantPfadName = """C:\Program Files (x86)\nant-0.91-alpha2\bin\Nant.exe"" "
    Const nantBuildPath = "C:\Documents and Settings\wolfgangu\My Documents\openpetra\"
    Const reportPath = "C:\Documents and Settings\wolfgangu\My Documents\openpetra\"
    Const reportName = "Report.txt"

    
nantCommand = Wscript.Arguments.Item(0)

CallNant nantPfadName, nantBuildPath, nantCommand, reportPath, reportName



Private Sub CallNant(nantPfadName, strPathOfBuildFile, strNantCommand, strReportDirectory, strReportName)

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objWSH = WScript.CreateObject("WScript.Shell")

Const ForReading = 1
Const ForWriting = 2

Set oFSFile = objFSO.OpenTextFile(strReportDirectory & strReportName,ForWriting,True) 

objWSH.CurrentDirectory = strPathOfBuildFile

Set objExec = objWSH.Exec(nantPfadName & " " & strNantCommand)

Do While Not objExec.StdOut.AtEndOfStream
   strInput = objExec.StdOut.Read(1)
   oFSFile.Write(strInput) 
Loop

oFSFile.Close

Set oFSFile = objFSO.OpenTextFile(strReportDirectory & strReportName,ForReading) 

strFileContent = oFSFile.ReadAll()

Const strBuildFailed = "BUILD FAILED"

If (instr(strFileContent, strBuildFailed)) Then
  msgbox "Path of build file: " & strPathOfBuildFile,  , "NantCommand: " & strNantCommand & " failed!"
End If

End Sub

christiankatict

Hi Wolfgang,

I still get the same error. Here is the content of my qnant.vbs file:

    Const nantPfadName = """C:\Program Files\nant\bin\Nant.exe"" "
    Const nantBuildPath = "C:\Documents and Settings\christiank\My Documents\openpetra\"
    Const reportPath = "C:\Documents and Settings\christiank\My Documents\openpetra\"
    Const reportName = "Report.txt"

    
nantCommand = Wscript.Arguments.Item(0)

CallNant nantPfadName, nantBuildPath, nantCommand, reportPath, reportName



Private Sub CallNant(nantPfadName, strPathOfBuildFile, strNantCommand, strReportDirectory, strReportName)

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objWSH = WScript.CreateObject("WScript.Shell")

Const ForReading = 1
Const ForWriting = 2

Set oFSFile = objFSO.OpenTextFile(strReportDirectory & strReportName,ForWriting,True) 

objWSH.CurrentDirectory = strPathOfBuildFile

Set objExec = objWSH.Exec(nantPfadName & " " & strNantCommand)

Do While Not objExec.StdOut.AtEndOfStream
   strInput = objExec.StdOut.Read(1)
   oFSFile.Write(strInput) 
Loop

oFSFile.Close

Set oFSFile = objFSO.OpenTextFile(strReportDirectory & strReportName,ForReading) 

strFileContent = oFSFile.ReadAll()

Const strBuildFailed = "BUILD FAILED"

If (instr(strFileContent, strBuildFailed)) Then
  msgbox "Path of build file: " & strPathOfBuildFile,  , "NantCommand: " & strNantCommand & " failed!"
End If

End Sub

I have remove the line break you mentioned.

Kind regards,

ChristianK

wolfganguhr

Christian in your case you are opening a file C:\Documents and Settings\christiank\My Documents\openpetra\Report.txt to write some data into. You are shure that you can do this?