VBS模拟TASKLIST

batman

无聊之作，各位看官也就请抱着平和心看看吧，不过里面还是有不少知识内容哦：

1. 
   
2. Dim OK
   
3. On Error Resume Next
   
4. OK = WScript.Arguments.Item(0)
   
5. If Err.Number <> 0 Then Err.Clear
   
6. If OK <> "" Then
   
7.   WScript.Echo "ProcessName       PID  WorkSize  CommandLine"
   
8.   WScript.Echo String(79, "=")
   
9.   Dim objWMI, objItems, objItem, Name, ProcessID, WorkingSetSize, BWstr
   
10.   BWstr = String(20, " ")
    
11.   Set objWMI = GetObject("Winmgmts:")
    
12.   Set objItems = objWMI.ExecQuery("Select * From Win32_Process")
    
13.   For Each objItem In objItems
    
14.     If InStr(1, objItem.Name, ".exe", 1) Then
    
15.       Name = Left(objItem.Name & BWstr, 15)
    
16.       ProcessID = Right(BWstr & objItem.ProcessID, 6)
    
17.       WorkingSetSize = Right(BWstr & Int(objItem.WorkingSetSize / 1024), 8) & " k  "
    
18.       WScript.Echo Name & ProcessID & WorkingSetSize & objItem.CommandLine
    
19.     End If
    
20.   Next
    
21.   Set objWMI = Nothing
    
22.   Do : WScript.Sleep 200 : Loop
    
23.   Else
    
24.   CreateObject("Wscript.Shell").Run "cmd /cstart cscript /nologo """ & WScript.ScriptFullName & """ OK", False, False
    
25. End If

复制代码

czjt1234

没有横向滚动条，看起来比较乱