VBS监控CPU的使用率(如占用率一直维持在80%超过30秒则运行某程序)-6ren

VBS监控CPU的使用率(如占用率一直维持在80%超过30秒则运行某程序)

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

26

4

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

这篇CFSDN的博客文章VBS监控CPU的使用率(如占用率一直维持在80%超过30秒则运行某程序)由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

按照楼主的要求重新修改了下，代码如下:

复制代码代码如下:

'---------------------------------------- On Error Resume Next 。

。

dim iCpuUsePercentage'记录CPU使用率 dim iSecond'记录使用率等于100所持续的时间 dim objFileStream'txt文本读写流，用于记录日志 dim objTextFileWriter'txt写对象 dim objShell'Shell'对象,用于执行指定程序 dim objFileInfo'文件信息对象，用于获取文件大小信息 dim bIsExecuteBat'是否已经运行过bat文件，下次重置0之前只执行一次批处理。

iSecond=0'初始值为0 bIsExecuteBat=False set objFileStream =CreateObject("Scripting.Filesystemobject")'创建文件系统对象 set objTextFileWriter=objFileStream.opentextfile("log.txt",8,True)'在脚本相同位置以追加方式打开日志文件，如果不存在，则创建日志文件 While True Set objProc = GetObject("winmgmts:\\.\root\cimv2:win32_processor='cpu0'")'获取第一个CPU对象 iCpuUsePercentage=objProc.LoadPercentage'获取CPU使用率 objTextFileWriter.WriteLine("【" & Now & "】CPU使用率:" & iCpuUsePercentage & "%,使用率超80%持续时间:" & CStr(iSecond)) 。

'统计累计CPU使用率达到80以上的持续次数,一旦有小于80的，次数归0 if iCpuUsePercentage>=80 then iSecond=iSecond+1 else iSecond=0 bIsExecuteBat=False'重置0之后，批处理可以再次执行 end if 。

if iSecond>=30 And bIsExecuteBat=False then objTextFileWriter.WriteLine("CPU使用率达80%持续时间超过30秒!!") '调用指定的批处理程序 set objShell=CreateObject("WScript.shell") objShell.run "c:\email.bat" bIsExecuteBat=True'标记已经执行过bat文件 end if 。

set objFileInfo=objFileStream.getfile("Log.txt") '日志文件大于2M时,重新建立日志文件 if (objFileInfo.size/1024/1024) >=2 then '先关闭文件才能操作 objTextFileWriter.close objFileStream.MoveFile "Log.txt",Replace(Replace(Replace(Now,":",""),"-","")," ","") & "BackLog.txt" '重新打开日志文件 set objTextFileWriter=objFileStream.opentextfile("log.txt",8,True) end if Wend 。

'---------------------------------------- 日志最好还是保留一下，有日志有助于发现问题。目前是2M一个，超过之后会自动重新创建一个。定时清理一下就行了。如果不需要日志的话，去掉 objTextFileWriter.WriteLine("【" & Now & "】CPU使用率:" & iCpuUsePercentage & "%,使用率超80%持续时间:" & CStr(iSecond)) 这句就行了。有问题再交流，呵呵！。

。

------------------- 代码已经修改。如果一直持续在80%以上，批处理只执行一次，一旦计数归零，批处理可以再次执行.

最后此篇关于VBS监控CPU的使用率(如占用率一直维持在80%超过30秒则运行某程序)的文章就讲到这里了,如果你想了解更多关于VBS监控CPU的使用率(如占用率一直维持在80%超过30秒则运行某程序)的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！。

26

4

0

文章推荐： java检查服务器的连通两种方法代码分享

文章推荐： IDEA内存调试插件(好用)

文章推荐： Retrofit+Rxjava下载文件进度的实现

