'========================================================================== ' ' VBScript: AUTHOR: edwilson , msft, 3/13/2006 ' ' NAME: 'Version 2.0 'cleaned up code, changed to readAll(). Added comments ' COMMENT: Key concepts are listed below: '1. using the Wscript.shell exec method to run programs '2. using the StdOut method to capture output '3. KB281336 talks about using netstat. '========================================================================== Option Explicit 'Is used to force the scripter to declare variables 'On Error Resume Next 'Is used to tell vbscript to go to the next line if it encounters an Error Dim objShell 'Holds WshShell object Dim objExecObject 'Holds what comes back from executing the command Dim strText 'Holds the text stream from the exec command. Dim command 'The command to run command = "cmd /c netstat -ano" WScript.echo "starting program " & Now 'Used to mark when program begins Set objShell = CreateObject("WScript.Shell") Set objExecObject = objShell.Exec(command) Do Until objExecObject.StdOut.AtEndOfStream strText = objExecObject.StdOut.ReadAll() Wscript.Echo strText Loop WScript.echo "complete" 'Lets me know program is done running