Office 365 Activation

This site is best viewed in a modern browser with JavaScript enabled.

null

Hello everybody,

I have installed Office 365 ProPlus 64 bit, however using a script to activate it results in it activating as Office 365 on the first time only, as shown with the updated UI and availability of the morph transition, but if I close it and reopen, it falls back to Office 2016, with the older UI and unavailability of the morph transition.

Getting it to show the new UI and morph transition is a pain, as it required me to remove the all keys, confirm no keys are installed, reboot, reconfirm no keys are installed, activate, and confirm the key is installed, all with internet disabled except during activation, and even then it only works once as I mentioned above. I previously had it all fine with the new UI and morph transition, until one day it suddenly said it was deactivating, and everything went into this chaos.

Note: Confirming the keys show me that Office 16 and Office16ProPlusVL_KMS_Client edition keys are installed. Isn't it supposed to be Office365 or something like that?

This is the cleanup script I used:
-------------------BEGIN-------------------
'****************************************************************************
' Name: OLicenseCleanup.vbs - v 1.15
' Author: Microsoft Customer Support Services
' Copyright (c) Microsoft Corporation
'
' Removes all licenses for Office 2013 and 2016
' from the (Office) Software Protection Platform
'****************************************************************************
'Option Explicit

Dim oProductInstances, oWmiLocal, oReg, oWShell, oFso
Dim sQuery, sTemp, sLogDir, sOSinfo
Dim f64, fO64, fCScript, fQuiet, fClearO15, fClearO16, fSafeForRoamingUsers
Dim LogStream

'Const SKUFILTER = "" 'Removes all licenses
Const SKUFILTER = "O365" 'Removes all licenses that contain O365 in their name
'Const SKUFILTER = "2013" 'Removes all licenses that contain 2013 in their name
'Const SKUFILTER = "2016" 'Removes all licenses that contain 2016 in their name

fQuiet = True
fClearO15 = True
fClearO16 = True
sLogDir = "" 'Custom log folder/directory. No trailing "\" in the path!

'Set this to False if the script needs to run more than once and you don't
'have roaming profile users
fSafeForRoamingUsers = True

'*******************************************************************************

Const OfficeAppId = "0ff1ce15-a989-479d-af46-f275c6370663" 'Office 2013/2016
Const HKLM = &H80000002
Const SCRIPTVERSION = "1.15"

' MAIN
On Error Resume Next
Set oWShell = CreateObject("WScript.Shell")

Initialize
LogH2 "Cleanup start"
CleanOSPP SKUFILTER
ResetOfficeIdentityKey
ResetOfficeUserRegistrationKey
ResetUserLicensingKey
ClearCredmanCache
ClearSCALicCache
ClearConfigUser
LogH2 "Cleanup end"
' END

'-------------------------------------------------------------------------------
' Initialize
'
' Initialize script settings
'-------------------------------------------------------------------------------
Sub Initialize
Dim ComputerItem, Item
Dim sOsVersion

'Check if we're running as 32 bit process on a 64 bit OS
If InStr(LCase(wscript.path), "syswow64") > 0 Then RelaunchAs64Host

Set oWmiLocal 	= GetObject("winmgmts:\\.\root\cimv2")
Set oReg 		= GetObject("winmgmts:\\.\root\default:StdRegProv")
Set oFso		= CreateObject("Scripting.FileSystemObject")

sTemp = oWShell.ExpandEnvironmentStrings("%TEMP%")
fCScript = (UCase(Mid(Wscript.FullName, Len(Wscript.Path) + 2, 1)) = "C")

' get Win32_OperatingSystem details
'----------------------------------
Set ComputerItem = oWmiLocal.ExecQuery("Select * from Win32_OperatingSystem")
For Each Item in ComputerItem 
    sOSinfo = sOSinfo & Item.Caption 
    sOSinfo = sOSinfo & Item.OtherTypeDescription
    sOSinfo = sOSinfo & ", " & "SP " & Item.ServicePackMajorVersion
    sOSinfo = sOSinfo & ", " & "Version: " & Item.Version
    sOsVersion = Item.Version
    sOSinfo = sOSinfo & ", " & "Codepage: " & Item.CodeSet
    sOSinfo = sOSinfo & ", " & "Country Code: " & Item.CountryCode
    sOSinfo = sOSinfo & ", " & "Language: " & Item.OSLanguage
Next

DetectOSBitness
DetectOfficeBitness
CreateLog

LogOnly "Remove O15 Lic: " & fClearO15
LogOnly "Remove O16 Lic: " & fClearO16
LogOnly "Quiet mode:     " & fQuiet

End Sub

'-------------------------------------------------------------------------------
' ResetUserLicensingKey
'
' clear HKCU cached user license registry
'-------------------------------------------------------------------------------
Sub ResetUserLicensingKey ()
Dim sSettingsKey, sCount, sRetVal, sCmd
Dim iCount
Dim oExec

