SOSinfo = sOSinfo & ", " & "Country Code: " & Item.Countr圜ode SOSinfo = sOSinfo & ", " & "Codepage: " & Item.CodeSet SOSinfo = sOSinfo & ", " & "Version: " & Item.Version SOSinfo = sOSinfo & ", " & "SP " & Item.ServicePackMajorVersion SOSinfo = sOSinfo & Item.OtherTypeDescription Set ComputerItem =oWmiLocal.ExecQuery("Select * from Win32_OperatingSystem") If f64 Then sCommonProgramFilesX86 = oWShell.ExpandEnvironmentStrings("%CommonProgramFiles(x86)%") If f64 Then sProgramFilesX86 = oWShell.ExpandEnvironmentStrings("%programfiles(x86)%") 'CAUTION! -> "fForce" will kill running applications which can result in data loss! "fForce" will kill running applications which can result in data loss! 0 ' when a regular uninstall is no longer possibleĬonst COMPPERMANENT = "00000000000000000000000000000000"Ĭonst REG_ARP = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"ĭim oFso, oMsi, oReg, oWShell, oWmiLocal, oShellAppĭim ComputerItem, Item, LogStream, TmpKeyĭim arrTmpSKUs, arrDeleteFiles, arrDeleteFolders, arrMseFolders, arrVersionĭim dicKeepProd, dicKeepLis, dicApps, dicKeepFolder, dicDelRegKey, dicKeepRegĭim dicInstalledSku, dicRemoveSku, dicKeepSku, dicSrv, dicCSuite, dicCSingleĭim sErr, sTmp, sSkuRemoveList, sDefault, sWinDir, sWICacheDir, sModeĭim sAppData, sTemp, sScrubDir, sProgramFiles, sProgramFilesX86, sCommonProgramFilesĭim sAllusersProfile, sOSinfo, sOSVersion, sCommonProgramFilesX86, sProfilesDirectoryĭim sProgramData, sLocalAppData, sOInstallRootĭim fRemoveCSuites : fRemoveCSuites = Falseĭim fRemoveCSingle : fRemoveCSingle = Falseĭim fKeepUser : fKeepUser = True 'Default to keep per user settingsĭim fSkipSD : fSkipSD = False 'Default to not Skip the Shortcut Detectionĭim fTryReconcile : fTryReconcile = False ' Script to remove (scrub) Office 2013 MSI products ' Copyright (c) 2011, 2012 Microsoft Corporation ' Author: Microsoft Customer Support Services It is exactly intact as the way that it was given to me by Microsoft. NOTE: I make no promises and am not liable for any problems caused by using this script.
SLUI.EXE 0X2A 0XC004D302 ERROR CODE
SLUI.EXE 0X2A 0XC004D302 ERROR WINDOWS
In a Windows environment, trying to rearm Office 2013 gets this error: