home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 October / Chip_2004-10_cd1.bin / chplus / guide / AppCompat-XPSP2.msi / _8A20A82799263F2E2F7D3C7DEA618834 / _756CD57224AF44CEB38D04F1AE8282AF < prev    next >
Encoding:
Text File  |  2004-08-23  |  2.3 KB  |  51 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. ' DCOMSec.vbs
  22. '
  23. ' Author: Jim Captainino, Terry Tull (Content Master)
  24. ' Date:   08/20/04
  25. ' Revision History:
  26. '    Date    Comment
  27. '    08/20/04    Initial version started
  28.  
  29.  
  30. 'This script edits the registry to exempt applications from DCOM security. An input box 
  31. 'is used to input the application ID (CLSID).
  32. 'Alternatively the application ID can be hardcoded into the script for distribution to multiple computers.
  33.  
  34.  
  35. 'Create a WshShell object
  36. Set WshShell = CreateObject("Wscript.Shell")
  37.  
  38. 'Use an inputbox to allow the user to specify the application ID from the DCOM Config section
  39. 'of the Component Services mmc.
  40. ValName = InputBox("Type the Application ID from DCOM Config in the Component Services mmc including the {}", _ 
  41. & "DCOM Application ID", "{}")
  42.  
  43. 'Use the value of ValName as the value name with a REG-SZ type value of 1 for the application to be exempted
  44. WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Ole\AppCompat\ActivationSecurityCheckExemptionList\" _
  45. & ValName & , "1", "REG_SZ"
  46.  
  47. 'Hardcode the script for a specific application ID. This line must be edited to add the specific application ID
  48. 'WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Ole\AppCompat\ActivationSecurityCheckExemptionList\" _
  49. '& "{B801CA65-A1FC-11D0-85AD-444553540000}", "1", "REG_SZ"
  50.  
  51.