Code: Select all
SetOfficeFriendlyName(FriendlyName) {
KeyName := "HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\Identity\Identities"
Loop, Reg, % KeyName, K
{
RegWrite, REG_SZ, % KeyName "\" A_LoopRegName, FriendlyName, % FriendlyName
}
return !ErrorLevel
}
msgbox % SetOfficeFriendlyName("#####") ? "Success" : "Failed"