VBS脚本得到CPU使用率,硬盘使用率和内存使用率
2011年05月03日
CPU 使用率代码如下
On Error Resume Next Set objProc = GetObject("winmgmts:\\.\root\cimv2:win32_processor='cpu0'")Wscript.Echo "CPU 使用率: " & objProc.LoadPercentage & "%"
硬盘 使用率代码如下
Set fsoobj = CreateObject("Scripting.FileSystemObject") DriversInfo = GetDriversInfo DriversInfo = Replace(DriversInfo, "|", vbCrLf) sReturn ="硬盘信息:" & vbCrLf & DriversInfo Wscript.Echo sReturnFunction GetDriversInfo() GetDriversInfo = "" Set drvObj = fsoobj.Drives For Each D In drvObj Err.Clear If D.DriveLetter "A" Then If D.isReady Then GetDriversInfo = GetDriversInfo & "分区:" & D.DriveLetter & vbCrLf GetDriversInfo = GetDriversInfo & "可用空间:" & cSize(D.FreeSpace) & vbCrLf GetDriversInfo = GetDriversInfo & "总大小:" & cSize( D.TotalSize) & vbCrLf GetDriversInfo = GetDriversInfo & "使用率 :" & (100*((D.TotalSize-D.FreeSpace)/D.TotalSize)) &"%" & vbCrLf GetDriversInfo = GetDriversInfo & "|" Else End If Else End If NextEnd Function Function cSize(tSize) If tSize >= 1073741824 Then cSize = Int((tSize / 1073741824) * 1000) / 1000 & " GB" ElseIf tSize >= 1048576 Then cSize = Int((tSize / 1048576) * 1000) / 1000 & " MB" ElseIf tSize >= 1024 Then cSize = Int((tSize / 1024) * 1000) / 1000 & " KB" Else cSize = tSize & "B" End If End Function
内存 使用率代码如下
strComputer = "."set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")set colOS = objWMI.InstancesOf("Win32_OperatingSystem")for each objOS in colOSstrReturn = "内存总数: " & round(objOS.TotalVisibleMemorySize / 1024) & " MB" & vbCrLf &"内存可用数: " & round(objOS.FreePhysicalMemory / 1024) & " MB" & vbCrLf &"内存使用率 :" & Round(((objOS.TotalVisibleMemorySize-objOS.FreePhysicalMemory)/objOS.TotalVisibleMemorySize)*100) & "%"Wscript.Echo strReturnnext
如果想把结果保存在文本里只需要用批处理调用
echo offecho CPU信息:>info.xlscscript //Nologo cpu.vbs >> info.xlsecho.>>info.xlsecho 内存信息:>>info.txtcscript //Nologo ram.vbs >> info.txtecho.>>info.xlscscript //Nologo hard.vbs >> info.txtrem copy info.xls "%date%".xls
发表评论
-
自动生成XIP映像文件的一种方法
2012-01-20 10:02 692自动生成XIP映像文件的一种方法 2011年03月04日 ... -
自动生成 MultiTestManager 的执行文件mtm
2012-01-20 10:02 693自动生成 MultiTestManager 的执行文件mtm ... -
批处理隐藏打开IE
2012-01-20 10:02 809批处理隐藏打开IE 2010年06月25日 bat 复 ... -
自动跳转上/下一页的脚本
2012-01-20 10:02 634自动跳转上/下一页的脚本 2010年10月19日 突然觉 ... -
WIN下用exp备份保存最近N天方案
2012-01-20 10:02 737WIN下用exp备份保存最近N天方案 2010年06月03日 ... -
[黑客必备] Vbs脚本实现radmin终极后门 [工具打包]
2012-01-19 15:04 980[黑客必备] Vbs脚本实现radmin终极后门 [工具打包] ... -
VBS脚本
2012-01-19 15:03 646VBS脚本 2011年06月30日 我用VBS写的往EX ... -
xp、2003开3389+非net创建管理用户+Shift后门+自删除脚本+提权VBS 整理收集
2012-01-19 15:03 591xp、2003开3389+非net创建管理用户+Shift后门 ... -
Trojan.DL.VBS.Agent.r 脚本病毒 ASP解密
2012-01-19 15:03 565Trojan.DL.VBS.Agent.r 脚本病毒 ASP解 ... -
总体上说,是c++ builder胜于VC++,DELPHI是最好
2012-01-17 04:50 831总体上说,是c++ builder胜 ... -
Qt 学习笔记 --Qt SDK 的下载安装与配置
2012-01-17 04:50 609Qt 学习笔记 --Qt SDK 的下 ... -
我的文件17/1
2012-01-17 04:50 440我的文件17/1 2010年07月26日 Protel技 ... -
2011年计算机三级考试PC技术知识要点(32)
2012-01-17 04:50 4532011年计算机三级考试PC ... -
一个整人的vbs脚本(yzy原创)
2012-01-16 03:41 799一个整人的vbs脚本(yzy原 ... -
VBS脚本病毒刷QQ聊天屏
2012-01-16 03:41 1119VBS脚本病毒刷QQ聊天屏 2009年09月30日 su ... -
脚本操作注册表(vb.vbs)
2012-01-16 03:41 641脚本操作注册表(vb.vbs) 2009年06月05日 ... -
对比删除文件的VBS脚本
2012-01-16 03:41 540对比删除文件的VBS脚本 2011年04月02日 一段对 ... -
列出所有的WMI对象方法和属性vbs脚本
2012-01-16 03:40 1314列出所有的WMI对象方法和属性vbs脚本 2009年10月2 ...
相关推荐
运行该脚本后,每隔5秒会检测一次当前cpu和内存的使用率,并且将结果保存在当前目录下的 “Windows CPU及内存使用监测.txt” 文件里。
本文给大家分享的是VBS通过WMI获取CPU的使用率的方法,十分的简单实用,有需要的小伙伴可以参考下。
压缩率仅次于Winrar,而且速度很快) 修正了对VBS和JS文件的程序对象支持,现在可以在VBS脚本或JS脚本中使用App全局对象了 2007-6-3 VER 1.3.0.71 修正了窗体 CtrlItems 对象的 DrawControl 捕获错误...
修正了对VBS和JS文件的程序对象支持,现在可以在VBS脚本或JS脚本中使用App全局对象了 2007-6-3 VER 1.3.0.71 1.修正了窗体 CtrlItems 对象的 DrawControl 捕获错误能力,如果提供了不被支持的控件,将会结束...
修正了对VBS和JS文件的程序对象支持,现在可以在VBS脚本或JS脚本中使用App全局对象了 2007-6-3 VER 1.3.0.71 1.修正了窗体 CtrlItems 对象的 DrawControl 捕获错误能力,如果提供了不被支持的控件,将会结束...
iisapp.vbs:IIS 应用程序查询脚本 报告为特定的应用程序池提供服务且当前正在运行 w3pwp.exe 进程的进程标识符 (PID)。 语法 iisapp [a/ AppPoolName | /p AppPoolID] 参数 /a AppPoolName 指定特定应用...
自架设服务器,建议标准:CPU双核,2G内存,win2003 快速上手建议:查看帮助文档 >>> 上手试用 >>> 一个小型搜索引擎的建立,应遵循: ⑴确立主题 >>> ⑵建立并维护主关键词库 >>> ⑶搜集整理种子网址,作网站结构...
1.声明:本程序是使用ASP作为脚本语言的站长管理网站的一个不错的工具,所以加了密码保护防止别人非法登录。 但如果你使用此工具进行对别人站点进行破坏等攻击行为,那么所有的后果将与思易无关,请慎用! 2.免杀过...
本软件的代码是基于其他开放源代码软件所撰写,包括WebKit和Mozilla,目标是提升稳定性、速度和安全性,并创造出简单且有效的使用者界面。软件的名称是来自于又称作“Chrome”的网络浏览器图形使用者界面(GUI)。 ...
为了产生小巧且有效率的代码编辑器,这个在GPL许可证下的自由软体开发专案採用 win32 api 和 STL 以 C++ 程式语言撰写成,并且选用功能强大的编辑模组 Scintilla。多亏它的轻巧与执行效率,Notepad++ 可完美地取代...