none
请问一下,如何用vb2008获取cpu和硬盘信息?***vb2008*** RRS feed

  • 问题

  • 如题,在网上找了几个例子,可是里面的类为什么在vs里找不到?

    请给vb.net实例代码,谢谢,

    网上找到的代码如下,其中ManagementScope,在对象浏览器中找到System.Management.ManagementScope,但是在代码里又说没有

     Public Sub LDisk()
            Dim st As New System.Text.StringBuilder()
            Dim servername As String = "somesystem"
            Dim oq As New ObjectQuery("select * from Win32_Logicaldisk")
            Dim scope As New ManagementScope("\\" + servername + "\root\cimv2")
            scope.Connect()
            Dim sea As New ManagementObjectSearcher(scope, oq)
            For Each proc As ManagementObject In sea.[Get]()
                st.AppendFormat("Desc = {0}, ID={1}, Volname={2}", proc("Description"), proc("Deviceid"), proc("VolumeName"))
                st.AppendFormat("" & Chr(10) & "")
            Next
            MessageBox.Show(st.ToString())
        End Sub


    Work8862

    2016年10月8日 8:42

全部回复

  • 请注意:

    引入:System.Management.dll类,才可以引入此命名空间。

    Imports System.Management
    Imports System.Text
     
    Module Module1
     
        Public Sub LDisk()
            Dim st As New StringBuilder()
            Dim servername As String = "somesystem"
            Dim oq As New ObjectQuery("select * from Win32_Logicaldisk")
            Dim scope As New ManagementScope("\\" + servername + "\root\cimv2")
            scope.Connect()
            Dim sea As New ManagementObjectSearcher(scope, oq)
            For Each proc As ManagementObject In sea.[Get]()
                st.AppendFormat("Desc = {0}, ID={1}, Volname={2}", proc("Description"), proc("Deviceid"), proc("VolumeName"))
                st.AppendFormat("" & Chr(10& "")
            Next
            Console.WriteLine(st.ToString())
        End Sub
     
        Sub Main()
            LDisk()
        End Sub
     
    End Module
    


    ASP.NET Forum
    StackOverFlow
    FreeRice Donate
    Issues to report



    2016年10月8日 9:18
    版主