超过 Youtube 视频上传限制
我使用这个 cmd 应用程序 https://github.com/tokland/youtube-upload 上传 50 个视频后，我收到此错误: [RequestError] Server re
超过 Docker 最大深度
尝试将 docker 容器提交到镜像时出现错误: [root@dockerregistry /]# docker commit da4180ab1536 dockerregistry:5000/myi
c - 优先规则==超过=
我只是想知道这样做会更好吗: if((fd = open(filename, O_RDWR)) == -1) { fprintf(stderr, "open [ %s ]\n", strerror(e
elasticsearch - 低磁盘水印 [??%] 超过
我在我的开发机器(单个笔记本)中使用 Elasticsearch 1.4.4。一切都设置为默认值，因为我从未更改过任何设置。当我启动它时，我通常会收到以下消息: [2015-10-27 09:38:
超过 MySQL 锁等待超时
我收到错误 Lock wait timeout exceeded;尝试重新启动事务。这是什么原因，如何解决？仅供引用:MySQL 配置文件中的 innodb_lock_wait_timeout = 1
超过 2 列的松弛 block
我对 Slack 中的 block 功能有疑问。有人设法构建 3 列而不是 2 列吗？我凭直觉尝试了以下代码，但它不起作用: { "blocks": [ {
html - 固定尺寸 DIV 超过
div 中的内容超过由 css 决定的固定大小。 #fixeddiv { position: fixed; margin: auto; max-height: 300px
android - 超过 EditText 限制时提醒用户
我想将 EditText 字段限制为 150 个字符，我可以很容易地做到这一点。但是，当用户试图超过该限制时，我还需要通过键入(即第 151 个字符)或粘贴超过 150 个字符来提醒用户。解决这个问
FFmpeg 超过 1000 帧重复且输入高度不匹配
我目前正在使用此代码并排记录两个窗口: ffmpeg -f gdigrab -framerate 30 -i title="" -f gdigrab -framerate 30 -i title=""
excel - 超过 64 个嵌套限制的复杂替换
我在几个包含长字符串的单元格上使用嵌套的 SUBSTITUE 函数，并定期更新 SUBSTITUE fx，这导致我将其复制并粘贴到所有需要它的单元格中。问题是，我的 SUBSTITUTE 列表会随着时
css - 超过 div 大小的图像
我创建了一个标题 div，如下所示:
adsense - 超过 9 个就看不到谷歌广告
Here is the demo link 您怎么看，页面中只有 8 个广告可见，但我有 14 个广告。我已阅读有关广告限制的信息 here但不明白是不是我的情况？有人可以给我确切的答案，为什么我看不
c - 超过 50 万个元素的快速排序崩溃
我的非常简单的算法 - C 中的快速排序有问题。它非常有效(随机化大约 0.1 秒并检查列表是否已排序)但是当我想要对超过 500k 的元素进行排序时它会崩溃。不幸的是，我需要对它们进行更多排序，因为
c++ - 超过 Hackerrank 的时间限制
我成功解决了一个关于 Hackerrank 的问题，它通过了所有测试用例，但我得到了一个错误，超过了时间限制。我猜如果我优化我的代码它会工作，但我想不出任何方法来使我的代码更有效率。问题是: 对大小
vim - 超过 1 个字符的环绕视觉文本
你会如何用包围下面的文字3 个反引号 ```使用 tpope 的 Vim Surround . 我所能做的就是 1 个反引号使用 S`在视觉模式下: 最佳答案这不是你问的，但这可以在没有环绕的情
elasticsearch - 超过 SwifType 速率限制
我目前有一个模拟账户。我正在尝试为我的雇主使用 SwifType 制作 POC。我们有一个非常大的数据库，每 1 小时索引一次，并创建一个 JSON 文件。我认为与 Elastic 的集成将非常容易，
c# - 超过 SMTP 限制发送电子邮件
我为一个大约有 100 到 120 名成员的小型组织维护网站。每个月，我们都会发送一封电子邮件，通知我们的成员我们将在即将举行的 session 中讨论的主题。我正在尝试使用我们的网站为我们提供一
vba - 超过 255 个字符的数组公式
这个问题已经有答案了: How to automatically input an array formula as string with more than 255 characters in l
java - 超过 FileSizeMax 时取消文件上传
我有一个在 JBoss 6.1 中运行的 JSF 应用程序，它使用内部Tomcat Servlet 容器。我已经通过apache commons文件上传实现了上传。我想防止上传过大的文件并设置了属性
mysql - 超过 PyMYSQL 锁等待超时
当我尝试在 PyMySQL 上执行查询时，出现以下错误: pymysql.err.InternalError: (1205, 'Lock wait timeout exceeded; try rest

首页

博学

6Ren·AI

商城

VBS监控CPU的使用率(如占用率一直维持在80%超过30秒则运行某程序)