IT天空

 找回密码
 加入我们

手机号码,快捷登录

搜索

[求助] AU3运行bat无法实现功能

[复制链接]
yinbinly 发表于 2017-11-5 17:57:11 | 显示全部楼层 |阅读模式

本帖最后由 yinbinly 于 2017-11-7 17:47 编辑

.bat脚本 手动运行后正常 用run 运行后不行 工作目录 桌面 windows cmd所在目录都不行  有大神指导咋回事不

贴出脚本

  1. @echo off
  2. title ★ office2010sp2 四合一绿色精简版 ★
  3. mode con: cols=70 lines=20
  4. ver|find "5.">nul&&goto st
  5. %1 mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&&exit /b
  6. :st
  7. PUSHD %~dp0
  8. SET PATH=%PATH%;%CD%;%CD%\OSPP
  9. IF /i %PROCESSOR_ARCHITECTURE%==AMD64 (
  10.     SET ARCH=X64
  11.     SET SYSPath=%SystemRoot%\sysWOW64
  12.     SET "MSharedPATH=%CommonProgramFiles(x86)%\Microsoft Shared"
  13.     SET "NETfile=%ProgramFiles(x86)%\Microsoft.NET"
  14.     set "kms=%CommonProgramFiles(x86)%\Microsoft Shared\OfficeSoftwareProtectionPlatform"
  15. ) ELSE (
  16.     SET ARCH=X86
  17.     SET SYSPath=%SystemRoot%\system32
  18.     SET "MSharedPATH=%CommonProgramFiles%\Microsoft Shared"
  19.     SET "NETfile=%ProgramFiles%\Microsoft.NET"
  20.     set "kms=%CommonProgramFiles%\Microsoft Shared\OfficeSoftwareProtectionPlatform"
  21. )
  22. color 2f
  23. cls
  24. echo.
  25. echo                 office2010 pro sp2 Vol 四合一绿色精简版
  26. echo.
  27. echo.
  28. echo ------------------------- 2017.09.08 by xb21cn -----------------------
  29. echo.
  30. echo                       支持 windows x86/x64 全系列
  31. echo.
  32. echo.
  33. echo   正在安装,请耐心等待…………
  34. echo.
  35. copy "ospp\unist.dat" "%temp%\unist.dat" /y>nul
  36. "%~dp0ospp\fr.exe" "%temp%\unist.dat" -fic:"\Wow6432Node" -t:""
  37. regedit /s "%temp%\unist.dat"
  38. regedit /s ospp\unist.dat
  39. del /q "%temp%\unist.dat"
  40. if NOT EXIST "%MSharedPATH%\VC\msdia90.dll" (START /wait ospp\vbvc.exe /q)
  41. "%~dp0ospp\7za.exe" x -y "ospp\net.7z" -o"%NETfile%" >NUL 2>NUL
  42. "%~dp0ospp\7za.exe" x -y "ospp\netGAC.7z" -o"%Windir%\assembly" >NUL 2>NUL
  43. "%~dp0ospp\7za.exe" x -y "ospp\MShared.7z" -o"%MSharedPATH%" >nul 2>nul
  44. "%~dp0ospp\7za.exe" x -y "ospp\ShellNew.7z" -o"%Windir%" >nul 2>nul
  45. REGSVR32 /s "%MSharedPATH%\MSClientDataMgr\MSCDM.dll"
  46. REGSVR32 /s "%MSharedPATH%\Office14\MSOXEV.dll"
  47. REGSVR32 /s "%MSharedPATH%\Office14\msoshext.dll"
  48. REGSVR32 /s "%MSharedPATH%\VBA\VBA7\VBE7.dll"
  49. REGSVR32 /s "Office14\Addins\OTKLOADR.dll"
  50. REGSVR32 /s "Office14\Addins\TCSCCONV.DLL"
  51. REGSVR32 /s "Office14\ACCWIZ.dll"
  52. REGSVR32 /s "Office14\IEAWSDC.dll"
  53. REGSVR32 /s "Office14\MSOEURO.dll"
  54. REGSVR32 /s "Office14\MSOHEV.dll"
  55. REGSVR32 /s "Office14\MSOHEVI.dll"
  56. REGSVR32 /s "Office14\MSRTEDIT.dll"
  57. REGSVR32 /s "Office14\REFEDIT.dll"
  58. REGSVR32 /s "Office14\OART.dll"
  59. REGSVR32 /s "Office14\MSADDNDR.dll"
  60. COPY /y "Office14\fm20.dll" "%SYSPath%\fm20.dll" >nul 2>nul
  61. COPY /y "Office14\fm20chs.dll" "%SYSPath%\fm20chs.dll" >nul 2>nul
  62. COPY /y "Office14\VEN2232.OLB" "%SYSPath%\VEN2232.OLB" >nul 2>nul
  63. REGSVR32 /s "%SYSPath%\FM20.DLL"
  64. set route=%cd%
  65. set route=%route:\=\\%
  66. copy "Office14\office.dat" "%temp%\test.dat" /y >nul 2>nul
  67. "%~dp0ospp\fr.exe" "%temp%\test.dat" -fic:"C:\\" -t:"%SystemDrive%\\"
  68. "%~dp0ospp\fr.exe" "%temp%\test.dat" -fic:"E:\\office2010" -t:"%route%"
  69. IF /i %ARCH%==X86 (
  70.    "%~dp0ospp\fr.exe" "%temp%\test.dat" -fic:"SysWOW64" -t:"system32"
  71.    "%~dp0ospp\fr.exe" "%temp%\test.dat" -fic:"Program Files (x86)" -t:"Program Files"
  72.    "%~dp0ospp\fr.exe" "%temp%\test.dat" -fic:"\Wow6432Node" -t:""
  73. )
  74. regedit /s "%temp%\test.dat"
  75. regedit /s "office14\officeu.dat"
  76. del /q "%temp%\test.dat"
  77. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Word 2010.lnk""):b.TargetPath=""%CD%\Office14\WINWORD.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")&SET E=完成!
  78. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Excel 2010.lnk""):b.TargetPath=""%CD%\Office14\EXCEL.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")&SET E=完成!
  79. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\PowerPnt2010.lnk""):b.TargetPath=""%CD%\Office14\POWERPNT.EXE"":b.WorkingDirectory=""%~dp0"":b.Save:close")&SET E=完成!
  80. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Access2010.lnk""):b.TargetPath=""%CD%\Office14\MSACCESS.EXE"":b.WorkingDirectory=""%~dp0"":b.Save:close")&SET E=完成!
  81. set "smpo=%ProgramData%\Microsoft\Windows\Start Menu\Programs\Office 2010"
  82. ver|find "5.">nul&&set "smpo=%USERPROFILE%\「开始」菜单\程序\Office 2010"
  83. md "%smpo%"
  84. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%smpo%"" & ""\Word 2010.lnk""):b.TargetPath=""%CD%\Office14\WINWORD.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")&SET E=完成!
  85. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%smpo%"" & ""\Excel 2010.lnk""):b.TargetPath=""%CD%\Office14\EXCEL.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")&SET E=完成!
  86. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%smpo%"" & ""\PowerPnt2010.lnk""):b.TargetPath=""%CD%\Office14\POWERPNT.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")&SET E=完成!
  87. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%smpo%"" & ""\Access2010.lnk""):b.TargetPath=""%CD%\Office14\MSACCESS.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")&SET E=完成!
  88. if NOT EXIST "%APPDATA%\Microsoft\Office" md "%APPDATA%\Microsoft\Office"
  89. copy "MSO0127.acl" "%APPDATA%\Microsoft\Office\MSO0127.acl" /y >nul 2>nul
  90. if NOT EXIST "%APPDATA%\Microsoft\Document Building Blocks\2052\14" md "%APPDATA%\Microsoft\Document Building Blocks\2052\14"
  91. copy "office14\page.dotx" "%APPDATA%\Microsoft\Document Building Blocks\2052\14\Built-In Building Blocks.dotx" /y >nul 2>nul
  92. reg add "HKCU\Software\Microsoft\Office\14.0\PowerPoint\RecentFolderList" /f /v "SoundDir" /t REG_EXPAND_SZ /d "%cd%\Office14\MEDIA\\"
  93. if NOT EXIST "%windir%\fonts\cambria.ttf" "%~dp0ospp\fontinst.exe"
  94. echo [Version]>%temp%\re.inf
  95. echo Signature="$CHICAGO$">>%temp%\re.inf
  96. echo [Defaultinstall]>>%temp%\re.inf
  97. RUNDLL32.EXE SETUPAPI.DLL,InstallHinfSection DefaultInstall 128 %temp%\re.inf
  98. del /q "%temp%\re.inf"
  99. copy "ospp\ospp.dat" "%temp%\ospp.reg" /y
  100. set osppreg=%ProgramFiles:\=\\%
  101. "%~dp0ospp\fr.exe" "%temp%\ospp.reg" -fic:"C:\\Program Files" -t:"%osppreg%"
  102. regedit /s "%temp%\ospp.reg"
  103. del /f /q "%temp%\ospp.reg"
  104. IF /i %ARCH%==X64 (
  105.     "%~dp0ospp\7za.exe" x -y "ospp\OSPP_X64.7z" -o"%CommonProgramFiles%\Microsoft Shared" >nul 2>nul
  106.     "%~dp0ospp\7za.exe" x -y "ospp\OSPP_X64(X86).7z" -o"%CommonProgramFiles(x86)%\Microsoft Shared" >nul 2>nul
  107. ) ELSE (
  108.     "%~dp0ospp\7za.exe" x -y "ospp\OSPP_X86.7z" -o"%CommonProgramFiles%\Microsoft Shared" >nul 2>nul
  109. )
  110. net localgroup administrators "Network Service" /add
  111. set "ospppath=%CommonProgramFiles%\Microsoft Shared\OfficeSoftwareProtectionPlatform"
  112. set "osppdata=%AllUsersProfile%\Microsoft\OfficeSoftwareProtectionPlatform"
  113. mofcomp "%ospppath%\OSPPWMI.MOF" >nul 2>nul
  114. REGSVR32 /s "%ospppath%\OSPPWMI.dll" >nul 2>nul
  115. IF NOT EXIST "%osppdata%" (md "%osppdata%" && md "%osppdata%\Cache")
  116. copy "ospp\tokens.dat" "%osppdata%\tokens.dat" /y
  117. copy "ospp\cache.dat" "%osppdata%\Cache\cache.dat" /y
  118. sc create osppsvc start= DEMAND obj= "NT AUTHORITY\NetworkService" Binpath= "%ospppath%\OSPPSVC.exe" DisplayName= "Office Software Protection Platform" Depend= RpcSs
  119. sc Description osppsvc "微软office正版验证程序"
  120. sc sdset osppsvc "D:(A;;CCLCSWRPLO;;;NS)(A;;CCLCSWRPLO;;;IU)(A;;CCLCSWRPWPDTLOCRRC;;;SY)(A;;CCDCLCSWRPWPDTLOCRSDRCWDWO;;;BA)(A;;CCLCSWLOCRRC;;;SU)S:(AU;FA;CCDCLCSWRPWPDTLOCRSDRCWDWO;;;WD)"
  121. exit
