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

chishingchan
银牌会员

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

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

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里应如何处理它？

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

[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 楼』: 解决了！

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