麻烦宝马BOY来看看这VBS!~ - 中国DOS联盟论坛

以下这段代码是用来监视系统IE进程,防止病毒假冒,用路径的方式来判断,但我需要把以下系统进程都按路径来判断,如何写成完整的?麻烦帮忙写出来,谢谢!~

Dim strComputer, strPath, strExePath
Dim objWMI, objFSO
Dim colProcesses
Dim objProcess, objFile
Set objFSO = CreateObject( "Scripting.FileSystemObject" )
strComputer = "."
nCount = 0
strPath = CreateObject("WScript.Shell").ExpandEnvironmentStrings _
( "%ProgramFiles%\Internet Explorer\iexplore.exe" )
Set objFile = objFSO.GetFile( strPath )
strPath = objFile.ShortPath
Set objFile = Nothing
Set objWMI = GetObject( "winmgmts:{impersonationLevel=impersonate}\\" & _
strComputer & "\root\cimv2" )
Set colProcesses = objWMI.ExecQuery( "SELECT * FROM Win32_Process" & _
" WHERE Name=''iexplore.exe''" )
For Each objProcess In colProcesses
Set objFile = objFSO.GetFile( objProcess.ExecutablePath )
strExePath = objFile.ShortPath
Set objFile = Nothing
If StrComp(strExePath, strPath, 1) Then
objProcess.Terminate
Else
End If
Next

C:\WINDOWS\System32\smss.exe
C:\WINDOWS\system32\csrss.exe
C:\WINDOWS\system32\winlogon.exe
C:\WINDOWS\system32\services.exe
C:\WINDOWS\system32\lsass.exe
C:\WINDOWS\system32\svchost.exe
C:\WINDOWS\Explorer.EXE
C:\WINDOWS\System32\alg.exe
C:\WINDOWS\System32\ctfmon.exe
这是需要监视的进程

另外需要写个VBS专门杀掉除以上判断为路径正确的进程,以外的所有进程,希望有人帮忙写出来!~谢谢了先!~