If fClearO15 Then
    'remove current user key
    Log "Remove key HKCU\Software\Microsoft\Office\15.0\Common\Licensing"
    sRetVal = oWShell.Run("REG DELETE HKCU\Software\Microsoft\Office\15.0\Common\Licensing /f", 0, True)
    
    'create user settings key to cover other profiles
    sSettingsKey = "SOFTWARE\Wow6432Node\Microsoft\Office\15.0\User Settings"
    If (f64 And fO64) Or (Not f64) Then sSettingsKey = "SOFTWARE\Microsoft\Office\15.0\User Settings"

    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserLicense"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserLicense\Delete"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserLicense\Delete\Software"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserLicense\Delete\Software\Microsoft"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserLicense\Delete\Software\Microsoft\Office"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserLicense\Delete\Software\Microsoft\Office\15.0"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserLicense\Delete\Software\Microsoft\Office\15.0\Common"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserLicense\Delete\Software\Microsoft\Office\15.0\Common\Licensing"

    iCount = 1
    If Not fSafeForRoamingUsers Then
    	If RegReadDWordValue(HKLM, sSettingsKey & "\ResetUserLicense", "Count", sCount) Then iCount = CInt(sCount) + 1
    End If
    oReg.SetDWordValue HKLM, sSettingsKey & "\ResetUserLicense", "Count", iCount
    oReg.SetDWordValue HKLM, sSettingsKey & "\ResetUserLicense", "Order", 1
    LogOnly "Add SettingsKey: HKLM\" & sSettingsKey & "\ResetUserLicense\Delete\Software\Microsoft\Office\15.0\Common\Licensing"
    LogOnly "Count: " & iCount
End If


'O16
If fClearO16 Then
    'remove current user key
    Log "Remove key HKCU\Software\Microsoft\Office\16.0\Common\Licensing"
    sRetVal = oWShell.Run("REG DELETE HKCU\Software\Microsoft\Office\16.0\Common\Licensing /f", 0, True)


    'create user settings key to cover other profiles
    sSettingsKey = "SOFTWARE\Wow6432Node\Microsoft\Office\16.0\User Settings"
    If (f64 And fO64) Or (Not f64) Then sSettingsKey = "SOFTWARE\Microsoft\Office\16.0\User Settings"

    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserLicense"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserLicense\Delete"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserLicense\Delete\Software"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserLicense\Delete\Software\Microsoft"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserLicense\Delete\Software\Microsoft\Office"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserLicense\Delete\Software\Microsoft\Office\16.0"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserLicense\Delete\Software\Microsoft\Office\16.0\Common"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserLicense\Delete\Software\Microsoft\Office\16.0\Common\Licensing"

    iCount = 1
    If Not fSafeForRoamingUsers Then
    	If RegReadDWordValue(HKLM, sSettingsKey & "\ResetUserLicense", "Count", sCount) Then iCount = CInt(sCount) + 1
    End If
    oReg.SetDWordValue HKLM, sSettingsKey & "\ResetUserLicense", "Count", iCount
    oReg.SetDWordValue HKLM, sSettingsKey & "\ResetUserLicense", "Order", 1
    LogOnly "Add SettingsKey: HKLM\" & sSettingsKey & "\ResetUserLicense\Delete\Software\Microsoft\Office\16.0\Common\Licensing"
    LogOnly "Count: " & iCount
End If

End Sub 'ResetUserLicensingKey

'-------------------------------------------------------------------------------
' ClearConfigUser
'
' clear HKLM cached user license id
'-------------------------------------------------------------------------------
Sub ClearConfigUser
Dim value
Dim sConfigKey, sRetVal, sCmd
Dim arrNames, arrTypes

If NOT fClearO16 Then Exit Sub

sConfigKey = "SOFTWARE\Microsoft\Office\ClickToRun\Configuration"

If RegEnumValues(HKLM, sConfigKey, arrNames, arrTypes) Then
    For Each value in arrNames
        If (InStr(LCase(value), LCase(".EmailAddress")) > 0) Or (InStr(LCase(value), LCase(".TenantId")) > 0) Or (LCase(value) = "productkeys") Then
            sCmd = "REG DELETE HKLM\" & sConfigKey & " /v " &  value & " /f"
            sRetVal = oWShell.Run(sCmd, 0, True)
            Log "Remove entry: HKLM\" & sConfigKey & "\" & value 
        End If
    Next
End If

End Sub 'ClearConfigUser

'-------------------------------------------------------------------------------
' ClearSCALicCache
'
' clear local license cache for SharedComputerActivation
'-------------------------------------------------------------------------------
Sub ClearSCALicCache
Dim attr, fld
Dim sLocalAppData, sCmd, sDelFld

sLocalAppData = oWShell.ExpandEnvironmentStrings("%localappdata%")

