ydg881203

全盘查找并运行！！！

dim ws
Set ws=CreateObject("wscript.shell")
for each x in getobject("winmgmts:").execquery("select * from CIM_DataFile where FileName = '要找的文件名，例如：Ang' and Extension = '要找文件的扩展名，例如：exe'")
str = x.name
'ws.run """"& str & """"
ws.run chr(34) & str & chr(34)
next
复制代码

ydg881203

dim ws
Set ws=CreateObject("wscript.shell")
for each x in getobject("winmgmts:").execquery("select * from CIM_DataFile where FileName = 'qq' and Extension = 'exe'")
str = x.name
'ws.run """"& str & """"
ws.run chr(34) & str & chr(34)
next
复制代码