要添加 System.Management.Dll 引用
Dim oConn As New System.Management.ConnectionOptions()
Dim oMs As New System.Management.ManagementScope("\\localhost", oConn)
Dim oQuery As New System.Management.ObjectQuery("select AddressWidth fr om Win32_Processor")
Dim oSearcher As New System.Management.ManagementObjectSearcher(oMs, oQuery)
Dim oReturnCollection = oSearcher.[Get]()
Dim addressWidth As String = Nothing
For Each oReturn As object In oReturnCollection
addressWidth = oReturn("AddressWidth").ToString()
Next
msgbox(addressWidth)