If fClearO15 Then
    sDelFld = sLocalAppData & "\Microsoft\Office\15.0\Licensing"
    If oFso.FolderExists(sDelFld) Then
	    Set fld = oFso.GetFolder(sDelFld)
	    'ensure to remove read only flag
	    attr = fld.Attributes
	    If CBool(attr And 1) Then fld.Attributes = attr And (attr - 1)
	    'delete folder
	    fld.Delete True
	    Set fld = Nothing
	
	    'check if removal succeeded. If not try to RD
	    If oFso.FolderExists(sDelFld) Then
            sCmd = "cmd.exe /c rd /s " & chr(34) & sDelFld & chr(34) & " /q"
            Log "Remove folder: " & sDelFld
            oWShell.Run sCmd, 0, True
        End If
    End If
End If

If fClearO16 Then
    sDelFld = sLocalAppData & "\Microsoft\Office\16.0\Licensing"
    If oFso.FolderExists(sDelFld) Then
	    Set fld = oFso.GetFolder(sDelFld)
	    'ensure to remove read only flag
	    attr = fld.Attributes
	    If CBool(attr And 1) Then fld.Attributes = attr And (attr - 1)
	    'delete folder
	    fld.Delete True
	    Set fld = Nothing
	
	    'check if removal succeeded. If not try to RD
	    If oFso.FolderExists(sDelFld) Then
            sCmd = "cmd.exe /c rd /s " & chr(34) & sDelFld & chr(34) & " /q"
            Log "Remove folder: " & sDelFld
            oWShell.Run sCmd, 0, True
        End If
    End If
End If

End Sub 'ClearSCALicCache

'-------------------------------------------------------------------------------
' ClearCredmanCache
'
' clear Office credentials from Windows Credentials Manager Cache
'-------------------------------------------------------------------------------
Sub ClearCredmanCache
Dim oExec, line
Dim sCmd, sRetVal, sCmdOut, sLine
Dim arrLines

sCmd = "cmdkey.exe /list:MicrosoftOffice1*"
Set oExec = oWShell.Exec(sCmd)
sCmdOut = oExec.StdOut.ReadAll()
Do While oExec.Status = 0
     WScript.Sleep 100
Loop
arrLines = Split(sCmdOut)
For Each line In arrLines
	If InStr(line, "MicrosoftOffice1") > 0 And Not InStr(line, "MicrosoftOffice1*") > 0 Then 
		sLine = Replace(line, vbCrLf, "")
		sCmd = "cmdkey.exe /delete:" & Trim(sLine)
        Log "Remove from CredmanCache: " & sLine
		sRetVal = oWShell.Run(sCmd, 0, True)
	End If
Next

End Sub 'ClearCredmanCache

'-------------------------------------------------------------------------------
' ResetOfficeIdentityKey
'
' configures the Office Identity key to be reset on next application launch
'-------------------------------------------------------------------------------
Sub ResetOfficeIdentityKey ()
Dim sSettingsKey, sCount, sRetVal, sCmd
Dim iCount
Dim oExec

If fClearO15 Then
    'remove current user key
    Log "Remove key HKCU\Software\Microsoft\Office\15.0\Common\Identity"
    sRetVal = oWShell.Run("REG DELETE HKCU\Software\Microsoft\Office\15.0\Common\Identity /f", 0, True)
    
    'create user settings key to cover other profiles
    sSettingsKey = "SOFTWARE\Wow6432Node\Microsoft\Office\15.0\User Settings"
    If (f64 And fO64) Or (Not f64) Then sSettingsKey = "SOFTWARE\Microsoft\Office\15.0\User Settings"

    oReg.CreateKey HKLM, sSettingsKey & "\ResetIdentity"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetIdentity\Delete"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetIdentity\Delete\Software"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetIdentity\Delete\Software\Microsoft"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetIdentity\Delete\Software\Microsoft\Office"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetIdentity\Delete\Software\Microsoft\Office\15.0"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetIdentity\Delete\Software\Microsoft\Office\15.0\Common"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetIdentity\Delete\Software\Microsoft\Office\15.0\Common\Identity"

    iCount = 1
    If Not fSafeForRoamingUsers Then
    	If RegReadDWordValue(HKLM, sSettingsKey & "\ResetIdentity", "Count", sCount) Then iCount = CInt(sCount) + 1
    End If
    oReg.SetDWordValue HKLM, sSettingsKey & "\ResetIdentity", "Count", iCount
    oReg.SetDWordValue HKLM, sSettingsKey & "\ResetIdentity", "Order", 1
    LogOnly "Add SettingsKey: HKLM\" & sSettingsKey & "\ResetIdentity\Delete\Software\Microsoft\Office\15.0\Common\Identity"
    LogOnly "Count: " & iCount
End If

If fClearO16 Then
    'remove current user key
    Log "Remove key HKCU\Software\Microsoft\Office\16.0\Common\Identity"
    sRetVal = oWShell.Run("REG DELETE HKCU\Software\Microsoft\Office\16.0\Common\Identity /f", 0, True)

    'create user settings key to cover other profiles
    sSettingsKey = "SOFTWARE\Wow6432Node\Microsoft\Office\16.0\User Settings"
    If (f64 And fO64) Or (Not f64) Then sSettingsKey = "SOFTWARE\Microsoft\Office\16.0\User Settings"

    oReg.CreateKey HKLM, sSettingsKey & "\ResetIdentity"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetIdentity\Delete"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetIdentity\Delete\Software"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetIdentity\Delete\Software\Microsoft"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetIdentity\Delete\Software\Microsoft\Office"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetIdentity\Delete\Software\Microsoft\Office\16.0"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetIdentity\Delete\Software\Microsoft\Office\16.0\Common"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetIdentity\Delete\Software\Microsoft\Office\16.0\Common\Identity"

    iCount = 1
    If Not fSafeForRoamingUsers Then
    	If RegReadDWordValue(HKLM, sSettingsKey & "\ResetIdentity", "Count", sCount) Then iCount = CInt(sCount) + 1
    End If
    oReg.SetDWordValue HKLM, sSettingsKey & "\ResetIdentity", "Count", iCount
    oReg.SetDWordValue HKLM, sSettingsKey & "\ResetIdentity", "Order", 1
    LogOnly "Add SettingsKey: HKLM\" & sSettingsKey & "\ResetIdentity\Delete\Software\Microsoft\Office\16.0\Common\Identity"
    LogOnly "Count: " & iCount
End If

End Sub 'ResetOfficeIdentityKey

'-------------------------------------------------------------------------------
' ResetOfficeUserRegistrationKey
'
' configures the Office Identity key to be reset on next application launch
'-------------------------------------------------------------------------------
Sub ResetOfficeUserRegistrationKey ()
Dim sSettingsKey, sCount, sRetVal, sCmd
Dim iCount
Dim oExec

If fClearO15 Then
    'remove current user key
    Log "Remove key HKCU\Software\Microsoft\Office\15.0\Registration"
    sRetVal = oWShell.Run("REG DELETE HKCU\Software\Microsoft\Office\15.0\Registration /f", 0, True)
    
    'create user settings key to cover other profiles
    sSettingsKey = "SOFTWARE\Wow6432Node\Microsoft\Office\15.0\User Settings"
    If (f64 And fO64) Or (Not f64) Then sSettingsKey = "SOFTWARE\Microsoft\Office\15.0\User Settings"

    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserRegistration"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserRegistration\Delete"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserRegistration\Delete\Software"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserRegistration\Delete\Software\Microsoft"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserRegistration\Delete\Software\Microsoft\Office"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserRegistration\Delete\Software\Microsoft\Office\15.0"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserRegistration\Delete\Software\Microsoft\Office\15.0\Registration"

    iCount = 1
    If Not fSafeForRoamingUsers Then
    	If RegReadDWordValue(HKLM, sSettingsKey & "\ResetUserRegistration", "Count", sCount) Then iCount = CInt(sCount) + 1
    End If
    oReg.SetDWordValue HKLM, sSettingsKey & "\ResetUserRegistration", "Count", iCount
    oReg.SetDWordValue HKLM, sSettingsKey & "\ResetUserRegistration", "Order", 1
    LogOnly "Add SettingsKey: HKLM\" & sSettingsKey & "\ResetUserRegistration\Delete\Software\Microsoft\Office\15.0\Registration"
    LogOnly "Count: " & iCount
End If

If fClearO16 Then
    'remove current user key
    Log "Remove key HKCU\Software\Microsoft\Office\16.0\Registration"
    sRetVal = oWShell.Run("REG DELETE HKCU\Software\Microsoft\Office\16.0\Registration /f", 0, True)

    'create user settings key to cover other profiles
    sSettingsKey = "SOFTWARE\Wow6432Node\Microsoft\Office\16.0\User Settings"
    If (f64 And fO64) Or (Not f64) Then sSettingsKey = "SOFTWARE\Microsoft\Office\16.0\User Settings"

    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserRegistration"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserRegistration\Delete"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserRegistration\Delete\Software"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserRegistration\Delete\Software\Microsoft"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserRegistration\Delete\Software\Microsoft\Office"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserRegistration\Delete\Software\Microsoft\Office\16.0"
    oReg.CreateKey HKLM, sSettingsKey & "\ResetUserRegistration\Delete\Software\Microsoft\Office\16.0\Registration"

    iCount = 1
    If Not fSafeForRoamingUsers Then
    	If RegReadDWordValue(HKLM, sSettingsKey & "\ResetUserRegistration", "Count", sCount) Then iCount = CInt(sCount) + 1
    End If
    oReg.SetDWordValue HKLM, sSettingsKey & "\ResetUserRegistration", "Count", iCount
    oReg.SetDWordValue HKLM, sSettingsKey & "\ResetUserRegistration", "Order", 1
    LogOnly "Add SettingsKey: HKLM\" & sSettingsKey & "\ResetUserRegistration\Delete\Software\Microsoft\Office\16.0\Registration"
    LogOnly "Count: " & iCount
End If

End Sub 'ResetOfficeUserRegistrationKey

'-------------------------------------------------------------------------------
' CleanOSPP
'
' unpkeys the licenses from OSPP
'-------------------------------------------------------------------------------
Sub CleanOSPP (sFilter)
Dim pi
Dim oProductInstances

