Shortpath Folder

Set fso = CreateObject("Scripting.FileSystemObject")
strProgramFiles = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%ProgramFiles%")

Set f = fso.GetFolder(strProgramFiles)
strShortProgramFiles = f.ShortPath

session.property("ZI_SHORT_PF") = strShortProgramFiles