home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 October / Chip_2004-10_cd1.bin / chplus / guide / AppCompat-XPSP2.msi / _8A20A82799263F2E2F7D3C7DEA618834 / _9DF62D57870E43DCAA858CB4D247CF42 < prev    next >
Encoding:
Text File  |  2004-08-23  |  1.9 KB  |  43 lines
  1. '=================================================================================
  2. 'This script is part of the appendix to the Application Compatibility Testing and 
  3. 'Mitigation Guide for Windows XP Service Pack 2. Before using these scripts you 
  4. 'must read the appendix and all Readme.txt files provided with the scripts. The 
  5. 'scripts are designed as functional samples and will require extensive testing and
  6. 'some modification for use in a production environment.
  7. '
  8. 'For information on additional functionality to incorporate into the script, such 
  9. 'as error checking, go to:
  10. '
  11. 'http://msdn.microsoft.com/library/default.asp?url=/nhp/default.asp?contentid=28001169
  12. '
  13. 'or
  14. '
  15. 'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/rmscpt/html/rmscpt.asp
  16. '
  17. 'As some of the scripts edit the registry it is important that their functionality and 
  18. 'impact on the machine environment is thoroughly tested before they are used in a 
  19. 'production environment.
  20. '================================================================================== 
  21. ' 
  22. ' ClosePort.vbs
  23. '
  24. ' Author: Jim Captainino, Terry Tull (Content Master)
  25. ' Date:   08/20/04
  26. ' Revision History:
  27. '    Date    Comment
  28. '    08/20/04    Initial version started
  29.  
  30.  
  31. 'This script uses the NetSh command line utility to close a specific port in the Windows Firewall.
  32. 'For information on the NetSh command line utility see the Help and Support Center.
  33.  
  34. 'The WshShell.Run command is used to force sequential execution of the NetSh commands.
  35. 'This ensures that execution control does not release until all shell commands have completed processing.
  36.  
  37. 'Create a WshShell object
  38. Set WshShell = CreateObject("Wscript.Shell")
  39.  
  40. 'Use the Run method to run the NetSh command line utility using the Delete PortOpening command,
  41. 'specifying the protocol and port number. This line should be edited to specify the required protocol and port.
  42. WshShell.Run("NetSh Firewall Delete PortOpening TCP 21"),1,TRUE
  43.