home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 October / Chip_2004-10_cd1.bin / chplus / guide / AppCompat-XPSP2.msi / _8A20A82799263F2E2F7D3C7DEA618834 / _FB6451A8F98B4ECD86675EE6F0E24C86 < prev   
Encoding:
Text File  |  2004-08-23  |  1.7 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. ' LogInstall.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 creates a logfile of computers that install SP2. Substitute
  32. '\\Servername\log\SP2Install.log with the correct location for your environment
  33.  
  34. 'Edit the value of LogLocale to include the path to the logfile
  35. LogLocale = "\\Servername\log\SP2Install.log"
  36.  
  37.  
  38. Set WshNetwork = CreateObject("WScript.Network")
  39. Set FileSys = CreateObject("Scripting.FileSystemObject")
  40.  
  41. Set TxtFile = Filesys.OpenTextFile (LogLocale, "8", True)
  42. TxtFile.WriteLine WshNetwork.Computername
  43. TxtFile.Close