IT Pro Tips for Rosetta Stone Services 2

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

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

artschwagerb
08/17/2009
Show Comments ( 0 )

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

artschwagerb
08/17/2009
Show Comments ( 0 )

Inventory Records (3)

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

Versions

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

Links (0)

Links related to Rosetta Stone Services

Reviews (0)

Reviews related to Rosetta Stone Services