如何将此命令行转化为 vbs 脚本？ - 中国DOS联盟论坛

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 ]

第1楼　chishingchan	发表于 2008-06-23 13:58
银牌会员　发帖 538　积分 1,284
[已解决] 如何将此命令行转化为 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里应如何处理它？解决方法：（摘自微软官方，原来双引号的地方改为双双引号即可） 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楼　chishingchan	发表于 2008-06-23 21:52
银牌会员　发帖 538　积分 1,284
顶上望高手能够解答。

第3楼　lxmxn	发表于 2008-06-23 22:36
版主　发帖 4,938　积分 11,386
用VBS无非也是用到run方法吧？

第4楼　chishingchan	发表于 2008-06-24 00:21
银牌会员　发帖 538　积分 1,284
解决了！ 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)