Writing wshell.exec to file cuts off

[magicked]

I have a script set up to execute certain command line programs over the network with psexec and dump the output to separate files. Everything appears to run properly, but the output is cut off in each file. It seems like when reading the stdout stream, it can only buffer a limited amount of text. Here is the part of my script where I execute the command and write it to a file:

set objShell = CreateObject("WScript.Shell")
set objFSO = CreateObject("Scripting.FileSystemObject")

WScript.Echo "Checking installed software..."
objFSO.CreateTextFile(strOutputDir & "installedsoftware.txt")
'''''Open the output file'''''
set objOutFile = objFSO.OpenTextFile(strOutputDir & "installedsoftware.txt", ForWriting)
'''''Run the utility'''''
set objExecObject = objShell.Exec(strExeDir & """" & strBaseDir & "\sysinternals\psinfo.exe"" -accepteula -s")

Do While Not objExecObject.StdOut.AtEndOfStream
	strText = objExecObject.StdOut.ReadLine()
	objOutFile.writeLine(strText)
Loop

objOutFile.Write Now
objOutFile.Close

When I run the command (psinfo.exe in this case) in cmd, I get:

System information for \\CAPC-D7D1B65542:
Uptime: 1 day 0 hours 45 minutes 15 seconds
Kernel version: Microsoft Windows XP, Uniprocessor Free
Product type: Professional
Product version: 5.1
Service pack: 3
Kernel build number: 2600
Registered organization:
Registered owner: CAPC
Install date: 8/12/2009, 1:03:12 PM
Activation status: Error reading status
IE version: 8.0000
System root: C:\WINDOWS
Processors: 1
Processor speed: 3.0 GHz
Processor type: Intel(R) Xeon(TM) CPU
Physical memory: 512 MB
Video driver: VMware SVGA II
Applications:
ActiveState ActiveTcl 8.4.19.1 8.4.19.1
HP USB Disk Storage Format Tool
Hotfix for Windows XP (KB952287) 1
Hotfix for Windows XP (KB970653-v3) 3
Mozilla Firefox (3.5.3) 3.5.3 (en-US)
OSSEC Hids Agent
Security Update for Windows Internet Explorer 8 (KB971961) 1
ecurity Update for Windows Internet Explorer 8 (KB972260) 1
Security Update for Windows Internet Explorer 8 (KB974455) 1
Security Update for Windows Media Player (KB952069)
Security Update for Windows Media Player (KB954155)
Security Update for Windows Media Player (KB968816)
Security Update for Windows Media Player (KB973540)
Security Update for Windows Media Player (KB973540)
[...]
Windows Genuine Advantage Notifications (KB905474) 1.9.0040.0
Windows Internet Explorer 8 20090308.140743
Windows XP Service Pack 3 20080414.031525
Wireshark 1.2.1 1.2.1
psinfo.exe exited on 192.168.1.202 with error code 3.

However, when I run it via the script, the output text file only contains the following:

System information for \\CAPC-D7D1B65542:
Uptime: 1 day 0 hours 48 minutes 43 seconds
Kernel version: Microsoft Windows XP, Uniprocessor Free
Product type: Professional
Product version: 5.1
Service pack: 3
Kernel build number: 2600
Registered organization:
Registered owner: CAPC
Install date: 8/12/2009, 1:03:12 PM
Activation status: Error reading status
IE version: 8.0000
System root: C:\WINDOWS
Processors: 1
Processor speed: 3.0 GHz
Processor type: Intel(R) Xeon(TM) CPU
Physical memory: 512 MB
Video driver: VMware SVGA II
Applications:
ActiveState ActiveTcl 8.4.19.1 8.4.19.1
HP USB Disk Storage Format Tool
Hotfix for Windows XP (KB952287) 1
Hotfix for Windows XP (KB970653-v3) 3
Mozilla Firefox (3.5.3) 3.5.3 (en-US)
OSSEC Hids Agent
Security Update for Windows Internet Explorer 8 (KB971961) 1
S
11/6/2009 11:40:18 AM

How do I get the rest of the output? Thanks for any help!

[PeejAvery]

You're making it rather hard on yourself. Why aren't you just reading the whole file rather than line by line?

Dim strFilePath, strFileContents
strFilePath = "C:\"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(strFilePath, 1)
strFileContents = objTextFile.ReadAll()

Set objFSO = Nothing
Set objTextFile = Nothing

[magicked]

Originally Posted by PeejAvery

You're making it rather hard on yourself. Why aren't you just reading the whole file rather than line by line?

Dim strFilePath, strFileContents
strFilePath = "C:\"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(strFilePath, 1)
strFileContents = objTextFile.ReadAll()

Set objFSO = Nothing
Set objTextFile = Nothing

Thanks for your help, but I'm not actually reading a file, although it appears ReadAll() also works on an executed object.

I'm running a program that outputs to the command line, and I want to capture that output and put it in a text file. However, it can only capture a limited amount of the output before it reaches the end of the stream.

Right now, here is where I call Exec() in the shell object and then grab the output:

[...]
set objExecObject = objShell.Exec(strExeDir & """" & strBaseDir & "\sysinternals\psinfo.exe"" -accepteula -s")
strText = objExecObject.StdOut.ReadAll()
objOutFile.writeLine(strText)
[...]

When I open the resulting file, only part of the output is written. However, when I execute the exact same command in a shell myself, the entire output is printed on the screen. I have no idea where the rest of it is going.

[magicked]

I discovered that Stdout only has 8,000 bytes of buffer space, which may have been my issue. Instead, I decided to use the Run() method. However, I ran into issues with this as well until I found out you could do the following:

[...]
runCmd = strExeDir & """" & strBaseDir & "\sysinternals\psinfo.exe"" -accepteula -s > """ & strOutputDir & "installedsoftware.txt"""
return = objShell.Run("cmd /c """ & runCmd & """",1,true)
[...]

This allowed me to run psinfo.exe on a remote system with psexec and save the resulting output to a text file on my local system.

And just for further information, the full command being run was:

"C:\Documents and Settings\magicked\Desktop\remote\sysinternals\psexec.exe" \\192.168.13.37 -u Administrator -p Password -c "C:\Documents and Settings\magicked\Desktop\remote\sysinternals\psinfo.exe" -accepteula -s > "C:\Documents and Settings\magicked\Desktop\remote\output\192.168.13.37\installedsoftware.txt"

(Don't worry, I scrubbed it. Password is not my password. )

I ran into trouble with Run(), because I didn't realize I had to put quotes around the whole runCmd. The script would ignore all my quotes around each path in the command otherwise, and it would error out with:

'C:\Documents' is not recognized as an internal or external command, operable program or batch file.

When I added the quotes around the entire command, it worked properly!