home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 February / CMCD0205.ISO / Software / Freeware / Programare / Sharp / SharpDevelop_1.0.3.1761_Setup.exe / PostInstallTasks.vbs < prev    next >
Encoding:
Text File  |  2004-10-07  |  988 b   |  41 lines
  1. Dim WshShell
  2. Set WshShell = CreateObject("WScript.Shell")
  3. WshShell.CurrentDirectory = GetSetupPath()
  4.  
  5. WScript.Echo "Installing shared assemblies into the GAC" & vbCrLf
  6.  
  7. WScript.Echo "ICSharpCode.SharpZipLib.dll"
  8. RegisterInGAC "..\ICSharpCode.SharpZipLib.dll"
  9.  
  10. WScript.Echo "NUnit.Core.dll"
  11. RegisterInGAC "..\nunit.core.dll"
  12.  
  13. WScript.Echo "NUnit.Framework.dll"
  14. RegisterInGAC "..\nunit.framework.dll"
  15.  
  16. Execute "BuildHelpIndex.exe"
  17.  
  18. ' SHARED FUNCTIONS
  19.  
  20. Public Sub RegisterInGAC(strAssemblyRelativePath)
  21.   Execute "..\tools\gacutil2.exe /i:" & strAssemblyRelativePath
  22. End Sub
  23.  
  24. Public Sub Execute(strProgram)
  25.   Dim oExec
  26.  
  27.   Set oExec = WshShell.Exec(strProgram)
  28.  
  29.   Do While oExec.Status = 0
  30.     WScript.Sleep 100
  31.   Loop
  32.  
  33.   WScript.Echo oExec.StdOut.ReadAll
  34. End Sub
  35.  
  36. Public Function GetSetupPath()
  37.   Dim strSetupDirPath
  38.   strSetupDirPath = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\"))
  39.   GetSetupPath = strSetupDirPath
  40. End Function
  41.