[文本处理] 批处理如何获取ms office的安装目录/路径？

渣白

不确定对方的office装在什么盘，怎么查看相关信息
这是自己琢磨的部分代码。。

if exist "%ProgramFiles%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles%\Microsoft Office\Office16"
if exist "%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles(x86)%\Microsoft Office\Office16"
cscript "ospp.vbs" /dstatus
复制代码

如果在D、E、F、G盘呢？ 用||符号连接起来吗？麻烦写下代码，谢谢

WHY

http://www.bathome.net/thread-43311-1-6.html
渣白，这个帖子你怎么看？

渣白，你问了这么多个问题，你也该学会搜索了吧，版规你看过没？你的问题有“已解决”的没？

渣白

回复 18# pcl_test


    出现了错误。。弹出了一个框

这个框也没什么，怎么让他不显示

渣白

for /f "delims=" %%a in ('mshta VBScript:Execute("Set objExcel=CreateObject(""Excel.Application""):CreateObject(""Scripting.Filesystemobject"").GetStandardStream(1).Write(objExcel.Path)bjExcel.quit"^)(close^)') do set "f=%%a\ospp.vbs"
if exist "%f%" (cscript "%f%" /inpkey:4GNGT-36JVQ-CVB6C-C3PMR-2KCX2 >nul) else echo;没有找到office安装目录，按任意键退出&&pause >nul&&goto exit


我加入了这些出现了这个

pcl_test

@echo off
for /f "delims=" %%a in ('mshta VBScript:Execute("Set objExcel=CreateObject(""Excel.Application""):CreateObject(""Scripting.Filesystemobject"").GetStandardStream(1).Write(objExcel.Path):objExcel.quit"^)(close^)') do set "f=%%a\ospp.vbs"
if exist "%f%" (echo;%f%) else echo;not found
pause
复制代码

渣白

回复 16# ShowCode


    不知道啊，出现这种情况可以删除\root这一行？

ShowCode

回复 15# 渣白


    root从哪里冒出来的？你不是说%p%能获取到正确的路径吗

渣白

回复 14# ShowCode


    出现了这个

输入错误: 无法找到脚本文件“C:\Program Files\Microsoft Office\root\Office16\ospp.vbs”。

ShowCode

回复 13# 渣白


"%p%ospp.vbs" /dstatus

渣白

回复 2# Nsqs


    找到了并显示出来了。但是我想用，
for /f "tokens=2 delims==" %%1 in ('assoc .doc')do (
    for /f "tokens=2 delims==" %%2 in ('ftype %%1')do (
        for %%3 in (%%2)do (if not defined p set p=%%~dp3
        )
    )
)
echo %p%
%p% | ospp.vbs" /dstatus  ？
这样吗？。。。。好像不行

就是 C:\Program Files\Microsoft Office\Office16\ospp.vbs" /dstatus
%p% 输出 的是 C:\Program Files\Microsoft Office\Office16\
我想用这个找到的后面加个 ospp.vbs" /dstatus

渣白

回复 9# ShowCode


    不可以
。。

渣白

怎么用命令输入office安装密钥

渣白

回复 5# WHY


    'gwmi' 不是内部或外部命令

ShowCode

@echo off
powershell -c "gwmi Win32_Product -Filter """Name like 'Microsoft Office Professional%%'""" | %%{ $_.InstallLocation }"
pause
复制代码

试试这样能否获取到安装路径

老刘1号

WPS+MS2010路过