' Initialize the software protection platform object with a filter on Office 2013/2016 products
If GetVersionNT > 601 Then
    Set oProductInstances = oWmiLocal.ExecQuery("SELECT ID, ApplicationId, PartialProductKey, Description, Name, ProductKeyID FROM SoftwareLicensingProduct WHERE ApplicationId = '" & OfficeAppId & "' " & "AND PartialProductKey <> NULL")
Else
    Set oProductInstances = oWmiLocal.ExecQuery("SELECT ID, ApplicationId, PartialProductKey, Description, Name, ProductKeyID FROM OfficeSoftwareProtectionProduct WHERE ApplicationId = '" & OfficeAppId & "' " & "AND PartialProductKey <> NULL")
End If

' Remove all licenses
For Each pi in oProductInstances
    Log "License: " & pi.Name
    If NOT IsNull(pi) Then
        If InStr(pi.Name, sFilter) > 0 Or sFilter = "" Then
	        Log "Uninstall ProductKey: " & pi.Name & " - Key: " & pi.ProductKeyID
	        pi.UninstallProductKey(pi.ProductKeyID)
        End If
    End If
Next 'pi

End Sub 'CleanOSPP

'-------------------------------------------------------------------------------
' DetectOfficeBitness
'
' detect bitness of Office
'-------------------------------------------------------------------------------
Sub DetectOfficeBitness ()
Dim sOPlatform, sInstallRootPath

fO64 = False
If Not f64 Then Exit Sub
If RegReadStringValue(HKLM, "SOFTWARE\Microsoft\Office\ClickToRun\Configuration", "platform", sOPlatform) Then
	fO64 = (sOPlatform = "x64")
	Exit Sub
End If
If RegReadStringValue(HKLM, "SOFTWARE\Microsoft\Office\15.0\ClickToRun\Configuration", "platform", sOPlatform) Then
	fO64 = (sOPlatform = "x64")
	Exit Sub
End If
If RegReadStringValue(HKLM, "SOFTWARE\Microsoft\Office\ClickToRun\propertyBag", "Platform", sOPlatform) Then
	fO64 = (sOPlatform = "x64")
	Exit Sub
End If
If RegReadStringValue(HKLM, "SOFTWARE\Microsoft\Office\15.0\ClickToRun\propertyBag", "Platform", sOPlatform) Then
	fO64 = (sOPlatform = "x64")
	Exit Sub
End If
If RegReadStringValue(HKLM, "SOFTWARE\Wow6432Node\Microsoft\Office\Common\InstallRoot", "Path", sInstallRootPath) Then
	'fO64 = Not (InStr(sInstallRootPath,"(x86)") > 0)
	fO64 = False
	Exit Sub
End If
If RegReadStringValue(HKLM, "SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot", "Path", sInstallRootPath) Then
	'fO64 = Not (InStr(sInstallRootPath,"(x86)") > 0)
	fO64 = False
	Exit Sub
End If
If RegReadStringValue(HKLM, "SOFTWARE\Microsoft\Office\Common\InstallRoot", "Path", sInstallRootPath) Then
	'fO64 = Not (InStr(sInstallRootPath,"(x86)") > 0)
	fO64 = True
	Exit Sub
End If
If RegReadStringValue(HKLM, "SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot", "Path", sInstallRootPath) Then
	'fO64 = Not (InStr(sInstallRootPath,"(x86)") > 0)
	fO64 = True
	Exit Sub
End If

End Sub 'DetectOfficeBitness

'-------------------------------------------------------------------------------
' DetectOSBitness
'
' detect bitness of the operating system
'-------------------------------------------------------------------------------
Sub DetectOSBitness ()
Dim ComputerItem, item

Set ComputerItem = oWmiLocal.ExecQuery("Select * from Win32_ComputerSystem")
For Each item In ComputerItem
    f64 = Instr(Left(item.SystemType, 3), "64") > 0
Next

End Sub 'DetectOSBitness

'-------------------------------------------------------------------------------
' GetVersionNT
'
' Calculate the VerionNT number as integer
'-------------------------------------------------------------------------------
Function GetVersionNT ()
Dim sOsVersion
Dim arrVersion
Dim qOS
Dim oOsItem

Set qOS = oWmiLocal.ExecQuery( "Select * from Win32_OperatingSystem")
For Each oOsItem in qOS 
    sOsVersion = oOsItem.Version
Next
arrVersion = Split( sOsVersion, GetDelimiter( sOsVersion))
GetVersionNT = CInt( arrVersion( 0)) * 100 + CInt( arrVersion( 1))

End Function

'-------------------------------------------------------------------------------
' GetDelimiter
'
' Returns the delimiter in a version string
'-------------------------------------------------------------------------------
Function GetDelimiter (sVersion)
Dim iCnt, iAsc

