以下是引用大红袍在2016/6/2 20:41:00的发言：
要添加 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)
感谢袍爷! 问题解决了
加好友 
发短信
Post By：2016/6/2 20:22:00 [显示全部帖子]
