ZDT change user app data store location

[gracedman]

Our notes are in comment #14. One does run the installation routine but then one must run the application for each desktop. The changes to the VBS script should be made before running the ZDC for the first time (when the accounts will be configured).

[foobaz]

Our notes are in comment #14. One does run the installation routine but then one must run the application for each desktop. The changes to the VBS script should be made before running the ZDC for the first time (when the accounts will be configured).

OK, I finally got it working! I wasn't sure what your replacement line

sLocalAppDir = oShell.ExpandEnvironmentStrings("%APPDATA%")

did, so I copied the first several lines from the '------------------------------- main --------------------------------- section in zdrun.vbs to another file, test.vbs, in the same directory, adding your line and commenting out the original line, adding a messagebox function to see what I'd get:

------------------------------- main ---------------------------------

Set oFso = CreateObject("Scripting.FileSystemObject")
Set oShellApp = CreateObject("Shell.Application")
Set oShell = CreateObject("WScript.Shell")
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

sVersion="7.1.4 build 11299"
aUserDirs = Array("index", "store", "sqlite", "log", "zimlets-properties", "zimlets-deployed")
aUserFiles = Array("conf\keystore", "profile\prefs.js", "profile\persdict.dat", "profile\localstore.json")
sScriptPath = WScript.ScriptFullName
sScriptDir = Left(sScriptPath, InStrRev(sScriptPath, WScript.ScriptName) - 2)
sAppRoot = oFso.GetParentFolderName(sScriptDir)
'sLocalAppDir = oFso.getFolder(oShellApp.Namespace(&H1c&).Self.Path).ShortPath
sLocalAppDir = oShell.ExpandEnvironmentStrings("%APPDATA%")
MsgBox sLocalAppDir

The messagebox gave:

C:\Documents and Settings\Administrator\Application Data

which is slightly different from the original location but I had no control over where it would be. So I added a few lines after the commented out line in zdrun.vbs:

'sLocalAppDir = oFso.getFolder(oShellApp.Namespace(&H1c&).Self.Path).ShortPath

Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
' Get new location
Set f = fso.GetFolder("C:\temp\Zimbra")
' Display long pathname
MsgBox f
' Set sLocalAppDir to the short DOS 8.3 filename
sLocalAppDir = f.ShortPath 
' Display short pathname
MsgBox sLocalAppDir

The messageboxes gave:

C:\temp\Zimbra

In this case the short and long names are the same but since the short name is called for in the original line, it's best to set sLocalAppDir to the short name in case they are different.

I made this change before running Zimbra Desktop for the first time. When I ran it, it wrote all data to the new location and not to the original one.

I deleted the messagebox lines after testing since they were no longer needed.

So that's it. Your method, or a modification of it, is the only one that worked. I will summarize the whole procedure in a new post for those looking for just the solution.

Thanks for your help! I could never have done it alone.

Actually, if I look back at post #17, Inshik1028 did do basically the same thing, but didn't specify where he did it. I put it at the beginning of the file and it did not work. Putting it where you specify did the trick.

[gracedman]

Ah, sorry about that - that's because we are using folder redirection - %APPDATA% points to where we redirected the Application Data so that we could centrally manage our users' data and allow them to switch between Windows and Linux desktops. As you found out, you can hard code it to a specific location, too. Glad you got it working! - John

[foobaz]

Here is a summary of how to change the default location of all data, including mail, when you first install Zimbra Desktop. Thanks to Inshik1028 and gracedman for their help with this.

1. Install Zimbra Desktop. Do not start it yet!
2. Create the new directory where you want the data stored, e.g., D:\Data\Zimbra Desktop .
3. Open the file, zdrun.vbs, in the installation directory, e.g., C:\Program Files\Zimbra\Zimbra Desktop\win32\, in a text editor.
4. Find the line:

sLocalAppDir = oFso.getFolder(oShellApp.Namespace(&H1c&).Self.Path).ShortPath

and comment it out with an apostrophe:

'sLocalAppDir = oFso.getFolder(oShellApp.Namespace(&H1c&).Self.Path).ShortPath

5. After this line add:

Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(<your new data location name, e.g., "D:\Data\Zimbra Desktop" -- you need the outer quotes here.>)
sLocalAppDir = f.ShortPath

So in this example, you would write:

Set f = fso.GetFolder("D:\Data\Zimbra Desktop")

6. Run Zimbra Desktop and it should now write all data, including mail, to the new location.

It's that simple.

[Rems29]

Ok foobaz, it works well.
But the modification has to be done at each update of ZD !
Is there a solution to avoid that ?

Thx

[foobaz]

Ok foobaz, it works well.
But the modification has to be done at each update of ZD !
Is there a solution to avoid that ?

Thx

If you just upgrade, it should keep the settings including the data location.

UPDATE:

I found out the hard way, this is not the case. The new install reverts back to the default location. So don't run the upgrade before making the same changes to the new zdrun.vbs.

[alexdyas]

Anyone have a solution that works for OSX or Linux?

Thanks.

Alex

[alexdyas]

Ok, maybe you have to wait a little bit longer.

Or start thinking about a different solution....