复制代码
install.rar (2.24 KB, 下载次数: 1)



脚本肯定是运行了
应为可以看到


最近访问 头像模式 列表模式
OC3 发表于 2017-11-5 18:18:02 | 显示全部楼层

活跃 8650| 技术 46| 互助 100| 钻石 20

首先,你确认BAT是运行了还是没运行,这个很关键,没运行那可能是路径问题,运行了没生效那可能是BAT内容问题;
然后,如果是没运行的路径问题,那么和你代码内容、脚本位宽、系统位宽都有关系,例如64位重定向导致的路径偏差问题;
最后,如果是BAT内容问题,那么需要看你BAT具体是什么内容,有没有相对路径来确定。

你一不发代码内容,二不发BAT内容,三不说什么系统,怎么给你解决问题?

点评

我以前经常这样问别人 (如今自己却犯了这个错误)后生可畏 我这个问题问的的确有毛病 N旧不发帖 习惯了QQ群问答  详情 回复 发表于 2017-11-7 17:49

评分

参与人数 1活跃 +10 技术 +2 收起 理由
shc + 10 + 2 精品文章,很给力!

查看全部评分

刘阿飞 发表于 2017-11-7 16:02:10 | 显示全部楼层

活跃 622| 技术 0| 互助 0| 钻石 0

