批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖
Dim WMI,WS,SF
Dim objs,line,file1
Set SF=CreateObject("Scripting.FileSystemObject")
Set WS = CreateObject("Wscript.Shell")
Set WMI = GetObject("WinMgmts:\\.\root\cimv2")
Set file1=SF.OpenTextFile("A.txt")
DO While file1.AtEndOfStream <> True
        line =file1.ReadLine
        Set objs = WMI.ExecQuery("Select * from Win32_Process where name='&line&'")
        if objs.count=0 then
        WS.Run(line)
        else
        end if
Loop
file1.Close
Fit Strong

TOP

试一试,不知道对不
Fit Strong

TOP

返回列表