Wzzip.exe stops responding when you use the WshShell.Exec method to run Wzzip.exe on a Windows Server 2003-based computer (914046)

Option Explicit

	On Error Resume Next

	Dim streamOut
	Dim objShell
	Dim objExecObject
	Dim strZipCommand
 'Dim temperr

	Set streamOut = Wscript.StdOut

	strZipCommand = "wzzip C:\Temp\output.zip C:\Temp\input.log"
	Set objShell = WScript.CreateObject("WScript.Shell")
	Set objExecObject = objShell.Exec("%comspec% /c " & strZipCommand)

	Do While objExecObject.Status = 0
		WScript.Sleep 100
   'To resolve the problem uncomment the line below which throws 
   'away all the data from stderr
   'temperr = objExecObject.Stderr.ReadLine()
		Do Until objExecObject.StdOut.AtEndOfStream
			streamOut.WriteLine(objExecObject.StdOut.ReadLine())
		Loop
	Loop

MORE INFORMATION

The third-party products that this article discusses are manufactured by companies that are independent of Microsoft. Microsoft makes no warranty, implied or otherwise, regarding the performance or reliability of these products.

Technical support for x64-based versions of Microsoft Windows

Your hardware manufacturer provides technical support and assistance for x64-based versions of Windows. Your hardware manufacturer provides support because an x64-based version of Windows was included with your hardware. Your hardware manufacturer might have customized the installation of Windows with unique components. Unique components might include specific device drivers or might include optional settings to maximize the performance of the hardware. Microsoft will provide reasonable-effort assistance if you need technical help with your x64-based version of Windows. However, you might have to contact your manufacturer directly. Your manufacturer is best qualified to support the software that your manufacturer installed on the hardware.

For product information about Microsoft Windows XP Professional x64 Edition, visit the following Microsoft Web site: For product information about x64-based versions of Microsoft Windows Server 2003, visit the following Microsoft Web site: