中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 求助:帮我看下这个检测进程的脚本谢谢

dglichong
新手上路

积分 3
发帖 2
注册 2007-12-27
状态离线

『楼主』: 求助:帮我看下这个检测进程的脚本谢谢

如果进程TInstall.exe存在则执行D:\Soft\desktopli\1130\off.bat,如果进程不存在则执行D:\Soft\desktopli\1130\li.vbs,并且没有检测到Tinstall.exe就一直检测!
option Explicit
dim wmi,proc,procs,proname,flag,WshShell
Do
   proname="TInstall.exe"
set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
set procs=wmi.execquery("select * from win32_process")
flag=true
for each proc in procs
   if strcomp(proc.name,proname)=0 then
   flag=false
   exit for
   end if
next
   set wmi=nothing
   if not flag then
   Set WshShell = WScript.CreateObject("WScript.Shell")
   WshShell.Run "D:\Soft\desktopli\1130\off.bat",0,True
   Set Wsh=NoThing
   WScript.quit
end if
wscript.sleep 1000
loop

另外一个问题:随机读取ID.txt(ID.txt里全是进程名)里的一行将A.exe改名为读取到的进程名,然后执行现在这个程序!
randomize
set fso=createobject("scripting.filesystemobject")
set a=createobject("scripting.dictionary")
set file=fso.opentextfile("iD.txt")
do while file.atendofstream<>true
m=m+1
a.add m,file.readline
loop
file.close
h=int(rnd*m)
createobject("scripting.filesystemobject").opentextfile("li.txt",2,-1).write a(h)
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
WScript.Sleep(0000)
Wsh.Run "on.bat",0,True
Set Wsh=NoThing
WScript.quit

[ Last edited by dglichong on 2009-12-2 at 01:12 ]

2009-12-2 01:09

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: