Set
fsoobj = CreateObject("Scripting.FileSystemObject"
)
DriversInfo = GetDriversInfo
DriversInfo = Replace(DriversInfo, "|"
, vbCrLf)
sReturn ="硬盘信息:"
& vbCrLf & DriversInfo
Wscript.Echo sReturn
Function
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
Next
End
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
相关推荐
运行该脚本后,每隔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++ 可完美地取代...