#31897 - 2002-11-06 02:38 PM
Changing Microsoft office user info
|
mulscully
Fresh Scripter
Registered: 2002-10-04
Posts: 10
|
I work at a school and we want to tie the students word documents to them to help prevent cheating. I found a reg hack that allows you to change the reg owner, but when I do it it is cumbersome and office asks for user name and initials again. Does anyone have any ideas on turning this hack into a kix script? Or writing directly to the userinfo in the registry so as to not get the box asking for name and initials. I would like to automatically change that everytime a student logs on.I have included the hack below. its from www.winguides,com
http://www.winguides.com/registry/display.php/460/
Change the Registered Owner in Microsoft Office (All Versions) Popular
Category: Home > Software > Microsoft Office
With previous versions of Microsoft Office it was necessary to re-install Office to change the registered company as shown on the splash screen and in the About dialog box. With Office 2000 and XP it can be changed in the registry.
Open your registry and find the key below for your version.
Office 2000
[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ Uninstall\{00000409-78E1-11D2-B60F-006097C998E7}]
Office XP
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ Uninstall\{90280409-6000-11D3-8CFE-0050048383C9}]
Change the value of "RegCompany" and "RegOwner" to the required registered company and user names.
Then find the following registry key for your Office version.
Office 2000
[HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common]
Office XP
[HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Common]
And rename the sub-key called "UserInfo" to "OldUserInfo".
Exit your registry, close all the Office programs and restart one. The registered company should now be changed on both the splash screen and in the About dialog box.
|
|
Top
|
|
|
|
|
#31898 - 2002-11-06 02:41 PM
Re: Changing Microsoft office user info
|
Radimus
Moderator
Registered: 2000-01-06
Posts: 5187
Loc: Tampa, FL
|
if existkey() with writevalue() would do it
|
|
Top
|
|
|
|
|
#31900 - 2002-11-07 12:51 AM
Re: Changing Microsoft office user info
|
mulscully
Fresh Scripter
Registered: 2002-10-04
Posts: 10
|
Thanks, I had already done all that.. Just figured it would be nice to automatically tie the author property to the students.. It really isn't that important though..
Thanks
|
|
Top
|
|
|
|
|
#31902 - 2002-11-14 06:11 PM
Re: Changing Microsoft office user info
|
Anonymous
Anonymous
Unregistered
|
Is this what your looking for? Works for all versions of Office. Changes the MS Office user information to match the current logged in user. It doesn't not change the Register Owner information but any documents which are created on a system which ran this chunk of code should have the correct Owner information.
code:
;;;;;;;;;;;;
; MS Office User renaming
;;;;;;;;;;;;
$Name = @FULLNAME
$InitialRegKey = ""
$NameRegKey = ""
IF $Name = ""
$Name = @UserID
ENDIF
DO
$NameCHR = ASC(SUBSTR($Name,1,1))
$NameHEX = DecToHex($NameCHR)
IF ($NameCHR >64) AND ($NameCHR < 91) AND (LEN($InitialRegKey) < 12)
$InitialRegKey = $InitialRegKey + $NameHEX + "00"
ENDIF
$NameRegKey = $NameRegKey + $NameHEX + "00"
$Name = SUBSTR($Name,2,LEN($Name))
UNTIL LEN($Name) = 0
$NameRegKey = $NameRegKey + "0000"
$InitialRegKey = $InitialRegKey + "0000"
FOR $MSOVER = 8 TO 10
$RegMod = WriteValue("HKCU\Software\Microsoft\Office\$MSOVER.0\Common\UserInfo","UserName",$NameRegKey,"REG_BINARY")
$RegMod = WriteValue("HKCU\Software\Microsoft\Office\$MSOVER.0\Common\UserInfo","UserInitials",$InitialRegKey,"REG_BINARY")
NEXT
|
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
0 registered
and 2220 anonymous users online.
|
|
|
