home *** CD-ROM | disk | FTP | other *** search
- '=================================================================================
- 'This script is part of the appendix to the Application Compatibility Testing and
- 'Mitigation Guide for Windows XP Service Pack 2. Before using these scripts you
- 'must read the appendix and all Readme.txt files provided with the scripts. The
- 'scripts are designed as functional samples and will require extensive testing and
- 'some modification for use in a production environment.
- '
- 'For information on additional functionality to incorporate into the script, such
- 'as error checking, go to:
- '
- 'http://msdn.microsoft.com/library/default.asp?url=/nhp/default.asp?contentid=28001169
- '
- 'or
- '
- 'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/rmscpt/html/rmscpt.asp
- '
- 'As some of the scripts edit the registry it is important that their functionality and
- 'impact on the machine environment is thoroughly tested before they are used in a
- 'production environment.
- '==================================================================================
- '
- ' FirewallLog.vbs
- '
- ' Author: Jim Captainino, Terry Tull (Content Master)
- ' Date: 08/20/04
- ' Revision History:
- ' Date Comment
- ' 08/20/04 Initial version started
-
-
- 'This script uses the NetSh command line utility to configure logging for the Windows Firewall.
- 'For information on the NetSh command line utility see the Help and Support Center.
-
- 'The WshShell.Run command is used to force sequential execution of the NetSh commands.
- 'This ensures that execution control does not release until all shell commands have completed processing.
-
- 'Create a WshShell object
- Set WshShell = CreateObject("Wscript.Shell")
-
- 'Use the Run method to run the NetSh command line utility using the Set Logging command to
- 'configure the firewall log. This line can be edited to include specific values for:
- 'Logfile name
- 'Logfile size
- 'Data to be logged
- ' Successful connections
- ' Dropped packets
-
- WshShell.Run("Netsh Firewall Set Logging FileLocation=%windir%\pfirewall.log MaxFileSize=4096" _
- & "Connections=Enable DroppedPackets=Enable"),1,TRUE