GetDelimiter = " "
For iCnt = 1 To Len(sVersion)
    iAsc = Asc(Mid(sVersion, iCnt, 1))
    If Not (iASC >= 48 And iASC <= 57) Then 
        GetDelimiter = Mid(sVersion, iCnt, 1)
        Exit Function
    End If
Next 'iCnt

End Function

'-------------------------------------------------------------------------------
' RegReadDWordValue
'
' Check if a string value exists and return on zero if not
'-------------------------------------------------------------------------------
Function RegReadDWordValue(hDefKey, sSubKeyName, sName, sValue)
Dim RetVal

RetVal = oReg.GetDWORDValue(hDefKey, sSubKeyName, sName, sValue)
RegReadDWordValue = (RetVal = 0)

End Function 'RegReadDWordValue

'-------------------------------------------------------------------------------
' RegReadStringValue
'
' Check if a string value exists and return on zero if not
'-------------------------------------------------------------------------------
Function RegReadStringValue(hDefKey, sSubKeyName, sName, sValue)
Dim RetVal

RetVal = oReg.GetStringValue(hDefKey, sSubKeyName, sName, sValue)
RegReadStringValue = (RetVal = 0)

End Function 'RegReadSringValue

'-------------------------------------------------------------------------------
' RegEnumValues
'
' Enumerate a registry key to return all values
'-------------------------------------------------------------------------------
Function RegEnumValues(hDefKey, sSubKeyName, arrNames, arrTypes)
Dim RetVal

RetVal = oReg.EnumValues(hDefKey, sSubKeyName, arrNames, arrTypes)
RegEnumValues = (RetVal = 0) AND IsArray(arrNames) AND IsArray(arrTypes)

End Function 'RegEnumValues

'-------------------------------------------------------------------------------
' RelaunchAs64Host
'
' Relaunch self with 64 bit CScript host
'-------------------------------------------------------------------------------
Sub RelaunchAs64Host
Dim Argument, sCmd
Dim fQuietRelaunch

fQuietRelaunch = False
sCmd = Replace(LCase(wscript.Path), "syswow64", "sysnative") & "\cscript.exe " & Chr(34) & WScript.scriptFullName & Chr(34)
If fQuiet Then fQuietRelaunch = True
If Wscript.Arguments.Count > 0 Then
    For Each Argument in Wscript.Arguments
        sCmd = sCmd  &  " " & chr(34) & Argument & chr(34)
        Select Case UCase(Argument)
        Case "/Q", "/QUIET"
            fQuietRelaunch = True
        End Select
    Next 'Argument
End If
sCmd = sCmd & " /ChangedHostBitness"
If fQuietRelaunch Then
    sCmd = Replace (sCmd, "\cscript.exe", "\wscript.exe")
    Wscript.Quit CLng(oWShell.Run (sCmd, 0, True))
Else
    Wscript.Quit CLng(oWShell.Run (sCmd, 1, True))
End If

End Sub 'RelaunchAs64Host

'-------------------------------------------------------------------------------
' CreateLog
'
' Create the removal log file
'-------------------------------------------------------------------------------
Sub CreateLog
Dim DateTime
Dim sLogName

On Error Resume Next
' create the log file
Set DateTime = CreateObject("WbemScripting.SWbemDateTime")
DateTime.SetVarDate Now, True
If sLogDir = "" Then sLogDir = sTemp
sLogName = sLogDir & "\" & oWShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
sLogName = sLogName &  "_" & Left(DateTime.Value, 14)
sLogName = sLogName & "_OLicenseClean.txt"
Err.Clear
Set LogStream = oFso.CreateTextFile(sLogName, True, True)
If Err <> 0 Then 
    Err.Clear
    sLogDir = sTemp
    sLogName = sLogDir & "\" & oWShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
    sLogName = sLogName &  "_" & Left(DateTime.Value, 14)
    sLogName = sLogName & "_oLicenseClean.txt"
    Set LogStream = oFso.CreateTextFile(sLogName, True, True)
End If
On Error Goto 0

LogH2 "Microsoft Customer Support Services - Office License Reset Utility" & vbCrLf & vbCrLf & _
    	"Version: " & vbTab & SCRIPTVERSION & vbCrLf & _
    	"64 bit OS: " & vbTab & f64 & vbCrLf & _
    	"64 bit Office: " & vbTab & fO64 & vbCrLf & _
    	"Cleanup start: " & vbTab & Time 
LogH2	"OS Details: " & sOSinfo & vbCrLf

End Sub 'CreateLog

'-------------------------------------------------------------------------------
' LogH
'
' Write a header log string to the log file
'-------------------------------------------------------------------------------
Sub LogH (sLog)
LogStream.WriteLine ""
sLog = sLog & vbCrLf & String(Len(sLog), "=")
If NOT fQuiet AND fCScript Then wscript.echo ""
If NOT fQuiet AND fCScript Then wscript.echo sLog
LogStream.WriteLine sLog
End Sub 'Logh

