home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 October / Chip_2004-10_cd1.bin / chplus / guide / AppCompat-XPSP2.msi / _8A20A82799263F2E2F7D3C7DEA618834 / _336AF455B3084958ADCB82BBE0A4BFB3 < prev    next >
Encoding:
Text File  |  2004-08-23  |  3.1 KB  |  81 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. ' StartRemoteIns.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:
  31.  
  32. 'Reads computer names from a text file
  33.  
  34. 'Copies the installation and configuration scripts, including the XpSp2.exe upgrade file, 
  35. 'from a network location to the local machine
  36.  
  37. 'Connects to the computers in turn
  38.  
  39. 'Launches install.cmd to start the installation process
  40.  
  41. 'Before running the script change the scripts folder path, the computer.txt path and 
  42. 'the install.cmd path to be correct for the environment
  43.  
  44. 'Edit the value of CompTxtFile to configure the path to Computers.txt if required
  45. CompTxtFile = "C:\sp2share\scripts\scenario1\computers.txt"
  46.  
  47. 'The XpSp2 upgrade executable, xpsp2.exe, needs to be present in the scripts folder
  48. 'Edit the value of SrcSrv to include the path to the scripts folder on the source server
  49. SrcSrv = "\\xpsp2-lb-domn-01\sp2share\scripts"
  50.  
  51. 'Edit the value of DestPath to include the destination path on the client if required
  52. DestPath = "\c$\scripts"
  53.  
  54. 'Edit the value of ScriptPath to include the path to Install.cmd if required
  55. ScriptPath = "\c$\scripts\scenario1\install.cmd"
  56.  
  57. Set FileSys = CreateObject("Scripting.FileSystemObject")
  58.  
  59. Set File = FileSys.GetFile(CompTxtFile)
  60.  
  61. Set Words = File.OpenAsTextStream
  62.  
  63.     Do Until Words.AtEndOfStream
  64.     StrComputer = Words.ReadLine
  65.  
  66. 'The XpSp2 upgrade executable, xpsp2.exe, needs to be present in the scripts folder.
  67. 'Edit this line to include the path to the scripts folder on the source server and the
  68. 'destination path on the client if required
  69.     FileSys.CopyFolder SrcSrv, "\\" & strComputer & DestPath, true
  70.  
  71.     Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\"  _
  72.     & strComputer & "\root\cimv2:Win32_Process")
  73.  
  74.     errReturn = objWMIService.Create("\\" & strComputer & ScriptPath, null, null, intProcessID)
  75.  
  76.         If errReturn = 0 Then 
  77.          Wscript.Echo "Script ran successfully"
  78.         Else
  79.          Wscript.Echo "The script failed due to error " & errReturn & "."
  80.         End If
  81.     Loop