大家好，又见面了，我是你们的朋友全栈君。如果您正在找激活码,请点击查看最新教程,关注关注公众号 “全栈程序员社区” 获取激活教程,可能之前旧版本教程已经失效.最新Idea2022.1教程亲测有效,一键激活。
Jetbrains全系列IDE稳定放心使用
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
get_CPU_info()
get_net_info()
get_op_info()
get_net2_info()
get_disk_info()
get_disk_2_info()
get_disp_info()
get_bois_info()
get_base_info()
get_PhysicalMemoryy_info()
End Sub
Private Sub get_CPU_info()
Dim info(40) As String
Dim name(40) As String
name(0) = “DeviceID”
name(1) = “ProcessorID”
name(2) = “Manufacturer”
name(3) = “Name”
name(4) = “Description”
name(5) = “UniqueId”
name(6) = “SocketDesignation”
name(7) = “AddressWidth”
name(8) = “DataWidth”
name(9) = “Family”
name(10) = “Level”
name(11) = “Stepping”
name(12) = “MaxClockSpeed”
name(13) = “CurrentClockSpeed”
name(14) = “InstallDate”
name(15) = “PNPDeviceID”
name(16) = “L2CacheSize”
name(17) = “L2CacheSpeed”
name(18) = “L3CacheSize”
name(19) = “L3CacheSpeed”
name(20) = “Architecture ”
name(21) = “Availability”
name(22) = “CurrentVoltage”
name(23) = “ProcessorType”
name(24) = “StatusInfo”
name(25) = “UpgradeMethod”
name(26) = “VoltageCaps”
name(27) = “VoltageCaps”
Dim i As Integer
Dim cpu As New System.Management.ManagementObjectSearcher(“SELECT * FROM Win32_Processor”)
For Each obj1 As System.Management.ManagementObject In cpu.Get
Try
info(0) = obj1(“DeviceID”)
Catch ex As Exception
info(0) = “”
End Try
Try
info(1) = obj1(“ProcessorID”).ToString.Trim
Catch ex As Exception
info(1) = “”
End Try
Try
info(2) = obj1(“Manufacturer”).ToString.Trim
Catch ex As Exception
info(2) = “”
End Try
Try
info(3) = obj1(“Name”).ToString.Trim
Catch ex As Exception
info(3) = “”
End Try
Try
info(4) = obj1(“Description”).ToString.Trim
Catch ex As Exception
info(4) = “”
End Try
Try
info(5) = obj1(“UniqueId”)
Catch ex As Exception
info(5) = “”
End Try
Try
info(6) = obj1(“SocketDesignation”)
Catch ex As Exception
info(6) = “”
End Try
Try
info(7) = obj1(“AddressWidth”)
Catch ex As Exception
info(7) = “”
End Try
Try
info(8) = obj1(“DataWidth”)
Catch ex As Exception
info(8) = “”
End Try
Try
info(9) = obj1(“Family”)
Catch ex As Exception
info(9) = “”
End Try
Try
info(10) = obj1(“Level”)
Catch ex As Exception
info(10) = “”
End Try
Try
info(11) = obj1(“Stepping”)
Catch ex As Exception
info(11) = “”
End Try
Try
info(12) = obj1(“MaxClockSpeed”)
Catch ex As Exception
info(12) = “”
End Try
Try
info(13) = obj1(“CurrentClockSpeed”)
Catch ex As Exception
info(13) = “”
End Try
Try
info(14) = obj1(“InstallDate”)
Catch ex As Exception
info(14) = “”
End Try
Try
info(15) = obj1(“PNPDeviceID”)
Catch ex As Exception
info(15) = “”
End Try
Try
info(16) = obj1(“L2CacheSize”)
Catch ex As Exception
info(16) = “”
End Try
Try
info(17) = obj1(“L2CacheSpeed”)
Catch ex As Exception
info(17) = “”
End Try
Try
info(18) = obj1(“L3CacheSize”)
Catch ex As Exception
info(18) = “”
End Try
Try
info(19) += obj1(“L3CacheSpeed”)
Catch ex As Exception
info(19) = “”
End Try
Try
Select Case obj1(“Architecture”).ToString
Case “0”
info(20) = “x86”
Case “1”
info(20) = “MIPS”
Case “2”
info(20) = “Alpha”
Case “3”
info(20) = “PowerPC”
Case “6”
info(20) = “Intel Itanium Processor Family (IPF)”
Case “9”
info(20) = “x64”
Case Else
info(20) = obj1(“Architecture”).ToString
End Select
Catch ex As Exception
info(20) = “”
End Try
Try
info(21) = obj1(“Availability”)
Catch ex As Exception
info(21) = “”
End Try
Try
info(22) = obj1(“CurrentVoltage”)
Catch ex As Exception
info(22) = “”
End Try
Try
Select Case obj1(“ProcessorType”)
Case “1”
info(23) = “Other”
Case “2”
info(23) = “Unknown”
Case “3”
info(23) = “Central Processor”
Case “4”
info(23) = “Math Processor”
Case “5”
info(23) = “DSP Processor”
Case “6”
info(23) = “Video Processor”
Case Else
info(23) = obj1(“ProcessorType”)
End Select
Catch ex As Exception
info(23) = “”
End Try
Try
Select Case obj1(“StatusInfo”)
Case “1”
info(24) = “Other”
Case “2”
info(24) = “Unknown”
Case “3”
info(24) = “Enabled”
Case “4”
info(24) = “Disabled”
Case “5”
info(24) = “Not Applicable”
Case Else
info(24) = obj1(“StatusInfo”)
End Select
Catch ex As Exception
info(24) = “”
End Try
Try
Select Case obj1(“UpgradeMethod”).ToString
Case “1”
info(25) = “Other”
Case “2”
info(25) = “Unknown”
Case “3”
info(25) = “Daughter Board”
Case “4”
info(25) = “ZIF Socket”
Case “5”
info(25) = “Replacement/Piggy Back”
Case “6”
info(25) = “None”
Case “7”
info(25) = “LIF Socket”
Case “8”
info(25) = “Slot 1”
Case “9”
info(25) = “Slot 2”
Case “10”
info(25) = “370 Pin Socket”
Case “11”
info(25) = “Slot A”
Case “12”
info(25) = “Slot M”
Case “13”
info(25) = “Socket 423”
Case “14”
info(25) = “Socket A (Socket 462)”
Case “15”
info(25) = “Socket 478”
Case “16”
info(25) = “Socket 754”
Case “17”
info(25) = “Socket 940”
Case “18”
info(25) = “Socket 939”
Case Else
info(25) = obj1(“UpgradeMethod”).ToString
End Select
Catch ex As Exception
info(25) = “”
End Try
Dim tmp As UInt32
Try
tmp = obj1(“VoltageCaps”)
Catch ex As Exception
tmp = 0
End Try
Select Case tmp
Case 0
info(26) = “Unknown”
Case 1
info(26) = “5 volts”
Case 2
info(26) = “3.3 volts”
Case 3
info(26) = “2.9 volts”
Case Else
info(26) = Hex$(tmp)
End Select
For i = 0 To 28
Dim newitem1 As New ListViewItem(name(i))
newitem1.SubItems.Add(info(i))
List_cpu.Items.Add(newitem1)
Next
Next
End Sub
Private Sub get_net_info()
Dim info(30) As String
Dim name(30) As String
name(0) = “DeviceID”
name(1) = “MACAddress”
name(2) = “Manufacturer”
name(3) = “AdapterTypeID”
name(4) = “AdapterType”
name(5) = “Description”
name(6) = “Name”
name(7) = “ProductName”
name(8) = “Caption”
name(9) = “ServiceName”
name(10) = “SystemCreationClassName”
name(11) = “SystemName”
name(12) = “TimeOfLastReset”
name(13) = “ConfigManagerUserConfig”
name(14) = “NetConnectionStatus”
Dim i As Integer
Dim net As New System.Management.ManagementObjectSearcher(“select * from Win32_NetworkAdapter”)
For Each wmiobj As System.Management.ManagementObject In net.Get
For i = 0 To 14
Try
info(i) = wmiobj(name(i))
Catch ex As Exception
info(i) = “”
End Try
Next
For i = 0 To 15
Dim newitem1 As New ListViewItem(name(i))
newitem1.SubItems.Add(info(i))
List_net.Items.Add(newitem1)
Next
Next
End Sub
Private Sub get_op_info()
Dim info(30) As String
Dim name(30) As String
name(0) = “CSName”
name(1) = “Caption”
name(2) = “Version”
name(3) = “BuildNumber”
name(4) = “BuildType”
name(5) = “OSType”
name(6) = “OSProductsuite”
name(7) = “OtherTypeDescription”
Dim i As Integer
Dim newitem As New ListViewItem(“操作系统”)
List_op.Items.Add(newitem)
Dim opt As New System.Management.ManagementObjectSearcher(“Select * from Win32_OperatingSystem”)
For Each obj2 As System.Management.ManagementObject In opt.Get
For i = 0 To 7
Try
info(i) = obj2(name(i))
Catch ex As Exception
info(i) = “”
End Try
Next
For i = 0 To 8
Dim newitem1 As New ListViewItem(name(i))
newitem1.SubItems.Add(info(i))
List_op.Items.Add(newitem1)
Next
Next
End Sub
Private Sub get_net2_info()
Dim i As Integer
Dim info(50) As String
Dim name(50) As String
name(0) = “Index”
name(1) = “IPEnabled”
name(2) = “Caption”
name(3) = “MACAddress”
name(4) = “IPAddress”
name(5) = “DefaultIPGateway”
name(6) = “IPSubnet”
name(7) = “DNSServerSearchOrder”
name(8) = “IPConnectionMetric”
name(9) = “IPSecPermitIPProtocols”
name(10) = “IPSecPermitTCPPorts”
name(11) = “IPSecPermitUDPPorts”
name(12) = “IPUseZeroBroadcast”
name(13) = “IPFilterSecurityEnabled”
name(14) = “IPPortSecurityEnabled”
name(15) = “DefaultTOS”
name(16) = “DefaultTTL”
name(17) = “IPXMediaType”
name(18) = “IPXAddress”
name(19) = “IPXFrameType”
name(20) = “IPXNetworkNumber”
name(21) = “IPXVirtualNetNumber”
name(22) = “ForwardBufferMemory”
name(23) = “ServiceName”
name(24) = “DHCPEnabled”
name(25) = “DHCPLeaseExpires”
name(26) = “DHCPLeaseObtained”
name(27) = “DHCPServer”
name(28) = “DNSDomain”
name(29) = “DNSHostName”
name(30) = “DNSEnabledForWINSResolution”
name(31) = “DNSServerSearchOrder”
name(32) = “IGMPLevel”
name(33) = “TcpipNetbiosOptions”
name(34) = “TcpMaxConnectRetransmissions”
name(35) = “TcpMaxDataRetransmissions”
name(36) = “TcpNumConnections”
name(37) = “TcpUseRFC1122UrgentPointer”
name(38) = “TcpWindowSize”
name(39) = “WINSEnableLMHostsLookup”
name(40) = “WINSHostLookupFile”
name(41) = “WINSPrimaryServer”
name(42) = “WINSScopeID”
name(43) = “WINSSecondaryServer”
Dim opt As New System.Management.ManagementObjectSearcher(“Select * from Win32_NetworkAdapterConfiguration”)
For Each obj2 As System.Management.ManagementObject In opt.Get
info(0) = obj2(“Index”)
If CBool(obj2(“IPEnabled”)) Then
Try
info(1) = “True”
Catch ex As Exception
info(1) = “”
End Try
Try
info(2) = obj2(“Caption”)
Catch ex As Exception
info(2) = “”
End Try
Try
info(3) = obj2(“MACAddress”)
Catch ex As Exception
info(3) = “”
End Try
Try
info(4) = obj2(“IPAddress”)(0)
Catch ex As Exception
info(4) = “”
End Try
Try
info(5) = obj2(“DefaultIPGateway”)(0)
Catch ex As Exception
info(5) = “”
End Try
info(6) = obj2(“IPSubnet”)(0)
Try
info(7) = obj2(“DNSServerSearchOrder”)(0)
info(7) = info(7) + ” 备用：” + obj2(“DNSServerSearchOrder”)(1)
Catch ex As Exception
info(7) = info(7) + ” 备用：”
End Try
Try
info(8) = obj2(“IPConnectionMetric”)
Catch ex As Exception
info(8) = “”
End Try
Try
info(9) = obj2(“IPSecPermitIPProtocols”)(0)
Catch ex As Exception
info(9) = “”
End Try
Try
info(10) = obj2(“IPSecPermitTCPPorts”)(0)
Catch ex As Exception
info(10) = “”
End Try
Try
info(11) = obj2(“IPSecPermitUDPPorts”)(0)
Catch ex As Exception
info(11) = “”
End Try
Try
info(12) = obj2(“IPUseZeroBroadcast”)
Catch ex As Exception
info(12) = “”
End Try
Try
info(13) = obj2(“IPFilterSecurityEnabled”)
Catch ex As Exception
info(13) = “”
End Try
Try
info(14) = obj2(“IPPortSecurityEnabled”)
Catch ex As Exception
info(14) = “”
End Try
Try
info(15) = obj2(“DefaultTOS”)
Catch ex As Exception
info(15) = “”
End Try
Try
info(16) = obj2(“DefaultTTL”)
Catch ex As Exception
info(16) = “”
End Try
Try
info(17) = obj2(“IPXMediaType”)
Catch ex As Exception
info(17) = “”
End Try
Try
info(18) = obj2(“IPXAddress”)
Catch ex As Exception
info(18) = “”
End Try
Try
info(19) = obj2(“IPXFrameType”)(0)
Catch ex As Exception
info(19) = “”
End Try
Try
info(20) = obj2(“IPXNetworkNumber”)(0)
Catch ex As Exception
info(20) = “”
End Try
Try
info(21) = obj2(“IPXVirtualNetNumber”)
Catch ex As Exception
info(21) = “”
End Try
Try
info(22) = obj2(“ForwardBufferMemory”)
Catch ex As Exception
info(22) = “”
End Try
Try
info(23) = obj2(“ServiceName”)
Catch ex As Exception
info(23) = “”
End Try
Try
info(24) = obj2(“DHCPEnabled”)
Catch ex As Exception
info(24) = “”
End Try
Try
info(25) = obj2(“DHCPLeaseExpires”).ToString
Catch ex As Exception
info(25) = “”
End Try
Try
info(26) = obj2(” DHCPLeaseObtained”).ToString
Catch ex As Exception
info(26) = “”
End Try
Try
info(27) = obj2(” DHCPServer”).ToString
Catch ex As Exception
info(27) = “”
End Try
Try
info(28) = obj2(” DNSDomain”).ToString
Catch ex As Exception
info(28) = “”
End Try
Try
info(29) = obj2(” DNSHostName”).ToString
Catch ex As Exception
info(29) = “”
End Try
Try
info(30) = obj2(” DNSEnabledForWINSResolution”).ToString
Catch ex As Exception
info(30) = “”
End Try
Try
info(31) = obj2(” DNSServerSearchOrder”)(0)
Catch ex As Exception
info(31) = “”
End Try
Try
info(32) = obj2(” IGMPLevel”)(0)
Catch ex As Exception
info(32) = “”
End Try
Try
info(33) = obj2(” TcpipNetbiosOptions”)(0)
Catch ex As Exception
info(33) = “”
End Try
Try
info(34) = obj2(” TcpMaxConnectRetransmissions”)(0)
Catch ex As Exception
info(34) = “”
End Try
Try
info(35) = obj2(” TcpMaxDataRetransmissions”)(0)
Catch ex As Exception
info(35) = “”
End Try
Try
info(36) = obj2(” TcpNumConnections”)(0)
Catch ex As Exception
info(36) = “”
End Try
Try
info(37) = obj2(” TcpUseRFC1122UrgentPointer”)(0)
Catch ex As Exception
info(37) = “”
End Try
Try
info(38) = obj2(” TcpWindowSize”)(0)
Catch ex As Exception
info(38) = “”
End Try
Try
info(39) = obj2(” WINSEnableLMHostsLookup”)(0)
Catch ex As Exception
info(39) = “”
End Try
Try
info(40) = obj2(” WINSHostLookupFile”)(0)
Catch ex As Exception
info(40) = “”
End Try
Try
info(41) = obj2(” WINSPrimaryServer”)(0)
Catch ex As Exception
info(41) = “”
End Try
Try
info(42) = obj2(” WINSScopeID”)(0)
Catch ex As Exception
info(42) = “”
End Try
Try
info(43) = obj2(” WINSSecondaryServer”)(0)
Catch ex As Exception
info(43) = “”
End Try
For i = 0 To 44
Dim newitem1 As New ListViewItem(name(i))
newitem1.SubItems.Add(info(i))
List_net2.Items.Add(newitem1)
Next
End If
Next
End Sub
Private Sub get_disk_info()
Dim i As Integer
Dim info(50) As String
Dim name(50) As String
name(0) = “Index”
name(1) = “Caption”
name(2) = “Description”
name(3) = “DeviceID”
name(4) = “Name”
name(5) = “MediaType”
name(6) = “Model”
name(7) = “Manufacturer”
name(8) = “InterfaceType”
name(9) = “CreationClassName”
name(10) = “CompressionMethod”
name(11) = “Partitions”
name(12) = “NumberOfMediaSupported”
name(13) = “Size”
name(14) = “MaxMediaSize”
name(15) = “TotalHeads”
name(16) = “TotalCylinders”
name(17) = “TracksPerCylinder”
name(18) = “TotalTracks”
name(19) = “SectorsPerTrack”
name(20) = “TotalSectors”
name(21) = “BytesPerSector”
name(22) = “MinBlockSize”
name(23) = “MaxBlockSize”
name(24) = “Availability”
name(25) = “Capabilities”
name(26) = “CapabilityDescriptions”
name(27) = “DefaultBlockSize”
name(28) = “FirmwareRevision”
name(29) = “SCSIBus”
name(30) = “SCSILogicalUnit”
name(31) = “SCSIPort”
name(32) = “SCSITargetId”
name(33) = “SerialNumber”
name(34) = “Signature”
name(35) = “Status”
name(36) = “StatusInfo”
name(37) = “SystemCreationClassName”
name(38) = “SystemName”
Dim opt As New System.Management.ManagementObjectSearcher(“Select * from Win32_DiskDrive”)
For Each obj2 As System.Management.ManagementObject In opt.Get
Try
info(0) = obj2(“Index”)
Catch ex As Exception
info(0) = “”
End Try
Try
info(1) = obj2(“Caption”)
Catch ex As Exception
info(1) = “”
End Try
Try
info(2) = obj2(“Description”)
Catch ex As Exception
info(2) = “”
End Try
Try
info(3) = obj2(“DeviceID”)
Catch ex As Exception
info(3) = “”
End Try
Try
info(4) = obj2(“Name”)
Catch ex As Exception
info(4) = “”
End Try
Try
info(5) = obj2(“MediaType”)
Catch ex As Exception
info(5) = “”
End Try
Try
info(6) = obj2(“Model”)
Catch ex As Exception
info(6) = “”
End Try
Try
info(7) = obj2(“Manufacturer”)
Catch ex As Exception
info(7) = “”
End Try
Try
info(8) = obj2(“InterfaceType”)
Catch ex As Exception
info(8) = “”
End Try
Try
info(9) = obj2(“CreationClassName”)
Catch ex As Exception
info(9) = “”
End Try
Try
info(10) = obj2(“CompressionMethod”)
Catch ex As Exception
info(10) = “”
End Try
Try
info(11) = obj2(“Partitions”)
Catch ex As Exception
info(11) = “”
End Try
Try
info(12) = obj2(“NumberOfMediaSupported”)
Catch ex As Exception
info(12) = “”
End Try
Try
info(13) = obj2(“Size”)
Catch ex As Exception
info(13) = “”
End Try
Try
info(14) = obj2(“MaxMediaSize”)
Catch ex As Exception
info(14) = “”
End Try
Try
info(15) = obj2(“TotalHeads”)
Catch ex As Exception
info(15) = “”
End Try
Try
info(16) = obj2(“TotalCylinders”)
Catch ex As Exception
info(16) = “”
End Try
Try
info(17) = obj2(“TracksPerCylinder”)
Catch ex As Exception
info(17) = “”
End Try
Try
info(18) = obj2(“TotalTracks”)
Catch ex As Exception
info(18) = “”
End Try
Try
info(19) = obj2(“SectorsPerTrack”)
Catch ex As Exception
info(19) = “”
End Try
Try
info(20) = obj2(“TotalSectors”)
Catch ex As Exception
info(20) = “”
End Try
Try
info(21) = obj2(“BytesPerSector”)
Catch ex As Exception
info(21) = “”
End Try
Try
info(22) = obj2(“MinBlockSize”)
Catch ex As Exception
info(22) = “”
End Try
Try
info(23) = obj2(“MaxBlockSize”)
Catch ex As Exception
info(23) = “”
End Try
Try
info(24) = obj2(“Availability”)
Catch ex As Exception
info(24) = “”
End Try
Try
info(25) = obj2(“Capabilities”)(0)
Catch ex As Exception
info(25) = “”
End Try
Try
info(26) = obj2(“CapabilityDescriptions”)(0)
Catch ex As Exception
info(26) = “”
End Try
Try
info(27) = obj2(“DefaultBlockSize”)
Catch ex As Exception
info(27) = “”
End Try
Try
info(28) = obj2(“FirmwareRevision”)
Catch ex As Exception
info(28) = “”
End Try
Try
info(29) = obj2(“SCSIBus”)
Catch ex As Exception
info(29) = “”
End Try
Try
info(30) = obj2(“SCSILogicalUnit”)
Catch ex As Exception
info(30) = “”
End Try
Try
info(31) = obj2(“SCSIPort”)
Catch ex As Exception
info(31) = “”
End Try
Try
info(32) = obj2(“SCSITargetId”)
Catch ex As Exception
info(32) = “”
End Try
Try
info(33) = obj2(“SerialNumber”)
Catch ex As Exception
info(33) = “”
End Try
Try
info(34) = obj2(“Signature”)
Catch ex As Exception
info(34) = “”
End Try
Try
info(35) = obj2(“Status”)
Catch ex As Exception
info(35) = “”
End Try
Try
info(36) = obj2(“StatusInfo”)
Catch ex As Exception
info(36) = “”
End Try
Try
info(37) = obj2(“SystemCreationClassName”)
Catch ex As Exception
info(37) = “”
End Try
Try
info(38) = obj2(“SystemName”)
Catch ex As Exception
info(38) = “”
End Try
For i = 0 To 39
Dim newitem1 As New ListViewItem(name(i))
newitem1.SubItems.Add(info(i))
List_disk.Items.Add(newitem1)
Next
Next
End Sub
Private Sub get_disk_2_info()
Dim i As Integer
Dim info(50) As String
Dim name(50) As String
name(0) = “Id”
name(1) = “Caption”
name(2) = “Description”
name(3) = “DeviceID”
name(4) = “Name”
name(5) = “Drive”
name(6) = “MediaType”
name(7) = “PNPDeviceID”
name(8) = “MaxMediaSize”
name(9) = “MaxBlockSize”
name(10) = “Manufacturer”
name(11) = “FileSystemFlags”
name(12) = “DefaultBlockSize”
name(13) = “FileSystemFlagsEx”
name(14) = “Availability”
name(15) = “CreationClassName”
name(16) = “MaximumComponentLength”
name(17) = “MfrAssignedRevisionLevel”
name(18) = “MinBlockSize”
name(19) = “NumberOfMediaSupported”
name(20) = “RevisionLevel”
name(21) = “VolumeSerialNumber”
name(22) = “VolumeName”
name(23) = “TransferRate”
name(24) = “SystemName”
name(25) = “SystemCreationClassName”
name(26) = “Size”
name(27) = “StatusInfo”
name(28) = “Status”
name(29) = “SerialNumber”
name(30) = “SCSITargetId”
name(31) = “SCSIPort”
name(32) = “SCSIBus”
name(33) = “SCSILogicalUnit”
Dim j As Integer
Dim opt As New System.Management.ManagementObjectSearcher(“Select * from Win32_CDROMDrive”)
For Each obj2 As System.Management.ManagementObject In opt.Get
For j = 0 To 33
Try
info(j) = obj2(name(j))
Catch ex As Exception
info(j) = “”
End Try
Next
For i = 0 To 34
Dim newitem1 As New ListViewItem(name(i))
newitem1.SubItems.Add(info(i))
List_disk.Items.Add(newitem1)
Next
Next
End Sub
Private Sub get_disp_info()
Dim i As Integer
Dim info(50) As String
Dim name(50) As String
Dim j As Integer
name(0) = “Name”
name(1) = “Caption”
name(2) = “ColorPlanes”
name(3) = “Description”
name(4) = “RefreshRate”
name(5) = “SettingID”
name(6) = “VideoMode”
name(7) = “VerticalResolution”
name(8) = “SystemPaletteEntries”
name(9) = “ReservedSystemPaletteEntries”
name(10) = “BitsPerPixel”
name(11) = “DeviceEntriesInAColorTable”
name(12) = “DeviceSpecificPens”
name(13) = “HorizontalResolution”
Dim opt As New System.Management.ManagementObjectSearcher(“Select * from Win32_DisplayControllerConfiguration”)
For Each obj2 As System.Management.ManagementObject In opt.Get
For j = 0 To 13
Try
info(j) = obj2(name(j))
Catch ex As Exception
info(j) = “”
End Try
Next
For i = 0 To 14
Dim newitem1 As New ListViewItem(name(i))
newitem1.SubItems.Add(info(i))
List_disp.Items.Add(newitem1)
Next
Next
End Sub
Private Sub get_bois_info()
Dim i As Integer
Dim info(50) As String
Dim name(50) As String
Dim j As Integer
name(0) = “Name”
name(1) = “Caption”
name(2) = “SerialNumber”
name(3) = “Manufacturer”
name(4) = “Description”
name(5) = “PrimaryBIOS”
name(6) = “Version”
name(7) = “Status”
name(8) = “BuildNumber”
name(9) = “CodeSet”
name(10) = “CurrentLanguage”
name(11) = “IdentificationCode”
name(12) = “InstallableLanguages”
name(13) = “InstallDate”
name(14) = “LanguageEdition”
name(15) = “OtherTargetOS”
name(16) = “ReleaseDate”
name(17) = “SMBIOSBIOSVersion”
name(18) = “SMBIOSMajorVersion”
name(19) = “SMBIOSMinorVersion”
name(20) = “SMBIOSPresent”
name(21) = “SoftwareElementID”
name(22) = “SoftwareElementState”
name(23) = “TargetOperatingSystem”
name(24) = “ListOfLanguages”
name(25) = “BIOSVersion”
name(26) = “BiosCharacteristics”
Dim k As Integer
Dim opt As New System.Management.ManagementObjectSearcher(“Select * from Win32_BIOS”)
For Each obj2 As System.Management.ManagementObject In opt.Get
For j = 0 To 23
Try
info(j) = obj2(name(j))
Catch ex As Exception
info(j) = “”
End Try
Next
Try
info(24) = “”
For k = 0 To obj2(name(24)).length – 1
info(24) += obj2(name(24))(k)
Next
Catch ex As Exception
info(24) = “”
End Try
Try
info(25) = “”
For k = 0 To obj2(name(25)).length – 1
info(25) += obj2(name(25))(k)
Next
Catch ex As Exception
info(25) = “”
End Try
Try
info(26) = “”
For k = 0 To obj2(name(26)).length – 1
info(26) += obj2(name(26))(k)
Next
Catch ex As Exception
info(26) = “”
End Try
For i = 0 To 27
Dim newitem1 As New ListViewItem(name(i))
newitem1.SubItems.Add(info(i))
List_bois.Items.Add(newitem1)
Next
Next
End Sub
Private Sub get_base_info()
Dim i As Integer
Dim info(50) As String
Dim name(50) As String
Dim j As Integer
name(0) = “Name”
name(1) = “Caption”
name(2) = “SerialNumber”
name(3) = “Manufacturer”
name(4) = “Description”
name(5) = “Model”
name(6) = “HostingBoard”
name(7) = “HotSwappable”
name(8) = “InstallDate”
name(9) = “Version”
name(10) = “Weight”
name(11) = “Width”
name(12) = “Depth”
name(13) = “Height”
name(14) = “Tag”
name(15) = “Status”
name(16) = “SKU”
name(17) = “SlotLayout”
name(18) = “SpecialRequirements”
name(19) = “RequiresDaughterBoard”
name(20) = “RequirementsDescription”
name(21) = “Replaceable”
name(22) = “Removable”
name(23) = “Product”
name(24) = “PoweredOn”
name(25) = “PartNumber”
name(26) = “OtherIdentifyingInfo”
Dim opt As New System.Management.ManagementObjectSearcher(“Select * from Win32_BaseBoard”)
For Each obj2 As System.Management.ManagementObject In opt.Get
For j = 0 To 26
Try
info(j) = obj2(name(j))
Catch ex As Exception
info(j) = “”
End Try
Next
For i = 0 To 27
Dim newitem1 As New ListViewItem(name(i))
newitem1.SubItems.Add(info(i))
List_main.Items.Add(newitem1)
Next
Next
get_mother_info()
get_on_bord_info()
End Sub
Private Sub get_mother_info()
Dim i As Integer
Dim info(50) As String
Dim name(50) As String
Dim j As Integer
name(0) = “Name”
name(1) = “Caption”
name(2) = “PNPDeviceID”
name(3) = “DeviceID”
name(4) = “Description”
name(5) = “Availability”
name(6) = “ConfigManagerErrorCode”
name(7) = “ConfigManagerUserConfig”
name(8) = “CreationClassName”
name(9) = “ErrorDescription”
name(10) = “InstallDate”
name(11) = “LastErrorCode”
name(12) = “PowerManagementSupported”
name(13) = “PrimaryBusType”
name(14) = “RevisionNumber”
name(15) = “SecondaryBusType”
name(16) = “Status”
name(17) = “StatusInfo”
name(18) = “SystemCreationClassName”
name(19) = “SystemName”
Dim opt As New System.Management.ManagementObjectSearcher(“Select * from Win32_MotherboardDevice”)
For Each obj2 As System.Management.ManagementObject In opt.Get
For j = 0 To 19
Try
info(j) = obj2(name(j))
Catch ex As Exception
info(j) = “”
End Try
Next
For i = 0 To 20
Dim newitem1 As New ListViewItem(name(i))
newitem1.SubItems.Add(info(i))
List_main.Items.Add(newitem1)
Next
Next
End Sub
Private Sub get_on_bord_info()
Dim i As Integer
Dim info(50) As String
Dim name(50) As String
Dim j As Integer
name(0) = “Name”
name(1) = “Caption”
name(2) = “PNPDeviceID”
name(3) = “Description”
name(4) = “Manufacturer”
name(5) = “Model”
name(6) = “SerialNumber”
name(7) = “SKU”
name(8) = “Status”
name(9) = “Version”
name(10) = “Tag”
name(11) = “PartNumber”
name(12) = “Replaceable”
name(13) = “PoweredOn”
name(14) = “DeviceType”
name(15) = “CreationClassName”
name(16) = “HotSwappable”
name(17) = “Removable”
name(18) = “InstallDate”
name(19) = “OtherIdentifyingInfo”
name(20) = “Enabled”
Dim opt As New System.Management.ManagementObjectSearcher(“Select * from Win32_OnBoardDevice”)
For Each obj2 As System.Management.ManagementObject In opt.Get
For j = 0 To 20
Try
info(j) = obj2(name(j))
Catch ex As Exception
info(j) = “”
End Try
Next
For i = 0 To 21
Dim newitem1 As New ListViewItem(name(i))
newitem1.SubItems.Add(info(i))
List_main.Items.Add(newitem1)
Next
Next
End Sub
Private Sub get_PhysicalMemoryy_info()
Dim i As Integer
Dim info(50) As String
Dim name(50) As String
Dim j As Integer
name(0) = “Tag”
name(1) = “Name”
name(2) = “Caption”
name(3) = “Description”
name(4) = “MemoryType”
name(5) = “Manufacturer”
name(6) = “Model”
name(7) = “DeviceLocator”
name(8) = “Capacity”
name(9) = “SerialNumber”
name(10) = “Version”
name(11) = “PartNumber”
name(12) = “DataWidth”
name(13) = “Speed”
name(14) = “Status”
name(15) = “TotalWidth”
name(16) = “TypeDetail”
name(17) = “SKU”
name(18) = “Replaceable”
name(19) = “Removable”
name(20) = “BankLabel”
name(21) = “CreationClassName”
name(22) = “FormFactor”
name(23) = “HotSwappable”
name(24) = “InstallDate”
name(25) = “InterleaveDataDepth”
name(26) = “InterleavePosition”
name(27) = “OtherIdentifyingInfo”
name(28) = “PositionInRow”
name(29) = “PoweredOn”
Dim newitem As New ListViewItem(“物理内存”)
List_op.Items.Add(newitem)
Dim opt As New System.Management.ManagementObjectSearcher(“Select * from Win32_PhysicalMemory”)
For Each obj2 As System.Management.ManagementObject In opt.Get
For j = 0 To 29
Try
info(j) = obj2(name(j))
Catch ex As Exception
info(j) = “”
End Try
Next
For i = 0 To 30
Dim newitem1 As New ListViewItem(name(i))
newitem1.SubItems.Add(info(i))
List_op.Items.Add(newitem1)
Next
Next
End Sub
End Class
发布者：全栈程序员-用户IM，转载请注明出处：https://javaforall.cn/188961.html原文链接：https://javaforall.cn
【正版授权，激活自己账号】： Jetbrains全家桶Ide使用，1年售后保障，每天仅需1毛
【官方授权 正版激活】： 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...
