Quantcast
Channel: Adobe Community: Message List - Deployment for Creative Cloud for Team, Enterprise, & CS
Viewing all articles
Browse latest Browse all 13660

Re: Shortcuts after installing CC

$
0
0

Try the script below, Adobe does not provide the functionality to modify it during the install for some reason:

 

Just to note, for deployment I zip the files using 7ZIP, copy them down to the machine and unzip using the script below with a 7za.exe file in the folder.

 

On Error Resume Next

'----------------------------------------------
'Function: Install Adobe Creative Cloud
'----------------------------------------------
'Error Codes:
'1001 - Extract Failed
'1002 - Exceptions Pre Install Failed
'1003 - Installations Failed
'1004 - Exceptions Post Install Failed
'0 - All installations completed successfully
'-----------------------------------------------

 

Dim objFSO, wshShell

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set wshShell = WScript.CreateObject( "WScript.Shell" )

 

strInstallFolder = objFSO.GetParentFolderName(Wscript.ScriptFullName)

strSuccess = 0
strExtract = strInstallFolder & "\7za.exe x " & strInstallFolder & "\AdobeCC_GACLabs.7z.001 -o"& strInstallFolder & "\AdobeCC"
strInstall = "msiexec /i " & strInstallFolder & "\GACLABS\Build\GACLABS.msi /qb"
strExceptionsPre = strInstallFolder & "\GACLABS\Exceptions\ExceptionDeployer.exe --workflow=install --mode=pre"
strExceptionsPost = strInstallFolder & "\GACLABS\Exceptions\ExceptionDeployer.exe --workflow=install --mode=post"

strStartMenu = "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\"
strDesktop = "C:\Users\Public\Desktop\"
strAdobeCCFolder = "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Adobe Creative Cloud\"

 

Dim strShortcut(28)
strShortcut(0) = "Adobe After Effects CC 2014.lnk"
strShortcut(1) = "Adobe Audition CC 2014.lnk"
strShortcut(2) = "Adobe Bridge CC (64bit).lnk"
strShortcut(3) = "Adobe Dreamweaver CC 2014.1.lnk"
strShortcut(4) = "Adobe Edge Animate CC 2014.1.lnk"
strShortcut(5) = "Adobe Edge Code CC Preview.lnk"
strShortcut(6) = "Adobe Edge Reflow CC.lnk"
strShortcut(7) = "Adobe Extension Manager CC.lnk"
strShortcut(8) = "Adobe Extension Manager CS6.lnk"
strShortcut(9) = "Adobe Fireworks CS6.lnk"
strShortcut(10) = "Adobe Flash Professional CC 2014.lnk"
strShortcut(11) = "Adobe Help.lnk"
strShortcut(12) = "Adobe Illustrator CC 2014.lnk"
strShortcut(13) = "Adobe InCopy CC 2014.lnk"
strShortcut(14) = "Adobe InDesign CC 2014.lnk"
strShortcut(15) = "Adobe Media Encoder CC 2014.lnk"
strShortcut(16) = "Adobe Muse CC 2014.lnk"
strShortcut(17) = "Adobe Photoshop CC 2014.lnk"
strShortcut(18) = "Adobe Photoshop Lightroom 5.7.1 64-bit.lnk"
strShortcut(19) = "Adobe Prelude CC 2014.lnk"
strShortcut(20) = "Adobe Premiere Pro CC 2014.lnk"
strShortcut(21) = "Adobe Scout CC.lnk"
strShortcut(22) = "Adobe SpeedGrade CC 2014.lnk"
strShortcut(23) = "Adobe Bridge CC (64bit).lnk"
strShortcut(24) = "Adobe Scout CC.lnk"
strShortcut(25) = "Adobe Acrobat Distiller XI.lnk"
strShortcut(26) = "Adobe Acrobat XI Pro.lnk"
strShortcut(27) = "Adobe FormsCentral.lnk"

 

Dim strFolder(3)
strFolder(0) = "Adobe Gaming SDK 1.4"
strFolder(1) = "Adobe Flash Builder 4.7"
strFolder(2) = "Adobe"

 

Dim strDesktopShortcut(4)
strDesktopShortcut(0) = "Adobe Acrobat XI Pro.lnk"
strDesktopShortcut(1) = "Adobe FormsCentral.lnk"
strDesktopShortcut(2) = "Adobe Scout CC.lnk"
strDesktopShortcut(3) = "Lightroom 5.7.1 64-bit.lnk"

 


ReturnValueExtract = wshShell.run (strExtract,0,True)

If NOT ReturnValueExtract = 0 Then
strExtractFail = 1001
Wscript.Quit strExtractFail
End If

 

' Installing Pre Installation Exceptions
'-----------------------------------------
ReturnValueExceptionPre = wshShell.run (strExceptionsPre,0,True)

If NOT ReturnValueExceptionPre = 0 Then
strExtractFail = 1002
Wscript.Quit strExtractFail
End If

' Installing Adobe Creative Cloud
'-----------------------------------------
ReturnValueInstall = wshShell.run (strInstall,0,True)

If NOT ReturnValueInstall = 0 Then
strExtractFail = 1003
Wscript.Quit strExtractFail
End If

' Installing Post Installation Exceptions
'-----------------------------------------
ReturnValueExceptionPost = wshShell.run (strExceptionsPost,0,True)

If NOT ReturnValueExceptionPost = 0 Then
strExtractFail = 1004
Wscript.Quit strExtractFail
End If

If NOT objFSO.FolderExists(strAdobeCCFolder) Then
objFSO.CreateFolder(strAdobeCCFolder)
End If

For Each x in strShortcut
If x = "" Then
Else
  If objFSO.FileExists(strStartMenu & x) Then
   objFSO.MoveFile strStartMenu & x, strAdobeCCFolder
  End If
End If
Next

For Each y in strFolder
If y = "" Then
Else
  If objFSO.FolderExists(strStartMenu & y) Then
   objFSO.MoveFolder strStartMenu & y, strAdobeCCFolder
  End If
End If
Next

For Each z in strDesktopShortcut
If z = "" Then
Else
  If objFSO.FileExists(strDesktop & z) Then
   objFSO.DeleteFile strDesktop & z
  End If
  'Wscript.Echo z
End If
Next

Wscript.Quit strSuccess


Viewing all articles
Browse latest Browse all 13660

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>