Take the 2-minute tour ×
Server Fault is a question and answer site for professional system and network administrators. It's 100% free, no registration required.

I recently received a phone call from one of the users saying that her PowerPoint (Office 2007) presentation was locked and under edit by another (she was working remotely off of Citrix server), but the weird part is that the user who was supposedly editing the file was away from her desk with PC shut off, never even heard of that PowerPoint presentation, let alone edit. How is it even possible?

The PowerPoint presentation was on the share drive, people lock their PC when they leave their desks, passwords are not common and forced to be changed every 90 days.

What could possibly cause this?

share|improve this question
3  
The account has been compromised and the hacker is helping you finish PowerPoints? –  JohnThePro May 10 '12 at 22:02
    
Adding nightmares of animated text and pictures –  pauska May 10 '12 at 22:06

1 Answer 1

up vote 2 down vote accepted

The information about who is using a document comes from the Office registration settings. I can't say for certain that this is your problem just that I have seen Office applications with invalid in many places with invalid information. My bet is somebody else was editing the document, but just had incorrect name/initials in Office.

On my network I resolved this by creating a login script that reset the Office username at logon time. This is tested for Office 2010, the username/initials might be somewhere in the registry for 2007. The same idea should apply though.

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"
share|improve this answer

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.