标题: [已解决] 如何将此命令行转化为 vbs 脚本？ [打印本页]
作者: chishingchan 时间: 2008-6-23 13:58 标题: [已解决] 如何将此命令行转化为 vbs 脚本？
Virtual Audio Cable 虚拟声卡不知各位用过没有，它支持命令行操作的，
例如：
现在想将以上批处理转化为用 VBS 脚本处理，请问如何编写呢？
对于我个人的难题是命令行中包含了双引号、冒号、等号、斜杠、空格，在VBS里应如何处理它？
解决方法：（摘自微软官方，原来双引号的地方改为双双引号即可）
Last edited by chishingchan on 2008-6-24 at 12:24 AM ]
例如：
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 ]
作者: chishingchan 时间: 2008-6-23 21:52
顶上望高手能够解答。
作者: lxmxn 时间: 2008-6-23 22:36
用VBS无非也是用到run方法吧？
作者: chishingchan 时间: 2008-6-24 00:21 标题: 解决了！
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)