Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Get smarter about exactly what version of the library is being installed |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | sourceforge |
Files: | files | file ages | folders |
SHA1: |
3e1c49fa29f65069a33be9caf48429d6 |
User & Date: | rmsimpson 2005-12-09 20:02:06.000 |
Context
2005-12-19
| ||
17:53 | 1.0.24.1 check-in: 2ad390d75a user: rmsimpson tags: sourceforge | |
2005-12-09
| ||
20:02 | Get smarter about exactly what version of the library is being installed check-in: 3e1c49fa29 user: rmsimpson tags: sourceforge | |
20:01 | Allow script debugging check-in: f0a33927c7 user: rmsimpson tags: sourceforge | |
Changes
Changes to bin/Designer/Install.vbs.
|
| < < > > > > > > > > > | < | | > | > > > > | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | Main Sub Main() Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") Dim GacPath Dim oExec GacPath = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\sdkInstallRootv2.0") Dim fso Set fso = WScript.CreateObject("Scripting.FileSystemObject") Dim myDir myDir = fso.GetParentFolderName(WScript.ScriptFullName) Set oExec = WshShell.Exec(GacPath & "\bin\gacutil.exe -u System.Data.SQLite") Do While oExec.Status = 0 WScript.Sleep(100) Loop oExec.StdOut.ReadAll() Set oExec = WshShell.Exec(GacPath & "\bin\gacutil.exe -if ..\System.Data.SQLite.DLL") Do While oExec.Status = 0 WScript.Sleep(100) Loop oExec.StdOut.ReadAll() Dim gacEntry Set oExec = WshShell.Exec(GacPath & "\bin\gacutil.exe -nologo -l System.Data.SQLite") Do While oExec.Status = 0 WScript.Sleep(100) Loop oExec.StdOut.SkipLine gacEntry = oExec.StdOut.ReadLine() oExec.StdOut.ReadAll() Dim regRoot regRoot = WScript.Arguments(0) If Right(regRoot, 1) = "\" Then regRoot = Left(regRoot, Len(regRoot) - 1) End If Dim xmlPath |
︙ | ︙ | |||
51 52 53 54 55 56 57 58 59 60 61 62 63 64 | genRegFile.Close() regFile.Close() Set oExec = WshShell.Exec("regedit /s """ & myDir & "\SQLiteDesigner.gen.reg""") Do While oExec.Status = 0 WScript.Sleep(100) Loop fso.DeleteFile(myDir & "\SQLiteDesigner.gen.reg") Dim machineConfigFile Dim machineConfig machineConfigFile = fso.GetSpecialFolder(WindowsFolder).Path & "\Microsoft.NET\Framework\v2.0.50727\CONFIG\machine.config" | > | 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 | genRegFile.Close() regFile.Close() Set oExec = WshShell.Exec("regedit /s """ & myDir & "\SQLiteDesigner.gen.reg""") Do While oExec.Status = 0 WScript.Sleep(100) Loop oExec.StdOut.ReadAll() fso.DeleteFile(myDir & "\SQLiteDesigner.gen.reg") Dim machineConfigFile Dim machineConfig machineConfigFile = fso.GetSpecialFolder(WindowsFolder).Path & "\Microsoft.NET\Framework\v2.0.50727\CONFIG\machine.config" |
︙ | ︙ | |||
78 79 80 81 82 83 84 | xmlNode.attributes.setNamedItem(machineConfig.createAttribute("type")) xmlParent.appendChild xmlNode End If xmlNode.attributes.getNamedItem("name").value = "SQLite Data Provider" xmlNode.attributes.getNamedItem("invariant").value = "System.Data.SQLite" xmlNode.attributes.getNamedItem("description").value = ".Net Framework Data Provider for SQLite" | | | 90 91 92 93 94 95 96 97 98 99 100 | xmlNode.attributes.setNamedItem(machineConfig.createAttribute("type")) xmlParent.appendChild xmlNode End If xmlNode.attributes.getNamedItem("name").value = "SQLite Data Provider" xmlNode.attributes.getNamedItem("invariant").value = "System.Data.SQLite" xmlNode.attributes.getNamedItem("description").value = ".Net Framework Data Provider for SQLite" xmlNode.attributes.getNamedItem("type").value = "System.Data.SQLite.SQLiteFactory," & gacEntry machineConfig.save machineConfigFile End Sub |