VB获取本机硬盘信息

vb
这里调用了系统的API接口
注意事项:1、本机没有System.Management.dll的话需要在网上下载一个。
System.Management.dll
3、代码如下:
Imports Scripting
Imports System.Management
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim disk As System.Management.ManagementBaseObject
        Dim strResult As String
        Dim diskClass = New ManagementClass("Win32_LogicalDisk")
        Dim disks As ManagementObjectCollection
        disks = diskClass.GetInstances()
        For Each disk In disks
            strResult = ""
            strResult += "设备ID:" & disk("DeviceID") & vbCrLf
            strResult += "磁盘名称:" & disk("Name") & vbCrLf
            strResult += "磁盘卷标:" & disk("VolumeName") & vbCrLf
            If disk("FileSystem") <> "" Then strResult += "文件系统:" & disk("FileSystem") & vbCrLf
            strResult += "磁盘描述:" & disk("Description") & vbCrLf
            If System.Convert.ToInt64(disk("Size")) > 0 Then
                strResult += "磁盘大小:" & Format(System.Convert.ToInt64(disk("Size").ToString()) / (1024 * 1024 * 1024), ".00") & "G" & vbCrLf
                strResult += "磁盘剩余空间:" & Format(System.Convert.ToInt64(disk("FreeSpace").ToString()) / (1024 * 1024 * 1024), ".00") & "G" & vbCrLf
                strResult += "磁盘类型:" & System.Convert.ToInt16(disk("DriveType").ToString())
            End If
            MsgBox(strResult)
        Next
    End Sub
End Class

相关推荐

  • 美政府克林顿时期含敏感信息硬盘丢失 中国日报网环球在线消息:据美国媒体报道,美国国会官员5月19日承认,美国国家档案和记录管理局丢失了一块含有海量绝密文件的硬盘,其中包括大量前克林顿政府时期的敏感信息,如前克林顿政府公职人员的社会保险号码、地址,联邦经济情报局和白宫工作流程的
  • 第二章信息的来源与获取  知识梳理 第二章信息的来源与获取知识梳理1、因特网的服务功能(1)电子邮件(E-mail):是最基本、最重要的服务功能,是最为便捷的全球通信工具之一。(2)文件传输(Ftp):通过文件传输协议可将不同计算机之间、不同操作系统之间的文件进行传递。(3)
  • 奥克兰理工大学(AUT)计算机信息科学本科直通车课程 NewZealandSchoolofEducation新西兰IT教育学院课程简介新西兰IT教育学院(NZSE)计算机信息技术(IT)行业是全世界最热门行业之一,被新西兰政府一直列为长期技能短缺行业。新西兰IT教育学院是以计算机信息技术专业为
  • C#获取电脑硬件信息(CPU ID、主板ID、硬盘ID、BIOS编 最近学习过程中,想到提取系统硬件信息做一些验证,故而对网上提到的利用.NETSystem.Management类获取硬件信息做了进一步的学习、验证。验证是分别在4台电脑,XPSP3系统中进行,特将验证过程记录于此。说明:电脑1(联想品牌电脑
  • 硬盘序列号获取1.0绿色版下载,高速下载 硬盘序列号获取1.0绿色版软件标签:硬盘序列号获取工具软件授权:绿色版更新时间:2015-02-0810:34:35软件类型:国产软件软件大小:430KB软件语言:简体中文 应用平台:/XP/Vista/win7/win8硬盘序列号获取1.
  • 计算机基本信息获取器 1.0绿色版下载,高速下载 计算机基本信息获取器1.0绿色版软件标签:计算机基本信息获取器软件授权:绿色版更新时间:2014-04-2209:04:51软件类型:国产软件软件大小:652KB软件语言:简体中文 应用平台:/XP/Vista/win7/win8计算机基本
  • VB.NET获取硬盘信息的几种方法 1、用API函数GetDiskFreeSpaceEx获取磁盘空间PrivateDeclareFunctionGetDiskFreeSpaceExLib"kernel32"Alias"GetDiskFreeSpaceExA"_(ByVallp
  • php获取计算机唯一标识信息(cpu,网卡,MAC地址)的代码 php代码获取计算机的唯一标识信息,包括cpu信息、网卡信息与MAC地址信息,有需要的朋友,可以参考下。获取CPU、网卡、MAC地址信息的代码。 分享: 喜欢 0赠金笔
  • 教学设计  信息获取的一般过程 信息获取的一般过程郭爱苓河北省文安县第一中学一、教学目标:知识目标:①要求学生理解信息获取的目的,掌握信息获取的一般过程;②定位信息需求、选择信息来源、确定信息获取方法、正确评价信息;③剖析信息获取过程的
  • 教案:有效获取信息 有效获取信息一、教学目标知识与技能:1.掌握根据信息需求获取信息的一般规律,了解信息来源的多样性特点,总结获取信息的一般过程,掌握信息获取的途径和方法;2.了解常见的几种搜索引擎的特性,尝试使用搜索引擎的高级搜索功能。过程与方法:1.利用信
  • 有效获取信息 第一节获取信息的渠道㈠教学要点:理解信息的多样性,在了解信息获取渠道的基础上,学会根据问题确定信息需求和来源,并获得信息。教学过程:引入:某所大学图书馆大门上刻着“知识的一半就是知道到哪去寻求它”。得出“如何获取信息和信息本身同等重要!”信
  • 直接从RING3获取硬盘序列号 标题直接从RING3获取硬盘序列号选择自3661512的Blog关键字RING3硬盘序列号出处'****************************************************************'原作:Bard

你的评论

就没有什么想说的吗?

最新博客

关于我们 移动版

©2017传客网    琼ICP备15003173号-2    

本站部分文章来源于互联网,版权归属于原作者。
本站所有转载文章言论不代表本站观点,如是侵犯了原作者的权利请发邮件联系站长(weishubao@126.com),我们收到后立即删除。
站内所有资源仅供学习与参考,请勿用于商业用途,否则产生的一切后果将由您自己承担!

X