Недавно мне позвонил один из пользователей и сказал, что ее презентация PowerPoint (Office 2007) была заблокирована и редактировалась другим (она работала удаленно с сервера Citrix), но странно то, что пользователь, который якобы редактировал файл был далеко от ее стола с выключенным компьютером, никогда даже не слышал об этой презентации PowerPoint, не говоря уже о редактировании. Как это вообще возможно?
Презентация PowerPoint была на общем диске, люди блокируют свои ПК, когда уходят со своих рабочих столов, пароли встречаются нечасто и меняют каждые 90 дней.
Что могло быть причиной этого?
Информация о том, кто использует документ, берется из настроек регистрации Office. Я не могу с уверенностью сказать, что это ваша проблема, просто я видел приложения Office с недействительными во многих местах с недействительной информацией. Держу пари, что кто-то другой редактировал документ, но только что у него неправильное имя / инициалы в Office.
В своей сети я решил эту проблему, создав сценарий входа в систему, который сбрасывает имя пользователя Office во время входа в систему. Это проверено для Office 2010, имя пользователя / инициалы могут быть где-то в реестре для 2007 года. Однако должна применяться та же идея.
Option Explicit
Dim WindowsDomain
WindowsDomain = "example.org"
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim WshNetwork
Set WshNetwork = CreateObject("WScript.Network")
Dim User
Set User = GetObject("WinNT://" & WindowsDomain & "/" & WshNetwork.UserName & ",user")
Dim SplitName
SplitName = Split(User.Fullname, " ", 3)
Dim Initials, NamePart
Initials = ""
For Each NamePart in SplitName
Initials = Initials & Left(NamePart,1)
Next
Initials = Left(Initials,3)
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\Common\UserInfo\UserInitials", Initials, "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\Common\UserInfo\UserName", User.Fullname, "REG_SZ"