home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 October / Chip_2004-10_cd1.bin / chplus / guide / AppCompat-XPSP2.msi / _8A20A82799263F2E2F7D3C7DEA618834 / _02A2E234168842DF88AC7751B6DCECD7 next >
Encoding:
Text File  |  2004-08-23  |  2.1 KB  |  48 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. ' CloseProgram.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 delete a program from the Windows Firewall
  32. 'exception list.
  33. 'For information on the NetSh command line utility see the Help and Support Center.
  34.  
  35. 'The WshShell.Run command is used to force sequential execution of the NetSh commands.
  36. 'This ensures that execution control does not release until all shell commands have completed processing.
  37.  
  38. 'Edit the value of Prog to configure the deleted AllowedProgram
  39. Prog = """C:\Program Files\Messenger\msmsgr.exe"""
  40.  
  41. 'Create a WshShell object
  42. Set WshShell = CreateObject("Wscript.Shell")
  43.  
  44. 'Use the Run method to run the NetSh command line utility using the Delete AllowedProgram command,
  45. 'specifying the application executable. This line should be edited to specify the required program.
  46. WshShell.Run("NetSh Firewall Delete AllowedProgram" & Prog),1,TRUE
  47.  
  48.