home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 October / Chip_2004-10_cd1.bin / chplus / guide / AppCompat-XPSP2.msi / _8A20A82799263F2E2F7D3C7DEA618834 / _078170331C374FC08470169B2774F6D5 < prev    next >
Encoding:
Text File  |  2004-08-23  |  2.0 KB  |  44 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. ' WinFire.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. 'This script makes the required configuration changes to Windows Firewall. Add in additional
  31. 'ports for specific environments
  32. 'The WshShell.Run command is used to force sequential execution of the NetSh commands.
  33. 'This ensures that Winfire.vbs execution control does not release until all shell commands 
  34. 'have completed processing.
  35.  
  36.  
  37. Set WshShell = CreateObject("Wscript.Shell")
  38.  
  39. 'Edit this list to include the required TCP or UDP ports
  40. WshShell.Run("NetSh Firewall add portopening UDP 137 FPS"),1,TRUE
  41. WshShell.Run("NetSh Firewall add portopening UDP 138 FPS1'"),1,TRUE
  42. WshShell.Run("NetSh Firewall add portopening TCP 139 FPS2"),1,TRUE
  43. WshShell.Run("NetSh Firewall add portopening TCP 445 FPS3"),1,TRUE
  44. WshShell.Run("NetSh Firewall add portopening TCP 3389 RDP1"),1,TRUE