中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » VBS调用CMD命令无法通过

5872169
高级用户

积分 959
发帖 474
注册 2007-10-25
状态离线

『楼主』: VBS调用CMD命令无法通过

请看下我的代码哪里错了？？
set ws=createobject("wscript.shell")
ws.run "cmd /c for /f "skip=4 tokens=1,2 delims=:" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" /v Path') do (
set RarPathL=%%a
set RarPathR=%%b)
set RarPath=%RarPathL:~-1%:%RarPathR%",0

2008-10-31 12:21

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 2 楼』:

VBS有自己的方法操作注册表，不必调用BAT

Set WshShell = WScript.CreateObject("WScript.Shell")

'写注册表

WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\Debugger", "ntsd -d", "REG_SZ"

'读注册表

WScript.Echo WshShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\Debugger")

'删注册表

WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\"

2008-10-31 12:25

5872169
高级用户

积分 959
发帖 474
注册 2007-10-25
状态离线

『第 3 楼』:

我想用VBS调用CMD命令应该怎么写：
for /f "skip=4 tokens=1,2 delims=:" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" /v Path') do (
set RarPathL=%%a
set RarPathR=%%b)
set RarPath=%RarPathL:~-1%:%RarPathR%

2008-10-31 13:27

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: