you will just have to set office type according to your environment:
Option Explicit
Dim objShell
Dim strMessage, strWelcome, strWinLogon
strWelcome = "AdminTemplatePath" ' New Key
strMessage = "\\server\templates"
strWinLogon = "HKCU\SOFTWARE\Microsoft\office\11.0\common\DRM\"
Shell")
objShell.RegWrite strWinLogon & strWelcome, 1, "REG_EXPAND_SZ"
objShell.RegWrite strWinLogon & strWelcome, strMessage, "REG_EXPAND_SZ"
Quit
No comments:
Post a Comment