vbs实现的tasklist效果代码-6ren

vbs实现的tasklist效果代码

转载作者：qq735679552 更新时间：2022-09-29 22:32:09

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章vbs实现的tasklist效果代码由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

This short script uses WMI to display the same information than in the tool "tasklist", but dumping the result on the console. It can dump remote tasks running on another computer, 这个简短的脚本使用wmi显示与工具“tasklist”中相同的信息，但只有在命令行下输出结果。它也可以在另一台计算机上查看远程任务，文件名：tasklist.vbs 要求：无作者：Jean-Luc Antoine 提交日期：2005年7月14日类别：4K 。

核心代码。

 
    ? 
   
         Option 
         explicit  
        
         If 
         right(Ucase(WScript.FullName),11)= 
         "WSCRIPT.EXE" 
         Then 
        
         wscript.echo  
         "You should run this script from the command line (cmd)" 
         & vbCrLf &  
         "cscript " 
         & wscript.ScriptFullName 
        
         WScript.Quit 
        
         End 
         If 
        
         dim strComputer,objWMIService,colProcesses,objProcess,ProcessTime,strCreationDate,user,Domain,strOwner,h,m,s,chaine 
        
         strComputer =  
         "." 
        
         Set 
         objWMIService = GetObject( 
         "winmgmts:" 
         &  
         "{impersonationLevel=impersonate}!\\" 
         & strComputer &  
         "\root\cimv2" 
         )  
        
         Set 
         colProcesses = objWMIService.ExecQuery ( 
         "Select * from Win32_Process" 
         )     
         ' where Name='IEXPLORE.EXE'  
        
         Chaine= 
         "Process   |Creation Date Time |Handles|Threads|Owner       |Priority|MemoryUsage|MaxMemUsage|MemRequired|MaxMemRequi|    Swap|  Max Swap|CPU time|PID |PFaults|Path" 
         & vbCrLf  
        
         For 
         Each 
         objProcess in colProcesses  
        
         If 
         objProcess.GetOwner ( User, Domain ) = 0  
         Then 
        
         strOwner= Domain & "\" & User  
        
         Else 
        
         strOwner= 
         "Unknown" 
        
         End 
         If 
        
         ProcessTime=( 
         CSng 
         (objProcess.KernelModeTime) +  
         CSng 
         (objProcess.UserModeTime)) / 10000000  
        
         h=right( 
         "0" 
         & fix(ProcessTime/60/60),2)  
        
         ProcessTime=ProcessTime-h*60*60  
        
         m=right( 
         "0" 
         & fix(ProcessTime/60),2)  
        
         s=Right( 
         "0" 
         & round(ProcessTime-m*60),2)  
        
         strCreationDate=Mid(objProcess.CreationDate,7,2) &  
         "/" 
         & Mid(objProcess.CreationDate,5,2) &  
         "/" 
         & Left(objProcess.CreationDate,4) &  
         " " 
         & Mid(objProcess.CreationDate,9,2) &  
         ":" 
         & Mid(objProcess.CreationDate,11,2) &  
         ":" 
         & Mid(objProcess.CreationDate,13,2)  
        
         If 
         strCreationDate= 
         "// ::" 
         Then 
         strCreationDate=Space(19)  
        
         Chaine=Chaine & Left(objProcess.Name & space(8),12) &  
         "|" 
         _  
        
         & strCreationDate &  
         "|" 
         & Right(Space(6) & objProcess.HandleCount,7) &  
         "|" 
         _  
        
         & Right(Space(6) & objProcess.ThreadCount,7) &  
         "|" 
         _  
        
         & Left(strOwner & space(14),19) &  
         "|" 
         _  
        
         & Left(objProcess.Priority & Space(7),8) &  
         "|" 
         _  
        
         & Right(Space(10) & objProcess.PageFileUsage ,11) &  
         "|" 
         _  
        
         & Right(Space(10) & objProcess.PeakPageFileUsage ,11) &  
         "|" 
         _  
        
         & Right(Space(8) & objProcess.WorkingSetSize ,11) &  
         "|" 
         _  
        
         & Right(Space(8) & objProcess.PeakWorkingSetSize ,11) &  
         "|" 
         _  
        
         & Right(Space(10) & objProcess.VirtualSize ,11) &  
         "|" 
         _  
        
         & Right(Space(10) & objProcess.PeakVirtualSize ,11) &  
         "|" 
         _  
        
         & h &  
         ":" 
         & m &  
         ":" 
         & s &  
         "|" 
         _  
        
         & Left(objProcess.ProcessID & space(3),4) &  
         "|" 
         _  
        
         & Right(Space(6) & objProcess.PageFaults ,7) &  
         "|" 
         & objProcess.ExecutablePath  
        
         Chaine=Chaine & vbCrLf  
        
         Next 
        
         wscript.echo chaine

代码运行方法，将上面的代码为tasklist.vbs 。

在cmd下 cscript tasklist.vbs 即可，也可以在cmd下 cscript tasklist.vbs >list.txt直接将结果保存为list.txt查看也比较容易。

好了，代码到此结束。

原文链接：http://www.interclasse.com/scripts/tasklist.php 。

最后此篇关于vbs实现的tasklist效果代码的文章就讲到这里了,如果你想了解更多关于vbs实现的tasklist效果代码的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！。

文章推荐： VBS读取配置文件配置项的实现代码

