\r
Sub BuildViaDevEnv(ProjectFile, BuildType)\r
Wscript.echo "Building : " & ProjectFile & " Config type: " & BuildType\r
- Set oExec = WshShell.Exec(Chr(34) & DevEnv & Chr(34) & " " & Chr(34) & ProjectFile & Chr(34) & " /Build " & BuildType)\r
- Do While oExec.Status <> 1\r
- WScript.Sleep 100\r
- Loop\r
+ BuildCmd=Chr(34) & DevEnv & Chr(34) & " " & Chr(34) & ProjectFile & Chr(34) & " /Build " & BuildType\r
+ Set MyFile = fso.CreateTextFile(UtilsDir & "tmpBuild.Bat", True)\r
+ MyFile.WriteLine("@" & BuildCmd)\r
+ MyFile.Close\r
+\r
+ Set oExec = WshShell.Exec(UtilsDir & "tmpBuild.Bat")\r
+ Do\r
+ strFromProc = OExec.StdOut.ReadLine()\r
+ WScript.Echo strFromProc\r
+ Loop While Not OExec.StdOut.atEndOfStream\r
End Sub\r
\r
Sub GetDevEnv()\r