中国DOS联盟

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

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [已解决] 如何将此命令行转化为 vbs 脚本？

chishingchan
银牌会员

积分 1282
发帖 538
注册 2002-11-2
状态离线

『楼主』: [已解决] 如何将此命令行转化为 vbs 脚本？

Virtual Audio Cable 虚拟声卡不知各位用过没有，它支持命令行操作的，
例如：

CODE: [Copy to clipboard]
D:\Program Files\Virtual Audio Cable\audiorepeater.exe /Input:"Virtual Cable 1" /Output:"Realtek AC97 Audio" /SamplingRate:48000 /ChanCfg:Custom=30 /AutoStart

现在想将以上批处理转化为用 VBS 脚本处理，请问如何编写呢？
对于我个人的难题是命令行中包含了双引号、冒号、等号、斜杠、空格，在VBS里应如何处理它？

解决方法：（摘自微软官方，原来双引号的地方改为双双引号即可）

CODE: [Copy to clipboard]
[code]
Const HIDDEN_WINDOW = 12
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objStartup = objWMIService.Get("Win32_ProcessStartup")
Set objConfig = objStartup.SpawnInstance_
objConfig.ShowWindow = HIDDEN_WINDOW
Set objProcess = GetObject("winmgmts:root\cimv2:Win32_Process")
errReturn = objProcess.Create("D:\Program Files\Virtual Audio Cable\audiorepeater.exe /Input:""Virtual Cable 1"" /Output:""Realtek AC97 Audio"" /SamplingRate:48000 /ChanCfg:Custom=30 /AutoStart" , null, objConfig, intProcessID)

[/code]

[ Last edited by chishingchan on 2008-6-24 at 12:24 AM ]

2008-6-23 13:58

chishingchan
银牌会员

积分 1282
发帖 538
注册 2002-11-2
状态离线

『第 2 楼』:

顶上望高手能够解答。

2008-6-23 21:52

lxmxn
版主

积分 11386
发帖 4938
注册 2006-7-23
状态离线

『第 3 楼』:

用VBS无非也是用到run方法吧？

2008-6-23 22:36

chishingchan
银牌会员

积分 1282
发帖 538
注册 2002-11-2
状态离线

『第 4 楼』: 解决了！

CODE: [Copy to clipboard]
Const HIDDEN_WINDOW = 12
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objStartup = objWMIService.Get("Win32_ProcessStartup")
Set objConfig = objStartup.SpawnInstance_
objConfig.ShowWindow = HIDDEN_WINDOW
Set objProcess = GetObject("winmgmts:root\cimv2:Win32_Process")
errReturn = objProcess.Create("D:\Program Files\Virtual Audio Cable\audiorepeater.exe /Input:""Virtual Cable 1"" /Output:""Realtek AC97 Audio"" /SamplingRate:48000 /ChanCfg:Custom=30 /AutoStart" , null, objConfig, intProcessID)

2008-6-24 00:21

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

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

论坛跳转: