实例介绍
【实例截图】
【核心代码】
'Imports System Imports System.Management Public Class computerid 'Private Shared _instance As Computer Public ComputerName As String Public CpuID As String Public DiskID As String Public IpAddress As String Public LoginUserName As String Public MacAddress As String Public SystemType As String Public TotalPhysicalMemory As String 'cpu系列号 Public Function GetCpuID() As String Try Dim cpuInfo As String = "" Dim moc As ManagementObjectCollection = New ManagementClass("Win32_Processor").GetInstances Dim mo As ManagementObject For Each mo In moc cpuInfo = mo.Properties.Item("ProcessorId").Value.ToString Next moc = Nothing Return cpuInfo CpuID = cpuInfo Catch Return "unknow" End Try End Function '硬盘系列号 Public Function GetDiskID() As String Try Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia") Dim strHardDiskID As String = "" For Each mo As ManagementObject In searcher.Get() strHardDiskID = mo.Properties("SerialNumber").Value.ToString strHardDiskID = strHardDiskID.Replace(" ", "") Exit For Next Return strHardDiskID Catch Return "unknow" End Try End Function '硬盘型号 Public Function GetDiskModel() As String Try Dim HDModel As String = "" Dim moc As ManagementObjectCollection = New ManagementClass("Win32_DiskDrive").GetInstances Dim mo As ManagementObject For Each mo In moc HDModel = mo.Properties("Model").Value.ToString Next moc = Nothing Return HDModel DiskID = HDModel Catch Return "unknow" End Try End Function '硬盘厂商 Function GetDiskModel_1() As String Try Dim HDModel As String = "" Dim mc As ManagementClass = New ManagementClass("Win32_DiskDrive") Dim moc As ManagementObjectCollection = mc.GetInstances() For Each mo As ManagementObject In moc HDModel = mo.Properties("Model").Value.ToString 'HDModel = HDModel.Replace(" ", "") Exit For Next moc = Nothing mc = Nothing Return HDModel Catch Return "unknow" End Try End Function '主板序列号 Function GetmainboardID() As String Try Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher("Select * FROM Win32_BaseBoard") Dim strmainboardID As String = "" For Each mo As ManagementObject In searcher.Get() strmainboardID = mo.Properties("SerialNumber").Value.ToString strmainboardID = strmainboardID.Replace(" ", "") Exit For Next Return strmainboardID Catch Return "unknow" End Try End Function 'ip地址 Public Function GetIPAddress() As String Try Dim st As String = "" Dim moc As ManagementObjectCollection = New ManagementClass("Win32_NetworkAdapterConfiguration").GetInstances Dim mo As ManagementObject For Each mo In moc If CBool(mo.Item("IPEnabled")) Then Dim ar As Array = DirectCast(mo.Properties.Item("IpAddress").Value, Array) st = ar.GetValue(0).ToString Exit For End If Next moc = Nothing Return st IpAddress = st Catch Return "unknow" End Try End Function 'mac地址 Public Function GetMacAddress() As String Try Dim mac As String = "" Dim moc As ManagementObjectCollection = New ManagementClass("Win32_NetworkAdapterConfiguration").GetInstances Dim mo As ManagementObject For Each mo In moc If CBool(mo.Item("IPEnabled")) Then mac = mo.Item("MacAddress").ToString Exit For End If Next moc = Nothing Return mac MacAddress = mac Catch Return "unknow" End Try End Function '系统类型 Public Function GetSystemType() As String Try Dim st As String = "" Dim moc As ManagementObjectCollection = New ManagementClass("Win32_ComputerSystem").GetInstances Dim mo As ManagementObject For Each mo In moc st = mo.Item("SystemType").ToString Next moc = Nothing Return st SystemType = st Catch Return "unknow" End Try End Function '内存容量 Public Function GetTotalPhysicalMemory() As String Try Dim st As String = "" Dim moc As ManagementObjectCollection = New ManagementClass("Win32_ComputerSystem").GetInstances Dim mo As ManagementObject For Each mo In moc st = mo.Item("TotalPhysicalMemory").ToString Next moc = Nothing Return st TotalPhysicalMemory = st Catch Return "unknow" End Try End Function '当前系统用户名 Public Function GetUserName() As String Try Dim st As String = "" Dim moc As ManagementObjectCollection = New ManagementClass("Win32_ComputerSystem").GetInstances Dim mo As ManagementObject For Each mo In moc st = mo.Item("UserName").ToString Next moc = Nothing Return st LoginUserName = st Catch Return "unknow" End Try End Function End Class
标签: 获取Disk型号 CPUId
网友评论
小贴士
感谢您为本站写下的评论,您的评论对其它用户来说具有重要的参考价值,所以请认真填写。
- 类似“顶”、“沙发”之类没有营养的文字,对勤劳贡献的楼主来说是令人沮丧的反馈信息。
- 相信您也不想看到一排文字/表情墙,所以请不要反馈意义不大的重复字符,也请尽量不要纯表情的回复。
- 提问之前请再仔细看一遍楼主的说明,或许是您遗漏了。
- 请勿到处挖坑绊人、招贴广告。既占空间让人厌烦,又没人会搭理,于人于己都无利。
关于好例子网
本站旨在为广大IT学习爱好者提供一个非营利性互相学习交流分享平台。本站所有资源都可以被免费获取学习研究。本站资源来自网友分享,对搜索内容的合法性不具有预见性、识别性、控制性,仅供学习研究,请务必在下载后24小时内给予删除,不得用于其他任何用途,否则后果自负。基于互联网的特殊性,平台无法对用户传输的作品、信息、内容的权属或合法性、安全性、合规性、真实性、科学性、完整权、有效性等进行实质审查;无论平台是否已进行审查,用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。本站所有资源不代表本站的观点或立场,基于网友分享,根据中国法律《信息网络传播权保护条例》第二十二与二十三条之规定,若资源存在侵权或相关问题请联系本站客服人员,点此联系我们。关于更多版权及免责申明参见 版权及免责申明
支持(0) 盖楼(回复)