If you cannot download applications once you log in with your Amherst College account, please contact us at verify your account is authorized to use Adobe software on computers outside the classroom.
Type your full Amherst College email address on the sign in screen.To start, visit, then click Sign In at the top right corner of the screen.To download, install, and use the software, faculty and staff only need to log in to using their Amherst College email address. Up to two devices may be used at one time. Wscript.echo "Can't find the cache.Amherst College's current Adobe Campus License Agreement allows Amherst faculty and staff to install use Adobe CC on personal devices. If ( Not CacheFile = "" ) And (objFSO.FileExists(CacheFile)) ThenĮlseIf objFSO.FileExists( "c:\Program Files (x86)\Common Files\Adobe\Adobe PCD\cache\cache.db" ) ThenįindCacheFile = "c:\Program Files (x86)\Common Files\Adobe\Adobe PCD\cache\cache.db"ĮlseIf objFSO.FileExists( "c:\Program Files\Common Files\Adobe\Adobe PCD\cache\cache.db" ) ThenįindCacheFile = "c:\Program Files\Common Files\Adobe\Adobe PCD\cache\cache.db" StrAdobeDecryptedKey = strAdobeDecryptedKey & k 'Add one to J because it isn't base 0 and grab that numbers position in the cipher J = mid (strAdobeEncryptedKey, i + 1, 1 ) 'Grab the next number from the adobe encrypted key. StrAdobeDecryptedKey = strAdobeDecryptedKey & "-" Set CreateCSV = objFile.CreateTextFile(sFile)įunction DecodeAdobeKey(strAdobeEncryptedKey)
Set objFile = CreateObject( "Scripting.FileSystemObject" ) ObjMailItem.Body = "Hello," & vbCrLf & "Attached are my Adobe License Keys: " & strText & vbCrLf & "Thanks," & vbCrLf & objSysInfo.UserName 'comment the next line If you do Not want to see the outlook window Set objMailItem = objOutlookApp.CreateItem(olMailItem) Set objOutlookApp = CreateObject( "Outlook.Application" ) Set objSysInfo = CreateObject( "ADSystemInfo" ) If (Err.Number = 0 ) And (ub >= 0 ) Then IsArrayDimmed = True Set objEM = EmailAdobeKey(strOutput,strFile)
Wscript.echo "Your Adobe " & strProduct & " License Key is: " & strAdobeKey Click on the tab below Active Students or Current Faculty and Staff for instructions on obtaining an Adobe Creative Cloud. StrAdobeKey = DecodeAdobeKey(strAdobeEncryptedKey) StrFile = "C:\Users\" +objNetwork.UserName+ "\Desktop\AdobeKeys.csv"ĭo While Not Set objOutput = objShell.Exec (strCommand) 'strCommand = strCurrentDirectory & "sqlite3.exe " & Chr(34) & strCacheFile & Chr(34) & " " & chr(34) & "select value from domain_data where key='SN' " & chr(34) StrCommand = strSQLlite & " " & Chr( 34 ) & strCacheFile & Chr( 34 ) & " " & chr( 34 ) & "SELECT subDomain,value FROM domain_data WHERE key='SN' OR key='EncryptedSerial' " & chr( 34 ) The Adobe CC software is available to the UNC-Chapel Hill community. StrCurrentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName))) Note, if you already have been issued a Creative Cloud License and are looking to. StrCacheFile = FindCacheFile(strCacheFile) StrCacheFile = "C:\Program Files (x86)\Common Files\Adobe\Adobe PCD\cache\cache.db" Set objNetwork = CreateObject( "Wscript.Network" ) Why is my license expiring Adobe has changed their licensing model from serialization to cloud licensing with the release of Adobe CC 2020. Set objShell = CreateObject( "WScript.Shell" ) Set objFSO = CreateObject( "Scripting.FileSystemObject" ) 'SQLITE3 source and binaries can be found at 'Variable Declarationsĭim strCacheFile, strCurrentDirectory, strCommand, strSQLlite, strLine, strAdobeEncryptedKey, strAdobeKey, strFile 'To run this program make sure that sqlite3.exe is in the same folder as this vbs file.
'His code was Converted from the source for "Enchanted Keyfinder" 'Cipher code converted from Sam Gleske's javascript found at: 'Written by Ryan Williams I am not a programmer so please excuse the messy code
'Modified by Travis Smith () to fetch all Adobe licenses.