Dim WshSHell,FSO
Set WshSHell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
ExePath="C:\WINDOWS\System32\smss.exe/C:\WINDOWS\system32\csrss.exe/C:\WINDOWS\system32\winlogon.exe/C:\WINDOWS\system32\services.exe/e:\test.EXE"
ExePathArr=split(ExePath,"/")
FOR each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
For i=1 To UBound(ExePathArr)
ExeNameArr=split(ExePathArr(i),"\")
if LCase(ps.name)=LCase(ExeNameArr(UBound(ExeNameArr))) and LCase(ps.executablepath)<>LCase(ExePathArr(i)) then
WshSHell.Run ("ntsd -c q -p "&ps.handle),vbHide
WScript.Sleep 1000
FSO.DeleteFile ps.executablepath
end if 
Next
NEXT
Set WshSHell = Nothing
Set FSO = Nothing
WScript.Quit(0)

在ExePath中添加需要监视的进程全路径，用"/"符号分隔。

另外没看明白你是想只删除假冒的名称(同名不同路径的)，还是要杀除指定安全进程(ExePath)之外的所有进程，如果是后者自己改一下条件语句。

在网吧呢，限制了权限而没能测试.......至少可以当个思路

[ Last edited by baomaboy on 2007-12-9 at 01:06 AM ]

谢谢宝马兄了!~

用 wmic ping ntsd 来写个p也可以做到的

那么,麻烦楼上的朋友,帮忙写出来吧!~本人水平有限,VBS不是很懂,P处理当然最好了.


::监视系统进程,防止病毒假冒,用路径的方式来判断
@echo off&endlocal&setlocal ENABLEDELAYEDEXPANSION
:loop
set "exePath=C:\WINDOWS\System32\smss.exe;C:\WINDOWS\system32\csrss.exe;C:\WINDOWS\system32\winlogon.exe;C:\WINDOWS\system32\services.exe;e:\test.exe"
for %%? in (%exepath%) do (
   set "str=%%?"
   wmic process where "name='%%~nx?' and ExecutablePath<>'!str:\=\\!'" CALL Terminate
                          )
ping -n 20 127.1 >nul 2>nul
goto :loop

[ Last edited by vkill on 2007-12-10 at 09:20 PM ]

感谢了,楼上的朋友,有啥好的P教程可否介绍点?
我是看不大懂你写的代码啊....
我只会写简单的一点东西,最好能互相交流下,我QQ:422547345,希望能不吝啬赐教!~

第1楼　luckboy45	发表于 2007-12-08 17:33
中级用户　发帖 212　积分 487
麻烦宝马BOY来看看这VBS!~ 以下这段代码是用来监视系统IE进程,防止病毒假冒,用路径的方式来判断,但我需要把以下系统进程都按路径来判断,如何写成完整的?麻烦帮忙写出来,谢谢!~ Dim strComputer, strPath, strExePath Dim objWMI, objFSO Dim colProcesses Dim objProcess, objFile Set objFSO = CreateObject( "Scripting.FileSystemObject" ) strComputer = "." nCount = 0 strPath = CreateObject("WScript.Shell").ExpandEnvironmentStrings _ ( "%ProgramFiles%\Internet Explorer\iexplore.exe" ) Set objFile = objFSO.GetFile( strPath ) strPath = objFile.ShortPath Set objFile = Nothing Set objWMI = GetObject( "winmgmts:{impersonationLevel=impersonate}\\" & _ strComputer & "\root\cimv2" ) Set colProcesses = objWMI.ExecQuery( "SELECT * FROM Win32_Process" & _ " WHERE Name=''iexplore.exe''" ) For Each objProcess In colProcesses Set objFile = objFSO.GetFile( objProcess.ExecutablePath ) strExePath = objFile.ShortPath Set objFile = Nothing If StrComp(strExePath, strPath, 1) Then objProcess.Terminate Else End If Next C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\csrss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe C:\WINDOWS\system32\lsass.exe C:\WINDOWS\system32\svchost.exe C:\WINDOWS\Explorer.EXE C:\WINDOWS\System32\alg.exe C:\WINDOWS\System32\ctfmon.exe 这是需要监视的进程另外需要写个VBS专门杀掉除以上判断为路径正确的进程,以外的所有进程,希望有人帮忙写出来!~谢谢了先!~

第2楼　baomaboy	发表于 2007-12-08 20:50
银牌会员　发帖 554　积分 1,513
Dim WshSHell,FSO Set WshSHell = WScript.CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") ExePath="C:\WINDOWS\System32\smss.exe/C:\WINDOWS\system32\csrss.exe/C:\WINDOWS\system32\winlogon.exe/C:\WINDOWS\system32\services.exe/e:\test.EXE" ExePathArr=split(ExePath,"/") FOR each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_ For i=1 To UBound(ExePathArr) ExeNameArr=split(ExePathArr(i),"\") if LCase(ps.name)=LCase(ExeNameArr(UBound(ExeNameArr))) and LCase(ps.executablepath)<>LCase(ExePathArr(i)) then WshSHell.Run ("ntsd -c q -p "&ps.handle),vbHide WScript.Sleep 1000 FSO.DeleteFile ps.executablepath end if Next NEXT Set WshSHell = Nothing Set FSO = Nothing WScript.Quit(0) 在ExePath中添加需要监视的进程全路径，用"/"符号分隔。另外没看明白你是想只删除假冒的名称(同名不同路径的)，还是要杀除指定安全进程(ExePath)之外的所有进程，如果是后者自己改一下条件语句。在网吧呢，限制了权限而没能测试.......至少可以当个思路 [ Last edited by baomaboy on 2007-12-9 at 01:06 AM ]

第3楼　luckboy45	发表于 2007-12-09 17:17
中级用户　发帖 212　积分 487
谢谢宝马兄了!~

第4楼　vkill	发表于 2007-12-10 19:36
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
用 wmic ping ntsd 来写个p也可以做到的

第5楼　luckboy45	发表于 2007-12-10 19:41
中级用户　发帖 212　积分 487
那么,麻烦楼上的朋友,帮忙写出来吧!~本人水平有限,VBS不是很懂,P处理当然最好了.

第6楼　vkill	发表于 2007-12-10 21:05
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
::监视系统进程,防止病毒假冒,用路径的方式来判断 @echo off&endlocal&setlocal ENABLEDELAYEDEXPANSION :loop set "exePath=C:\WINDOWS\System32\smss.exe;C:\WINDOWS\system32\csrss.exe;C:\WINDOWS\system32\winlogon.exe;C:\WINDOWS\system32\services.exe;e:\test.exe" for %%? in (%exepath%) do ( set "str=%%?" wmic process where "name='%%~nx?' and ExecutablePath<>'!str:\=\\!'" CALL Terminate ) ping -n 20 127.1 >nul 2>nul goto :loop [ Last edited by vkill on 2007-12-10 at 09:20 PM ]

第7楼　luckboy45	发表于 2007-12-11 18:52
中级用户　发帖 212　积分 487
感谢了,楼上的朋友,有啥好的P教程可否介绍点? 我是看不大懂你写的代码啊.... 我只会写简单的一点东西,最好能互相交流下,我QQ:422547345,希望能不吝啬赐教!~