易语言利用WMI获取磁盘信息源码

WMI 是 Windows Management Instrumentation (Windows管理工具)的缩写，是内置在操作系统中核心的管理支持技术，通过它可以访问、配置、管理和监视几乎所有的 Windows 资源。通过 WMI ，用 VB 可以管理的信息包括：计算机系统、磁盘、外围设备、事件日志、文件、文件夹、文件系统、网络组件、操作系统子系统、打印机、进程、注册表设置、安全性、服务、共享、SAM 用户和组、等，下面我们列举几个：

用WMI对象列出系统所有进程:
----Instance.vbs----

Dim WMI,objs
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_Process")
For Each obj In objs
Enum1 = Enum1 + obj.Description + Chr(13) + Chr(10)
Next
msgbox Enum1

获得物理内存的容量:
-----physicalMemory.vbs-----

strComputer = "."Set wbemServices = GetObject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration")For Each wbemObject In wbemObjectSet
WScript.Echo "物理内存 (MB): " & CInt(wbemObject.TotalPhysicalMemory/1024)
Next

取得系统所有服务及运行状态
----service.vbs----

Set ServiceSet = GetObject("winmgmts:").InstancesOf("Win32_Service")
Dim s,infor
infor=""
for each s in ServiceSet
infor=infor+s.Description+" ==> "+s.State+chr(13)+chr(10)
next
msgbox infor

用WMI对象列出系统所有进程:
----Instance.vbs----

Dim WMI,objs
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_Process")
For Each obj In objs
Enum1 = Enum1 + obj.Description + Chr(13) + Chr(10)
Next
msgbox Enum1

获得物理内存的容量:
-----physicalMemory.vbs-----

strComputer = "."Set wbemServices = GetObject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration")For Each wbemObject In wbemObjectSet
WScript.Echo "物理内存 (MB): " & CInt(wbemObject.TotalPhysicalMemory/1024)
Next

取得系统所有服务及运行状态
----service.vbs----

Set ServiceSet = GetObject("winmgmts:").InstancesOf("Win32_Service")
Dim s,infor
infor=""
for each s in ServiceSet
infor=infor+s.Description+" ==> "+s.State+chr(13)+chr(10)
next
msgbox infor

CPU的序列号:
---CPUID.vbs---

Dim cpuInfo
cpuInfo = ""
set moc = GetObject("Winmgmts:").InstancesOf("Win32_Processor")
for each mo in moc
cpuInfo = CStr(mo.ProcessorId)
msgbox "CPU SerialNumber is : " & cpuInfo
next

硬盘型号:
---HDID.vbs---

Dim HDid,moc
set moc =GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
for each mo in moc
HDid = mo.Model
msgbox "硬盘型号为:" & HDid
next

网卡MAC物理地址:
---MACAddress.vbs---

Dim mc
set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
for each mo in mc
if mo.IPEnabled=true then
msgbox "网卡MAC地址是: " & mo.MacAddress
exit for
end if
next

测试你的显卡:

On Error Resume Next
Dim ye
Dim yexj00
set yexj00=GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_VideoController")
for each ye in yexj00
msgbox " 型 号: " & ye.VideoProcessor & vbCrLf & " 厂 商: " & ye.AdapterCompatibility & vbCrLf & " 名 称: " & ye.Name & vbCrLf & " 状 态: " & ye.Status & vbCrLf & " 显 存: " & (ye.AdapterRAM\1024000) & "MB" & vbCrLf & "驱 动 (dll): " & ye.InstalledDisplayDrivers & vbCrLf & "驱 动 (inf): " & ye.infFilename & vbCrLf & " 版 本: " & ye.DriverVersion
next

易语言实现

1、声明一个常量GetDiskList

Function GetDiskList()
Dim i, RetStr, wmiObjSet, obj'On Local Error Resume NextSet wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_DiskDrive ")For Each obj In wmiObjSeti = i + 1RetStr = RetStr & "序号:" & Cstr(i) & vbCrLfRetStr = RetStr & "标题:" & obj.Caption & vbCrLfRetStr = RetStr & "描述:" & obj.Description & vbCrLfRetStr = RetStr & "分区:" & obj.Partitions & vbCrLfRetStr = RetStr & "容量:" & obj.Size & vbCrLf & vbCrLfNext
GetDiskList = RetStr
End Function