我猜你运行的环境是windows7或者更高版本的系统,不妨试试FileExisting+DirRemove组合命令试试(如果是删除操作的话),因为windows7有较高的安全方面的机制,所以不要钻牛角尖,请变通一下实现即可!希望能帮到你。

点评

已编辑了 请查看  详情 回复 发表于 2017-11-7 17:50
 楼主| yinbinly 发表于 2017-11-7 17:49:58 | 显示全部楼层

活跃 42382| 技术 22| 互助 44| 钻石 1716

OC3 发表于 2017-11-5 18:18
首先,你确认BAT是运行了还是没运行,这个很关键,没运行那可能是路径问题,运行了没生效那可能是BAT内容问 ...

我以前经常这样问别人 (如今自己却犯了这个错误)后生可畏 我这个问题问的的确有毛病 N旧不发帖 习惯了QQ群问答  
 楼主| yinbinly 发表于 2017-11-7 17:50:18 | 显示全部楼层

活跃 42382| 技术 22| 互助 44| 钻石 1716

刘阿飞 发表于 2017-11-7 16:02
我猜你运行的环境是windows7或者更高版本的系统,不妨试试FileExisting+DirRemove组合命令试试(如果是删除 ...

已编辑了 请查看
shykx 发表于 2017-11-10 17:29:26 | 显示全部楼层

活跃 91| 技术 0| 互助 0| 钻石 0


  1. #include <Process.au3>

  2. _RunDos('@echo off')
  3. _RunDos('title ★ office2010sp2 四合一绿色精简版 ★')
  4. _RunDos('mode con: cols=70 lines=20')
  5. _RunDos('ver|find "5.">nul&&goto st')
  6. _RunDos('%1 mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&&exit /b')
  7. _RunDos(':st')
  8. _RunDos('PUSHD %~dp0')
  9. _RunDos('SET PATH=%PATH%;%CD%;%CD%\OSPP')
  10. _RunDos('IF /i %PROCESSOR_ARCHITECTURE%==AMD64 (')
  11. _RunDos('    SET ARCH=X64')
  12. _RunDos('    SET SYSPath=%SystemRoot%\sysWOW64')
  13. _RunDos('    SET "MSharedPATH=%CommonProgramFiles(x86)%\Microsoft Shared"')
  14. _RunDos('    SET "NETfile=%ProgramFiles(x86)%\Microsoft.NET"')
  15. _RunDos('    set "kms=%CommonProgramFiles(x86)%\Microsoft Shared\OfficeSoftwareProtectionPlatform"')
  16. _RunDos(') ELSE (')
  17. _RunDos('    SET ARCH=X86')
  18. _RunDos('    SET SYSPath=%SystemRoot%\system32')
  19. _RunDos('    SET "MSharedPATH=%CommonProgramFiles%\Microsoft Shared"')
  20. _RunDos('    SET "NETfile=%ProgramFiles%\Microsoft.NET"')
  21. _RunDos('    set "kms=%CommonProgramFiles%\Microsoft Shared\OfficeSoftwareProtectionPlatform"')
  22. _RunDos(')')
  23. _RunDos('color 2f')
  24. _RunDos('cls')
  25. _RunDos('echo.')
  26. _RunDos('echo                 office2010 pro sp2 Vol 四合一绿色精简版')
  27. _RunDos('echo.')
  28. _RunDos('echo.')
  29. _RunDos('echo ------------------------- 2017.09.08 by xb21cn -----------------------')
  30. _RunDos('echo.')
  31. _RunDos('echo                       支持 windows x86/x64 全系列')
  32. _RunDos('echo.')
  33. _RunDos('echo.')
  34. _RunDos('echo   正在安装,请耐心等待…………')
  35. _RunDos('echo.')
  36. _RunDos('copy "ospp\unist.dat" "%temp%\unist.dat" /y>nul')
  37. _RunDos('"%~dp0ospp\fr.exe" "%temp%\unist.dat" -fic:"\Wow6432Node" -t:""')
  38. _RunDos('regedit /s "%temp%\unist.dat"')
  39. _RunDos('regedit /s ospp\unist.dat')
  40. _RunDos('del /q "%temp%\unist.dat"')
  41. _RunDos('if NOT EXIST "%MSharedPATH%\VC\msdia90.dll" (START /wait ospp\vbvc.exe /q)')
  42. _RunDos('"%~dp0ospp\7za.exe" x -y "ospp\net.7z" -o"%NETfile%" >NUL 2>NUL')
  43. _RunDos('"%~dp0ospp\7za.exe" x -y "ospp\netGAC.7z" -o"%Windir%\assembly" >NUL 2>NUL')
  44. _RunDos('"%~dp0ospp\7za.exe" x -y "ospp\MShared.7z" -o"%MSharedPATH%" >nul 2>nul')
  45. _RunDos('"%~dp0ospp\7za.exe" x -y "ospp\ShellNew.7z" -o"%Windir%" >nul 2>nul')
  46. _RunDos('REGSVR32 /s "%MSharedPATH%\MSClientDataMgr\MSCDM.dll"')
  47. _RunDos('REGSVR32 /s "%MSharedPATH%\Office14\MSOXEV.dll"')
  48. _RunDos('REGSVR32 /s "%MSharedPATH%\Office14\msoshext.dll"')
  49. _RunDos('REGSVR32 /s "%MSharedPATH%\VBA\VBA7\VBE7.dll"')
  50. _RunDos('REGSVR32 /s "Office14\Addins\OTKLOADR.dll"')
  51. _RunDos('REGSVR32 /s "Office14\Addins\TCSCCONV.DLL"')
  52. _RunDos('REGSVR32 /s "Office14\ACCWIZ.dll"')
  53. _RunDos('REGSVR32 /s "Office14\IEAWSDC.dll"')
  54. _RunDos('REGSVR32 /s "Office14\MSOEURO.dll"')
  55. _RunDos('REGSVR32 /s "Office14\MSOHEV.dll"')
  56. _RunDos('REGSVR32 /s "Office14\MSOHEVI.dll"')
  57. _RunDos('REGSVR32 /s "Office14\MSRTEDIT.dll"')
  58. _RunDos('REGSVR32 /s "Office14\REFEDIT.dll"')
  59. _RunDos('REGSVR32 /s "Office14\OART.dll"')
  60. _RunDos('REGSVR32 /s "Office14\MSADDNDR.dll"')
  61. _RunDos('COPY /y "Office14\fm20.dll" "%SYSPath%\fm20.dll" >nul 2>nul')
  62. _RunDos('COPY /y "Office14\fm20chs.dll" "%SYSPath%\fm20chs.dll" >nul 2>nul')
  63. _RunDos('COPY /y "Office14\VEN2232.OLB" "%SYSPath%\VEN2232.OLB" >nul 2>nul')
  64. _RunDos('REGSVR32 /s "%SYSPath%\FM20.DLL"')
  65. _RunDos('set route=%cd%')
  66. _RunDos('set route=%route:\=\\%')
  67. _RunDos('copy "Office14\office.dat" "%temp%\test.dat" /y >nul 2>nul')
  68. _RunDos('"%~dp0ospp\fr.exe" "%temp%\test.dat" -fic:"C:\\" -t:"%SystemDrive%\\"')
  69. _RunDos('"%~dp0ospp\fr.exe" "%temp%\test.dat" -fic:"E:\\office2010" -t:"%route%"')
  70. _RunDos('IF /i %ARCH%==X86 (')
  71. _RunDos('   "%~dp0ospp\fr.exe" "%temp%\test.dat" -fic:"SysWOW64" -t:"system32"')
  72. _RunDos('   "%~dp0ospp\fr.exe" "%temp%\test.dat" -fic:"Program Files (x86)" -t:"Program Files"')
  73. _RunDos('   "%~dp0ospp\fr.exe" "%temp%\test.dat" -fic:"\Wow6432Node" -t:""')
  74. _RunDos(')')
  75. _RunDos('regedit /s "%temp%\test.dat"')
  76. _RunDos('regedit /s "office14\officeu.dat"')
  77. _RunDos('del /q "%temp%\test.dat"')
  78. _RunDos('mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Word 2010.lnk""):b.TargetPath=""%CD%\Office14\WINWORD.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")&SET E=完成!')
  79. _RunDos('mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Excel 2010.lnk""):b.TargetPath=""%CD%\Office14\EXCEL.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")&SET E=完成!')
  80. _RunDos('mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\PowerPnt2010.lnk""):b.TargetPath=""%CD%\Office14\POWERPNT.EXE"":b.WorkingDirectory=""%~dp0"":b.Save:close")&SET E=完成!')
  81. _RunDos('mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Access2010.lnk""):b.TargetPath=""%CD%\Office14\MSACCESS.EXE"":b.WorkingDirectory=""%~dp0"":b.Save:close")&SET E=完成!')
  82. _RunDos('set "smpo=%ProgramData%\Microsoft\Windows\Start Menu\Programs\Office 2010"')
  83. _RunDos('ver|find "5.">nul&&set "smpo=%USERPROFILE%\「开始」菜单\程序\Office 2010"')
  84. _RunDos('md "%smpo%"')
  85. _RunDos('mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%smpo%"" & ""\Word 2010.lnk""):b.TargetPath=""%CD%\Office14\WINWORD.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")&SET E=完成!')
  86. _RunDos('mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%smpo%"" & ""\Excel 2010.lnk""):b.TargetPath=""%CD%\Office14\EXCEL.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")&SET E=完成!')
  87. _RunDos('mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%smpo%"" & ""\PowerPnt2010.lnk""):b.TargetPath=""%CD%\Office14\POWERPNT.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")&SET E=完成!')
  88. _RunDos('mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%smpo%"" & ""\Access2010.lnk""):b.TargetPath=""%CD%\Office14\MSACCESS.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")&SET E=完成!')
  89. _RunDos('if NOT EXIST "%APPDATA%\Microsoft\Office" md "%APPDATA%\Microsoft\Office"')
  90. _RunDos('copy "MSO0127.acl" "%APPDATA%\Microsoft\Office\MSO0127.acl" /y >nul 2>nul')
  91. _RunDos('if NOT EXIST "%APPDATA%\Microsoft\Document Building Blocks\2052\14" md "%APPDATA%\Microsoft\Document Building Blocks\2052\14"')
  92. _RunDos('copy "office14\page.dotx" "%APPDATA%\Microsoft\Document Building Blocks\2052\14\Built-In Building Blocks.dotx" /y >nul 2>nul')
  93. _RunDos('reg add "HKCU\Software\Microsoft\Office\14.0\PowerPoint\RecentFolderList" /f /v "SoundDir" /t REG_EXPAND_SZ /d "%cd%\Office14\MEDIA\\"')
  94. _RunDos('if NOT EXIST "%windir%\fonts\cambria.ttf" "%~dp0ospp\fontinst.exe"')
  95. _RunDos('echo [Version]>%temp%\re.inf')
  96. _RunDos('echo Signature="$CHICAGO$">>%temp%\re.inf')
  97. _RunDos('echo [Defaultinstall]>>%temp%\re.inf')
  98. _RunDos('RUNDLL32.EXE SETUPAPI.DLL,InstallHinfSection DefaultInstall 128 %temp%\re.inf')
  99. _RunDos('del /q "%temp%\re.inf"')
  100. _RunDos('copy "ospp\ospp.dat" "%temp%\ospp.reg" /y')
  101. _RunDos('set osppreg=%ProgramFiles:\=\\%')
  102. _RunDos('"%~dp0ospp\fr.exe" "%temp%\ospp.reg" -fic:"C:\\Program Files" -t:"%osppreg%"')
  103. _RunDos('regedit /s "%temp%\ospp.reg"')
  104. _RunDos('del /f /q "%temp%\ospp.reg"')
  105. _RunDos('IF /i %ARCH%==X64 (')
  106. _RunDos('    "%~dp0ospp\7za.exe" x -y "ospp\OSPP_X64.7z" -o"%CommonProgramFiles%\Microsoft Shared" >nul 2>nul')
  107. _RunDos('    "%~dp0ospp\7za.exe" x -y "ospp\OSPP_X64(X86).7z" -o"%CommonProgramFiles(x86)%\Microsoft Shared" >nul 2>nul')
  108. _RunDos(') ELSE (')
  109. _RunDos('    "%~dp0ospp\7za.exe" x -y "ospp\OSPP_X86.7z" -o"%CommonProgramFiles%\Microsoft Shared" >nul 2>nul')
  110. _RunDos(')')
  111. _RunDos('net localgroup administrators "Network Service" /add')
  112. _RunDos('set "ospppath=%CommonProgramFiles%\Microsoft Shared\OfficeSoftwareProtectionPlatform"')
  113. _RunDos('set "osppdata=%AllUsersProfile%\Microsoft\OfficeSoftwareProtectionPlatform"')
  114. _RunDos('mofcomp "%ospppath%\OSPPWMI.MOF" >nul 2>nul')
  115. _RunDos('REGSVR32 /s "%ospppath%\OSPPWMI.dll" >nul 2>nul')
  116. _RunDos('IF NOT EXIST "%osppdata%" (md "%osppdata%" && md "%osppdata%\Cache")')
  117. _RunDos('copy "ospp\tokens.dat" "%osppdata%\tokens.dat" /y')
  118. _RunDos('copy "ospp\cache.dat" "%osppdata%\Cache\cache.dat" /y')
  119. _RunDos('sc create osppsvc start= DEMAND obj= "NT AUTHORITY\NetworkService" Binpath= "%ospppath%\OSPPSVC.exe" DisplayName= "Office Software Protection Platform" Depend= RpcSs')
  120. _RunDos('sc Description osppsvc "微软office正版验证程序"')
  121. _RunDos('sc sdset osppsvc "D:(A;;CCLCSWRPLO;;;NS)(A;;CCLCSWRPLO;;;IU)(A;;CCLCSWRPWPDTLOCRRC;;;SY)(A;;CCDCLCSWRPWPDTLOCRSDRCWDWO;;;BA)(A;;CCLCSWLOCRRC;;;SU)S:(AU;FA;CCDCLCSWRPWPDTLOCRSDRCWDWO;;;WD)"')
  122. _RunDos('exit')

复制代码
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

yinbinly

42382

活跃

22

技术

44

互助
签到任务
最火的业界新闻
  • 首款AMD Ryzen 7桌面CPU笔记本上市!9900元
  • 华为成苹果、三星外唯一赚钱手机厂商!对比
  • 华硕发布PG27VQ电竞显示器:165Hz、RGB信仰
  • iMac Pro搭载A10芯片?我们现在应该知道什
  • 前女友用《上古卷轴5:天际》龙语写分手书
  • AMD获年度最佳科技品牌:Ryzen压Intel登顶C
  • 传三星正在生产带有可拆卸键盘的Chromebook
  • 对标傲腾 三星推出SZ985固态盘:SLC、3.2GB
  • 保留指纹 苹果新一代iPhone SE曝光 性能提
  • 三星第四代折叠式无线快充充电器EP-PG950拆
炫酷的硬件Show
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
  • 第一次DIY硬管水冷~~
  • 樱桃MX6.0 青轴 机械键盘 开箱
  • 挑战极限,10.2L小钢炮装机秀
  • 挑战S大水冷,本坛最强水冷装备首秀,及制
有趣的美图分享
  • 叛逆的封箱胶带
  • 最大的差别
  • 别急着说大话
  • 不计较
  • 看一看失败者
  • 打字慢是病没的治
  • 多么痛的运气
  • 现实和理想总是有差距
  • 好性感的男士汗杉
  • 老公过来看一看啊
关注官方微信
快速回复 返回顶部 返回列表