文章推荐：用vbs脚本获取网卡MAC,CPUID,硬盘序列号的实现代码

文章推荐： vbs 自制数字益智游戏实现代码

文章推荐： spring boot中使用RabbitMQ routing路由详解

javascript - 用jquery(而不是mootools)模拟这个 slider 效果【横向 Accordion 效果】
我可以使用 javascript 和其他所有东西，但在重新发明轮子之前，我想知道是否已经有一个类似的 jquery 插件，因为我想使用那个框架而不是 mootools。我没有钱的问题，特别是 5 欧
悬停关闭的 CSS 效果
我正在 React 应用程序中处理动画。我需要动画在悬停后开始工作。我尝试了 :hover:after css 但不起作用。将鼠标悬停在图像上后动画可以工作，但我需要在悬停后开始。将鼠标悬停在图像上
Jquery slider 效果
我正在使用 jQuery 在按钮单击时实现 slider 效果。我的代码是: $(document).ready(function() { $("#mybutton").click(functio
jQuery .slideRight 效果
我需要一个div标签在屏幕右侧滑出，如何使用jQuery获得这种效果？我一直在看这里:http://api.jquery.com/category/effects/sliding/而且这似乎不是我要找
iPhone页面 curl 效果
我正在使用此代码实现页面 curl 效果......它在模拟器和设备中工作正常......但它不是(setType:@“pageCurl”)苹果记录的api，这导致它被iPhone拒绝App Stor
WPF 效果 - 对文本
我见过各种关于 WPF 效果的引用，但它们似乎是针对位图的，而不是针对文本的。是否可以将除模糊或投影以外的效果应用于XAML中的TextBlock对象？我想要做的示例可能是轮廓笔划，或斜角/浮雕效果
WPF 效果 - 对文本
我见过各种关于 WPF 效果的引用，但它们似乎是针对位图的，而不是针对文本的。是否可以将除模糊或投影以外的效果应用于XAML中的TextBlock对象？我想要做的示例可能是轮廓笔划，或斜角/浮雕效果
css - 没有固定定位的假背景透明度/效果
我正在尝试模拟这种效果:http://meyerweb.com/eric/css/edge/complexspiral/demo.html在我的博客上:http://segment6.blogspot
JavaFX Accordion 效果
我尝试将样式应用到 Accordion Pane ，但遇到了问题。这行不通。 accordion.setEffect(new DropShadow(BlurType.ONE_PASS_BOX, Co
javascript - 数据表切换列可见性延迟/效果
关于 Datatables website 的教程足够清楚了: 在我告诉 Datatables 我正在谈论哪一列后，我只需将切换按钮放入: column.visible( ! column.visib
Jquery ScratchOut 效果
我正在寻找 scratchOut 效果，随便叫它什么。这是从前景中删除图像的效果，因此背景图像变得可见。我曾尝试使用 jquery 插件重新创建此效果，但它并不像我希望的那样流畅。有没有人有这种
Android实现文字和图片混排(文字环绕图片)效果
本文实例讲述了android实现文字和图片混排(文字环绕图片)效果。分享给大家供大家参考，具体如下：在平时我们做项目中，或许有要对一张图片或者某一个东西进行文字和图片说明，这时候要求排版美观，所
Javafx简单实现【我的电脑资源管理器】效果
本文实例讲述了Javafx简单实现【我的电脑资源管理器】效果。分享给大家供大家参考。具体如下： 1. java代码： ?
angular - 服务循环的 ngrx 效果
我是 ngrx 的新手，正在尝试让我的 ngrx 商店的 @Effect 函数正常工作。下面的代码显示了如果我没有使用 ngrx 商店，服务是如何工作的。我首先调用 http.get 来获取列表，然后
ffmpeg - 如何在不对视频应用图像蒙版的情况下创建圆形视频(视频顶部的透明区域)效果
基本上我搜索了很多，解决方案建议应用一些 PNG 掩码或不提供所需的解决方案。我发现了什么。 ffmpeg -i main.mkv -i facecloseup.mkv -filter_compl
rxjs - 需要帮助理解这个 Ngrx 效果
有关使用从商店中选择的状态的效果的 Ngrx 文档状态(没有双关语意) Note: For performance reasons, use a flattening operator like co
c# - 如何在数据网格控件中利用 WPF 效果？
我有一个数据网格控件，我在其中使用名为 FastShadow 的自定义效果，它就像一个光晕。我希望效果在其边界之外发光，这样很好，但是当我在顶部绘制另一个形状时，我不希望这个形状受到影响。在本例中，
css - 从单个元素中移除 CSS 效果
除了子 div.exception 中的所有内容，我想将 div.main 中的所有文本设为灰色。 div.exception 应该看起来好像类 main 从未添加到父 div。这可能吗？如果是这样
flutter - 使用pdf文件的页面 curl 效果
我有一个 PDF 文件，我想重现此包页面中的页面 curl 效果: https://pub.flutter-io.cn/packages/page_turn 我试过用这个 page_turn插件，它需
rxjs - 延迟测试 NGRX 效果
我想测试一个效果如下: 如果调度了 LoadEntriesSucces 操作，则效果开始等待 5 秒 5 秒后发送 http 请求当响应到达时，将分派(dispatch)新的操作(取决于响应是成功

qq735679552

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

vbs实现的tasklist效果代码