Rosetta Stone Services

Views: 1.6k  |  Created: 10/01/2007

Average Rating: 0
Services has 3 inventory records, 0 Questions, 0 Blogs and 0 links. Please help add to this by sharing more!

Deployment Tips (2)

Most Common Setup Type
Not Determined
Average Package Difficulty Rating
Rated 0 / 5 (Not Rated) based on 0 ratings
Most Commonly Reported Deployment Method
Not Determined
or cancel
2
Command Line
InstallShield uses the -r command to record an install to C:\Windows\setup.iss and then uses -s for silent install

Using VB Script

strinstall = Shell.Run("" & extDrive & "Installers\RsClient\setup.exe -s",,True)
Setup Information:
Setup Type: unspecified
Deployment Method Used: unspecified
Deployment Difficulty: unspecified
Platform(s): Windows
Please log in to comment
1
Note
Rosetta Stone comes with a Network Configuration Utility to add languages to the Program. Since we put the languages in the same folder on ever computer and we know where the NetworkConfig.txt file that holds the language configuration is located.

Here is the sub from the vb script that we use for adding languages.

Sub UpdateConfig
Dim ObjFso
Dim StrFolderName
Dim ObjFolder
Dim ObjFilesCollection
Dim ObjFile
Dim LangLocation
Dim PrefLocation

const HKEY_CURRENT_USER = &H80000001
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."

Set WshShell = CreateObject( "WScript.Shell" )
'Finds the Rosetta Stone installation folder.
path = WshShell.RegRead( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\RosettaStone.exe\Path" )
'msgbox path

'We put our languages in a folder called languagePacks in the root of the RosettaStone folder.
LangLocation = path & "languagePacks\"
'msgbox LangLocation
PrefLocation = path
'msgbox PrefLocation & "Prefs\NetworkConfig.txt"

StrFolderName = LangLocation


'----Perform File Operations------------------------------------------------------------------------------
'Deletes the existing file
'Set aFile = fso.GetFile(Location & "Prefs\NetworkConfig.txt")
'msgbox Location & "Prefs\NetworkConfig.txt"
'aFile.Delete


'Open Config file to be overwritten
Set ObjFso= CreateObject("Scripting.FileSystemObject")
Set openFile = ObjFso.CreateTextFile(PrefLocation & "Prefs\NetworkConfig.txt", True)

'----End of File Operations------------------------------------------------------------------------------

'Write Initial Config
str = "[#workstation: " & chr(34) & "F" & chr(34) &", #dataPaths: ["
openFile.Write str

'Getting the folder
Set ObjFolder=ObjFso.GetFolder(StrFolderName)

'Getting the list of files in to a collection object
Set ObjFilesCollection=ObjFolder.SubFolders

'Printing each file in the collection object
i = 0

For Each ObjFile In ObjFilesCollection
trs = StrFolderName & objFile.Name & "\CDID3.TRS"
if ObjFso.fileexists(trs) then
if i = 0 then
str = chr(34) & StrFolderName & objFile.Name & chr(34)
openFile.Write str
else
str = ", " & chr(34) & StrFolderName & objFile.Name & chr(34)
openFile.Write str
end if
else
'msgbox "Unrecognized or Corrupt Language Pack - " & LangLocation & objFile.Name & " was not added to the Configuration File."
end if
'Printing the file name
'msgbox ObjFile.Name
'Languages(i) = ObjFile.Name
'msgbox """C:\ProgramData\Rosetta Stone\RS2.2.1.0N\languagePacks\" & objFile.Name & ","""
'openFile.Write """C:\ProgramData\Rosetta Stone\RS2.2.1.0N\languagePacks\" & objFile.Name & ","""
'Printing the file name with path
'msgbox ObjFile.Path

i = i + 1
Next
'Enter your license server's ip below
LicenseServerIP = "000.000.000.000"

'Write Ending Config
str = "], #licenseServers: [" & chr(34) & "27010@" & LicenseServerIP & chr(34) & "]]"
openFile.Write str

'msgbox "Language Configuration File Created Successfully"
me.close
End Sub
Setup Information:
Setup Type: unspecified
Deployment Method Used: unspecified
Deployment Difficulty: unspecified
Platform(s): Windows
Please log in to comment

Inventory Records (3)

View inventory records anonymously contributed by opt-in users of the K1000 Systems Management Appliance.

Services

Version

2.1.2

Uninstall String

MsiExec.exe /X{EB1AE258-8DDD-4F54-B2EB-AC02EC4C6FAB}

Questions & Answers (0)

Questions & Answers related to Rosetta Stone Services

Blogs (0)

Blog posts related to Rosetta Stone Services

Reviews (0)

Reviews related to Rosetta Stone Services