vb.net pythonÄĸöºÃ_VS VB

´ó¼ÒºÃ£¬ÓÖ¼ûÃæÁË£¬ÎÒÊÇÄãÃǵÄÅóÓÑÈ«Õ»¾ý¡£ 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 ¨C 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 ¨C 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 ¨C 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

°æȨÉùÃ÷£º±¾ÎÄÄÚÈÝÓÉ»¥ÁªÍøÓû§×Ô·¢¹±Ï×£¬¸ÃÎĹ۵ã½ö´ú±í×÷Õß±¾ÈË¡£±¾Õ¾½öÌṩÐÅÏ¢´æ´¢¿Õ¼ä·þÎñ£¬²»ÓµÓÐËùÓÐȨ£¬²»³Ðµ£Ïà¹Ø·¨ÂÉÔðÈΡ£Èç·¢ÏÖ±¾Õ¾ÓÐÉæÏÓÇÖȨ/Î¥·¨Î¥¹æµÄÄÚÈÝ£¬ Çë·¢ËÍÓʼþÖÁ ¾Ù±¨£¬Ò»¾­²éʵ£¬±¾Õ¾½«Á¢¿Ìɾ³ý¡£

·¢²¼ÕߣºÈ«Õ»³ÌÐòÔ±Õ»³¤£¬×ªÔØÇë×¢Ã÷³ö´¦£ºhttps://javaforall.cn/188961.htmlÔ­ÎÄÁ´½Ó£ºhttps://javaforall.cn