我想试着把绿色版的office2007搞成在UAC下也能用普通权限正常运行的款式

求道者

貌似原版office是可以用普通权限启动的……

tt911

最近几年出的程序一个比一个恶心，真的很难搞成超纯净，免安装，无垃圾进程和服务的啦，还是死心吧。

9zhmke

试试加管理员的勾行不行，我15年写过方法

       很早前曾经改制过一份42M的OFFICE2007精简版，链接:http://pan.baidu.com/s/1sj9PKq5 ;  因为一直使用自编的优化程序对自己使用的系统进行优化，居然没有测试用普通用户账号登录后的效果。昨天得到微风吐蛋刚精简出来的WIN10，心急安装测试，才发现自编的优化程序无法正常运行，再使用OFFICE精简版时，居然能安装却需要权限才正常运行，必须要对快捷方式点右键选“以管理员身份运行”才可以，这怎么行呢，当下规划了一块时间来跟踪准备解决这个问题。

       之前对快捷方式进行过跟踪，知道兼容性方式仅仅是在注册表里面做了个标记，在注册表中的位置如下（经测试xp/win7/win8/win10及32/64位均相同）
[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers]
"全路径执行文件全名"="~ WINXPSP2"

       由于有了以上的经验，这次开起procmon就去记录在快捷里开启管理账号的操作，结果从注册表里却根本查不出来，太奇怪了，等我忙乎了两个多小时才醒悟过来：会不会没记在注册表里面呢？通过十六进查看，原来居然那么简单啊，管理员权限在快捷方式.lnk文件里面的十六进制偏移量15的位置，取出后加上hex(20)，写入原文件，成功！

    于是自己用VBS做了个生成带管理员权限快捷方式文件的Function如下：
Function Shortcut(Short_name,path_and_name)
    strDesktop = WshShell.SpecialFolders("AllUsersDesktop")
    set oShellLink = WshShell.CreateShortcut(strDesktop & "\_" & Short_name & ".lnk")
    oShellLink.TargetPath = path_and_name
    oShellLink.WindowStyle = 1
    oShellLink.Hotkey = ""      
    oShellLink.IconLocation = path_and_name & ",0"
    oShellLink.Description = Short_name
    oShellLink.WorkingDirectory = left(path_and_name,InStrRev(path_and_name,"\"))
    oShellLink.Arguments = ""
    oShellLink.Save
    set tmp1=createobject("adodb.stream"):tmp1.type=1:tmp1.open
    tmp1.loadfromfile strDesktop & "\_" & Short_name & ".lnk"
    line=tmp1.read:line=midb(line,1,21) & chr(int(ascb(midb(line,22,1)))+32) & midb(line,24,32766)
    if objFSO.FileExists(strDesktop & "\" & Short_name & ".lnk") then objFSO.deletefile strDesktop & "\" & Short_name & ".lnk",true
    tmp1.close:Set tmp2 = CreateObject("ADODB.Stream"):tmp2.Type=1:tmp2.Open
    With CreateObject("ADODB.Stream")
      .Type=2:.Open:.WriteText line
      .Position=2:.CopyTo tmp2:.Close
    End With
    tmp2.SaveToFile strDesktop & "\" & Short_name & ".lnk",2:tmp2.Close
    objFSO.deletefile strDesktop & "\_" & Short_name & ".lnk",true
End Function

jarryson

论坛里面的好几个版本都可以不用管理员权限启动啊。

tomggx

我把 9zhmke 的代码补充完整一下，可以在桌面创建word/excel/powerpoint快捷方式：
Function Shortcut(Short_name,path_and_name)
    Dim wshShell, objFSO
    Set wshShell = Wscript.CreateObject("Wscript.Shell")
    Set objFSO =  Wscript.CreateObject("Scripting.FileSystemObject")
    strDesktop = WshShell.SpecialFolders("AllUsersDesktop")
    set oShellLink = WshShell.CreateShortcut(strDesktop & "\_" & Short_name & ".lnk")
    oShellLink.TargetPath = path_and_name
    oShellLink.WindowStyle = 1
    oShellLink.Hotkey = ""      
    oShellLink.IconLocation = path_and_name & ",0"
    oShellLink.Description = Short_name
    oShellLink.WorkingDirectory = left(path_and_name,InStrRev(path_and_name,"\"))
    oShellLink.Arguments = ""
    oShellLink.Save
    set tmp1=createobject("adodb.stream"):tmp1.type=1:tmp1.open
    tmp1.loadfromfile strDesktop & "\_" & Short_name & ".lnk"
    line=tmp1.read:line=midb(line,1,21) & chr(int(ascb(midb(line,22,1)))+32) & midb(line,24,32766)
    if objFSO.FileExists(strDesktop & "\" & Short_name & ".lnk") then objFSO.deletefile strDesktop & "\" & Short_name & ".lnk",true
    tmp1.close:Set tmp2 = CreateObject("ADODB.Stream"):tmp2.Type=1:tmp2.Open
    With CreateObject("ADODB.Stream")
      .Type=2:.Open:.WriteText line
      .Position=2:.CopyTo tmp2:.Close
    End With
    tmp2.SaveToFile strDesktop & "\" & Short_name & ".lnk",2:tmp2.Close
    objFSO.deletefile strDesktop & "\_" & Short_name & ".lnk",true
End Function

Dim ret
ret = Shortcut("Word", "C:\Program Files (x86)\Office 2016\Office16\WINWORD.EXE")
ret = Shortcut("PowerPoint", "C:\Program Files (x86)\Office 2016\Office16\POWERPNT.EXE")
ret = Shortcut("Excel", "C:\Program Files (x86)\Office 2016\Office16\EXCEL.EXE")