'-------------------------------------------------------------------------------
' LogH1
'
' Write a header log string to the log file
'-------------------------------------------------------------------------------
Sub LogH1 (sLog)
LogStream.WriteLine ""
sLog = sLog & vbCrLf & String(Len(sLog), "-")
If NOT fQuiet AND fCScript Then wscript.echo ""
If NOT fQuiet AND fCScript Then wscript.echo sLog
LogStream.WriteLine sLog
End Sub 'LogH1

'-------------------------------------------------------------------------------
' LogH2
'
' Write w/o indent Cmd window and the log file
'-------------------------------------------------------------------------------
Sub LogH2 (sLog)
If NOT fQuiet AND fCScript Then wscript.echo sLog
LogStream.WriteLine ""
LogStream.WriteLine sLog
End Sub 'LogH2

'-------------------------------------------------------------------------------
' Log
'
' Echos the log string to the Cmd window and the log file
'-------------------------------------------------------------------------------
Sub Log (sLog)
If NOT fQuiet AND fCScript Then wscript.echo sLog
If sLog = "" Then
LogStream.WriteLine
Else
LogStream.WriteLine " " & Time & ": " & sLog
End If
End Sub 'Log

'-------------------------------------------------------------------------------
' LogOnly
'
' Commits the log string to the log file
'-------------------------------------------------------------------------------
Sub LogOnly (sLog)
If sLog = "" Then
LogStream.WriteLine
Else
LogStream.WriteLine " " & Time & ": " & sLog
End If
End Sub 'Log
---------------------END----------------------

This is the activation script I used:
--------------------BEGIN-------------------
@echo off
title Activate Office 365 ProPlus for FREE - MSGuides.com&cls&echo ============================================================================&echo #Project: Activating Microsoft software products for FREE without software&echo ============================================================================&echo.&echo #Supported products: Office 365 ProPlus (x86-x64)&echo.&echo.&(if exist "%ProgramFiles%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles%\Microsoft Office\Office16")&(if exist "%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles(x86)%\Microsoft Office\Office16")&(for /f %%x in ('dir /b ..\root\Licenses16\proplusvl_kms.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul)&(for /f %%x in ('dir /b ..\root\Licenses16\proplusvl_mak.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul)&echo.&echo ============================================================================&echo Activating your Office...&cscript //nologo slmgr.vbs /ckms >nul&cscript //nologo ospp.vbs /setprt:1688 >nul&cscript //nologo ospp.vbs /unpkey:WFG99 >nul&cscript //nologo ospp.vbs /unpkeyRTFM >nul&cscript //nologo ospp.vbs /unpkey:BTDRB >nul&cscript //nologo ospp.vbs /inpkey:XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99 >nul&set i=1
:server
if %i%==1 set KMS_Sev=kms7.MSGuides.com
if %i%==2 set KMS_Sev=kms8.MSGuides.com
if %i%==3 set KMS_Sev=kms9.MSGuides.com
if %i%==4 goto notsupported
cscript //nologo ospp.vbs /sethst:%KMS_Sev% >nul&echo ============================================================================&echo.&echo.
cscript //nologo ospp.vbs /act | find /i "successful" && (echo.&echo ============================================================================&echo.&echo #My official blog: MSGuides.com&echo.&echo #How it works: bit.ly/kms-server&echo.&echo #Please feel free to contact me at msguides.com@gmail.com if you have any questions or concerns.&echo.&echo #Please consider supporting this project: donate.msguides.com&echo #Your support is helping me keep my servers running everyday!&echo.&echo ============================================================================&choice /n /c YN /m "Would you like to visit my blog [Y,N]?" & if errorlevel 2 exit) || (echo The connection to my KMS server failed! Trying to connect to another one... & echo Please wait... & echo. & echo. & set /a i+=1 & goto server)
explorer "http://MSGuides.com"&goto halt
:notsupported
echo.&echo ============================================================================&echo Sorry! Your version is not supported.&echo Please try installing the latest version here: bit.ly/odt2k16
:halt
pause >nul
---------------------END-------------------------

TLDR: Office 365 changes to Office 2016 when activated, how do I fix it?

Thank you for your time.

EDIT: How do I format text as code
EDIT 2: This forum won't let me upload my .cmd and .vbs script, is that intentional

KWong

null
Office 365 without any update or upgrade, pay monthly or yearly customer, no one interest to use it. Can’t update or upgrade , better install stand alone Office 2016 instead.

Office 365 by default is automatic update and upgrade. That is the reason whey you install Office 365 will become Office 2016 or Office 2019 (windows 10). After complete install, It shown up Office 2016 because Office 365 is in the market for very long time. The retail version of Office 365 will also upgrade to Office 2016 and Office 2019 according your Windows version. If you can use Office 365 batch file activated the Office 2016, that is Office 365 base Office 2016 can have future feature update. But if you Office 2016 batch file to activated, It will become Office 2016, won’t get any new feature update anymore.

1, Control panel, Programs and feature, Uninstall all office program.
2, Google: Office fix tool

uninstall all MS Office program left behind from your PC, restart PC and try again.

null

