中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-08-09 02:18
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [已解决] 如何将此命令行转化为 vbs 脚本? 查看 718 回复 3
楼 主 [已解决] 如何将此命令行转化为 vbs 脚本? 发表于 2008-06-23 13:58 ·  中国 广东 东莞 电信
银牌会员
★★★
积分 1,284
发帖 538
注册 2002-11-02 00:00
23年会员
UID 129
性别 男
状态 离线
Virtual Audio Cable 虚拟声卡不知各位用过没有,它支持命令行操作的,
例如:

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


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

解决方法:(摘自微软官方,原来双引号的地方改为双双引号即可)


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)



[ Last edited by chishingchan on 2008-6-24 at 12:24 AM ]
2 发表于 2008-06-23 21:52 ·  中国 广东 东莞 电信
银牌会员
★★★
积分 1,284
发帖 538
注册 2002-11-02 00:00
23年会员
UID 129
性别 男
状态 离线
顶上望高手能够解答。
3 发表于 2008-06-23 22:36 ·  中国 湖北 武汉 联通
版主
★★★★★
积分 11,386
发帖 4,938
注册 2006-07-23 17:10
20年会员
UID 59080
状态 离线
用VBS无非也是用到run方法吧?
4 解决了! 发表于 2008-06-24 00:21 ·  中国 广东 东莞 电信
银牌会员
★★★
积分 1,284
发帖 538
注册 2002-11-02 00:00
23年会员
UID 129
性别 男
状态 离线

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)
论坛跳转: