[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12
返回列表 发帖
ShowCode

Rank: 8Rank: 8

帖子
518 
积分
1072 
技术
81  
捐助
298  
注册时间
2017-3-17 
16楼 跳转到 »
发表于 2017-4-3 17:01 | 只看该作者
回复 15# 渣白


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

TOP

渣白

Rank: 1

帖子
60 
积分
23 
技术
1  
捐助
0  
注册时间
2017-3-4 
17楼
发表于 2017-4-4 11:29 | 只看该作者
回复 16# ShowCode


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

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5330 
技术
684  
捐助
0  
注册时间
2014-10-19 
18楼
发表于 2017-4-4 11:48 | 只看该作者 
  1. @echo off

  2. 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"

  3. if exist "%f%" (echo;%f%) else echo;not found

  4. pause
复制代码

TOP

渣白

Rank: 1

帖子
60 
积分
23 
技术
1  
捐助
0  
注册时间
2017-3-4 
19楼
发表于 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


我加入了这些出现了这个

TOP

渣白

Rank: 1

帖子
60 
积分
23 
技术
1  
捐助
0  
注册时间
2017-3-4 
20楼
发表于 2017-4-4 14:40 | 只看该作者
本帖最后由 渣白 于 2017-4-4 14:43 编辑

回复 18# pcl_test


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

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

TOP

WHY

Rank: 6Rank: 6

帖子
1442 
积分
3193 
技术
556  
捐助
0  
注册时间
2015-7-19 
21楼
发表于 2017-4-4 18:34 | 只看该作者
http://www.bathome.net/thread-43311-1-6.html
渣白，这个帖子你怎么看？

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

TOP

12
返回列表