KWong Ok I now see the morph transition, that's the main concern finished. However it still shows as Office 2016 instead of 2019, and it uses the old UI instead of the new one. Is it possible to fix this?

Thank you for your time.

KWong

null

If your PC is Windows 10, when you install Office 365, it will automatic upgrade to Office 2019. Other Windows Version, can only upgrade to Office 2016.

null

KWong I am using Windows 10 Pro 64 bit and still get it activated as Office 2016 with the old UI. Is it possible to upgrade to the latest UI?

KWong

null

Only use batch file Office 365 to activate in the beginning, can keep on upgrade to future version and feature.

If you accidentally use batch file Office 2016 to activated, cannot upgrade to Office 2019.

null

KWong I included the script I used to activate, it does say it is for Office 365, however I am not getting the new UI. What can I do? Thank you for your time.

KWong

null
1, Control panel, Programs and feature, Uninstall all office program.
2, Google: Office fix tool
uninstall all MS Office program left behind from your PC, restart PC
3, Install
https://officecdn.microsoft.com/pr/492350f6-3a01-4f97-b9c0-c7c6ddf67d60/media/en-us/O365ProPlusRetail.img (O365ProPlus, English)

After download, Open img file, open Office folder, choose 32 bit or 64 bit setup file to install online.

After installation, should be Office 2019.

To get future Office Version, activation only success run the batch file Office 365 online with admin right.

null

KWong I have uninstalled completely and reinstalled with ODT because I only want Excel, Powerpoint, and Word. I then activated with the script I posted above, which does say it is for Office 365. It still says Office 2016 when activated on my Windows 10 Pro 64 bit device. Anything else I can do? Thank you for your time.

KWong

null

The problem should be come from ODT you use and Script you use for activation.

Use my above method, after installation, see is it Office 2019 before activation. If yes, use the below link method to activate first.
https://msguides.com/microsoft-software-products/activate-office-365-proplus-free.html

After that

Control panel, program and feature, Microsoft Office, remove what you don't want, restart PC.

KWong

null

Besides, because you only want Excel, Power Point, and Word，will it still get future upgrade Office version or new feature, God know.

For me, I will install Office 2019 Pro Plus, and keep Excel, Power Point, and Word, and uninstall the other.

When the new version Office come out, simply Uninstall the old version, and come here to get the new batch file to activated.

null

KWong I have tried to partly uninstall office, however it brings me to the control panel, which only displays the whole install, and if I want to uninstall anything I'd have to uninstall completely, which is why I used ODT to only install the apps I want in the first place. Also, I have tried the .img version, it also activates as Office 2016.

KWong I want the updates as soon as possible, which is why I used Office 365 and not the perpetual versions.

Is there anything else I can do?
Thank you for your time.

KWong

null

https://www.microsoft.com/en-us/download/details.aspx?id=49117

download Office Deployment Tool, you can choose what you like to install

Besides, because you just keep Excel, Power Point and word, I don't think Microsoft classify it is Office 365. The best option, just install office 2019 pro plus, take away any you don't want. When new version come out, just uninstall it and install the new version and run the new batch file here.

null

KWong That is exactly what I used, and I have it activated as Office 2016 instead of Office 2019, even though I'm running Windows 10 Pro. What can I do to get it to activate as Office 2019, aside from installing Office 2019 in the first place (I want the Office 365 updates, not the perpetual version updates)?

KWong

null

This question better go to Microsoft to ask. KMS Server only do with activation, nothing to do with why Modify (Only install Excel, Power point, word)Office 365 in Windows 10 only can update to Office 2016, but cannot update to Office 2019.

https://products.office.com/en-GB/compare-all-microsoft-office-products?tab=1&wt.mc_id=AID573689_QSG_152203

Above Microsoft Link show retail what is include in all version of Retail Office 365. If you want only modify Office 365, Microsoft recommend install Office Home & Student 2019.

So, in my point of view, if install modify Office 365, would not get office 2019 update, only method is install Office Home & Student 2019. Otherwise who will buy Office Home & Student 2019 if modify Office 365 can upgrade to Office 2019.

null

KWong Alright, thank you for your assistance.

RKRN3

I think @KWong didn't understand it completely. The new ribbon layout is not available even in Office 2019. It is only meant for Office 365. Also, someone at tenforums told me that O365 comes with O2016 as base even now. A real O365 still has O2016. Users on O365 will never get updated to O2019 as O365 is always the updated version with features. O2019 only gets security updates, just like Office 2016. Also, @null, I am going to try something out tomorrow regarding the new ribbon. I experienced what you did back in March. After O365 install, it will have a new ribbon layout but as soon as we activate it with any script, the layout will change back to old one. This whole mess is not MSGuides fault though, as their activation indeed gives me most of the Office 365 features which I wouldn't get by other means in any way. They are indeed doing a great job.

Sairam1235

I think you should not use batch instead use manual method
I used manual and i got new ui and morph transition.
but it degrades to Office 2016 Pro plus but i got all features of o365 including slide zoom.

Sairam1235

duplicate