2、封装

.版本 2.子程序 取硬盘列表, 文本型, 公开
.局部变量 Script, 对象
.局部变量 ret, 文本型Script.创建 (“MSScriptControl.ScriptControl”, )
Script.写属性 (“Language”, “VBScript”)
Script.数值方法 (“AddCode”, #GetDiskList)
ret ＝ Script.通用方法 (“Eval”, “GetDiskList()”).取文本 ()
返回 (ret)

根据上面的代码，我们可以灵活的取读写底层硬件信息。

您可能感兴趣的文章:

▪ 易语言应用接口支持库系统处理取硬盘信息

▪ 易语言打开关闭混音设备

▪ 511遇见易语言多线程大漠多线程-26-免注册多线程程序集模块制作方法1

▪ RtlAdjustPrivilege 提升程序自身执行权限

▪ VS函数调用导致堆栈不对称。原因可能是托管的 PInvoke 签名与非托管的目标签名不匹配

▪ 511遇见易语言多线程大漠多线程-15Api封装线程挂起恢复销毁

▪ 大漠插件大漠本人录制基础必看教程

▪ 511遇见易语言多线程大漠多线程-3线程传参数据变量地址

▪ 易语言教程位运算命令（位取反、位于、位或、位异或）

▪ 易语言APC内存注入到游戏测试

▪ LUA教程用作迭代器的协同-37

易语言利用WMI获取磁盘信息源码相关推荐

易语言利用WMI取磁盘CPU内存显卡信息源码
WMI 是 Windows Management Instrumentation (Windows管理工具)的缩写,是内置在操作系统中核心的管理支持技术,通过它可以访问.配置.管理和监视几乎所有的 W ...
易语言免登录获取QQ/昵称/头像/在线状态源码
易语言免登陆获取q资料卡的源码. 例子: 取得登录q 获取状态:在线昵称 x7st 获取本人描述等没有调用第三方接口,纯QQpost稳定,需要的可以下载查看下载地址:https://6yunp ...
易语言数据类型与c 对照,易语言利用自定义数据类型和数组. 制作键对值操作类/内存配置...
易语言利用自定义数据类型和数组. 制作键对值操作类/内存配置.版本 2 .支持库 spec .子程序 _临时子程序 .局部变量 test, classKeyValue .局部变量局_取值方法2, ...
易语言进程通信c语言,易语言进程通信模块和例程源码
易语言进程通信模块和例程源码系统结构:收到信息,收到信息,接收端_开始监听,接收端_读数据,接收端_取出数据,发送端_发送数据,取得窗口句柄,SetWindowLong,CallWindowProc2 ...
易语言lsp劫持_易语言网截插件修复源码
易语言网截插件修复源码.版本 2 .支持库 shell .支持库 eNetIntercept .子程序 _按钮1_被单击写到文件 (取特定目录 (10) + "/lsp.bat" ...
易语言linux数据库模块,易语言ADO数据库对象模块源码
下面我们对易语言ADO数据库对象模块源码文件阐述相关使用资料和易语言ADO数据库对象模块源码文件的更新信息. 易语言ADO数据库对象模块源码易语言ADO数据库对象模块源码系统结构:list,取错误 ...
超级列表框排序mysql,易语言超级列表框排序源码
易语言超级列表框排序源码.版本 2 .支持库 iext .程序集窗口程序集1 .程序集变量集_中文, 文本型, , "0" .程序集变量集_中文排序, 整数型, , &quo ...
易语言服务器取cookie,易语言内存查找取cookie源码
易语言内存查找取cookie源码系统结构:搜索,求长串数字,求uin和id,取cookie,显示进程,子程序_发送封包1,InstallApiHook,BeginHook,StopHook,Unins ...
易语言如何做post服务器,易语言服务器提交post模块源码
下面我们对易语言服务器提交post模块源码[db:版本]文件阐述相关使用资料和易语言服务器提交post模块源码[db:版本]文件的更新信息. 易语言服务器提交post模块源码易语言服务器提交post ...

易语言利用WMI获取磁盘信息源码

易语言利用WMI获取磁盘信息源码相关推荐

最新文章

热门文章