批处理之家 - Powered by Discuz! Board

标题: [文本处理] 批处理如何获取ms office的安装目录/路径？ [打印本页]

作者: 渣白 时间: 2017-3-28 13:00 标题: 批处理如何获取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盘呢？用||符号连接起来吗？麻烦写下代码，谢谢

作者: Nsqs 时间: 2017-3-28 13:15

本帖最后由 Nsqs 于 2017-3-28 15:30 编辑

@echo off
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%
pause
复制代码

作者: pcl_test 时间: 2017-3-28 16:01

回复 2# Nsqs

有可能关联的是WPS

作者: Nsqs 时间: 2017-3-28 16:17

回复 3# pcl_test

我这边随便一个office的后缀都可以获取到安装路径

作者: WHY 时间: 2017-3-28 16:46

gwmi Win32_Product -Filter "Name like 'Microsoft Office Professional%'" | %{ $_.InstallLocation }
复制代码

作者: pcl_test 时间: 2017-3-28 17:00

回复 4# Nsqs

有些人会同时装有ms和wps办公软件，并把doc、xls、ppt默认打开程序关联到wps，早期还有不少人同时安装ms office 2003和2007或2010几个版本

作者: 渣白 时间: 2017-3-28 19:32 标题: office激活密钥如何用批处理命令输入

B6HMQ-R2NK8-4GBVT-JHPFR-HQW92

除了打开office外
我目前知道的只有这个
cscript "C:\Program Files\Microsoft Office\Office16\ospp.vbs" /inpkey:B6HMQ-R2NK8-4GBVT-JHPFR-HQW92
这个是在C盘的

如果我不知道在那个盘呢？我又不想去查哪个盘。。。如何解决？
给个例子，口语化难理解

作者: 老刘1号 时间: 2017-3-28 22:31

WPS+MS2010路过

作者: ShowCode 时间: 2017-3-29 14:45

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

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

作者: 渣白 时间: 2017-3-31 15:54

回复 5# WHY

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

作者: 渣白 时间: 2017-3-31 15:56

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

作者: 渣白 时间: 2017-4-1 09:56

回复 9# ShowCode

不可以
。。

作者: 渣白 时间: 2017-4-1 10:06

回复 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

作者: ShowCode 时间: 2017-4-1 10:14

回复 13# 渣白

"%p%ospp.vbs" /dstatus

作者: 渣白 时间: 2017-4-3 14:15

回复 14# ShowCode

出现了这个

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

作者: ShowCode 时间: 2017-4-3 17:01

回复 15# 渣白

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

作者: 渣白 时间: 2017-4-4 11:29

回复 16# ShowCode

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

作者: pcl_test 时间: 2017-4-4 11:48

@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
复制代码

作者: 渣白 时间: 2017-4-4 12:42

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

我加入了这些出现了这个

作者: 渣白 时间: 2017-4-4 14:40

本帖最后由渣白于 2017-4-4 14:43 编辑

回复 18# pcl_test

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

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

作者: WHY 时间: 2017-4-4 18:34

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

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

欢迎光临批处理之家 (http://www.bathome.net/)