On Error Resume Next
do
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'qq.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
loop作者: Kinglion 时间: 2007-2-22 05:36 标题: 运行批处理不显示DOS窗口的VBS
DIM objShell
set objShell=wscript.createObject("wscript.shell")
iReturn=objShell.Run("cmd.exe /C d:\1.bat", 0, TRUE)
关于用命令行方式以指定QQ号和密码启动QQ的问题,具体需要 我整理一下详细说明再回复。作者: anqing 时间: 2007-2-22 06:30 dim ws
Set ws=CreateObject("wscript.shell")
for each x in getobject("winmgmts:").execquery("select * from CIM_DataFile where FileName = 'qq' and Extension = 'exe'")