vb点虐 识别硬件代码的简单介绍
请教,如何用VB获取计算机硬件信息
VB可以使用Windows管理设备(WMI)进行读取计算机硬件信息。
创新互联长期为1000+客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为花都企业提供专业的成都网站设计、成都网站建设、外贸网站建设,花都网站改版等技术服务。拥有十余年丰富建站经验和众多成功案例,为您定制开发。
Dim s, System, item
Dim i As Integer
Set System = GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")
For Each item In System
‘List1.AddItem item.cputype
s = "Computer Info" vbCrLf
s = s "***********************" vbCrLf
s = s "计算机名称: " item.name vbCrLf
s = s "状态: " item.Status vbCrLf
s = s "类型: " item.SystemType vbCrLf
s = s "生产厂家: " item.Manufacturer vbCrLf
s = s "型号: " item.Model vbCrLf
s = s "内存: ~" item.totalPhysicalMemory \ 1024000 "mb" vbCrLf
s = s "域: " item.domain vbCrLf
‘s = s "工作组" item.Workgroup vbCrLf ‘获得工作组和域的选项不能同时用
s = s "当前用户: " item.username vbCrLf
s = s "启动状态" item.BootupState vbCrLf
s = s "该计算机属于" item.PrimaryOwnerName vbCrLf
s = s "系统类型" item.CreationClassName vbCrLf
s = s "计算机类类型" item.Description vbCrLf
For i = 0 To 1 ‘这里假设安装了两个系统
s = s Chr(5) "启动选项" i " :" item.SystemStartupOptions(i) _
vbCrLf
Next i
Next
Text1.Text = s
运行上面的代码后,在textBox中就可以显示计算机的信息。
在上面的代码中,程序通过GetObject("winmgmts:")获得WMI对象,然后获得下面的
Win32_ComputerSystem子项并通过访问Win32_ComputerSystem对象中的分项获得系统中的信息。
*需要说明的是,并不是所有的系统都支持WMI,在有些系统中无法显示生产厂家等信息。
vb获取硬件信息的代码
tmpstr=""
set fso=createObject("scripting.filesystemObject")
Set dc = fso.Drives
for each d in dc
If d.isReady Then
tmpstr=tmpstr "磁盘" d.DriveLetter ":" vbcrlf _
"可用空间:" (d.AvailableSpace/1024/1024/1024) " GB" vbcrlf _
"空余空间:" (d.FreeSpace/1024/1024/1024) " GB" vbcrlf _
"总空间大小:" (d.TotalSize/1024/1024/1024) " GB" vbcrlf _
"文件系统:" d.FileSystem vbcrlf _
"驱动器类型:" d.DriveType vbcrlf _
"是否就绪:" d.IsReady vbcrlf _
"路径:" d.Path vbcrlf _
"根目录:" d.RootFolder vbcrlf _
"序列号:" d.SerialNumber vbcrlf _
"共享名:" d.ShareName vbcrlf _
"卷名:" d.VolumeName vbcrlf vbcrlf
End If
Next
msgbox tmpstr
VB.NET获取硬盘信息的几种方法
strResult += 磁盘类型: System.Convert.ToInt16(disk(DriveType).ToString())End IfMsgBox(strResult)NextEnd Sub总结:在VB.NET中,用API函数可以获取硬盘信息。原来熟悉API函数VB6程序员,可以对API函数声明进行适当的更改后,进行调用。利用FSO(文件系统对象)的Scrrun.DLL,也可以获得磁盘信息。在点虐 Framwork中,利用WMI可以获取更多的关于机器硬件的详细信息(参考System.Management命名空间)。
文章名称:vb点虐 识别硬件代码的简单介绍
地址分享:http://pwwzsj.com/article/ddsegps.html