Find sysinfo Ram cpu

jeg mener at du skal bruge WMI (http://msdn.microsoft.com/library/default.asp?url=/msdnmag/issues/02/05/wmiman/toc.asp)

ja men er der ikke nogle system.?????.???? som man kan bruge

jo

System.Management

http://www.c-sharpcorner.com/Code/2002/Jan/InterrogatingSystemsWithWMIJO.asp
http://www.csharphelp.com/archives3/archive585.html

har lidt kode - dog i C#

jeg har bare ikke "System.Management" ?

skal du ikke bare have en reference til System.Management.dll ?

http://www.almico.com på denne site kan du finde et program der hedder Speedfan som viser næsten alle ting! er total gratis og virker fint har det selv

fundet ud af det ?

ikke rigtig :(

jeg har side haft grund til at kigge lidt på memory i Win32 API så her er:

Imports System
Imports System.Runtime.InteropServices

<StructLayout(LayoutKind.Sequential)> _
Public Structure MEMORYSTATUS
    Public dwLength As Integer
    Public dwMemoryLoad As Integer
    Public dwTotalPhys As Integer
    Public dwAvailPhys As Integer
    Public dwTotalPageFile As Integer
    Public dwAvailPageFile As Integer
    Public dwTotalVirtual As Integer
    Public dwAvailVirtual As Integer
End Structure

Public Class MainClass

    <DllImport("kernel32.dll")> _
    Private Shared Sub GlobalMemoryStatus(ByRef lpBuffer As MEMORYSTATUS)
    End Sub

    Public Shared Sub Main(ByVal args As String())
        Dim ms As MEMORYSTATUS = New MEMORYSTATUS
        GlobalMemoryStatus(ms)
        Console.WriteLine("Used  = " & (ms.dwTotalPhys - ms.dwAvailPhys))
        Console.WriteLine("Free  = " & ms.dwAvailPhys)
        Console.WriteLine("Total = " & ms.dwTotalPhys)
    End Sub
End Class

bemærk at denne variant kun understøtter op til 2 GB RAM

og så fik jeg WMI til at virke for CPU info:

Imports System
Imports System.Management

Public Class MainClass

    Public Shared Sub Main(ByVal args As String())
        Dim objectQuery As WqlObjectQuery = New WqlObjectQuery("SELECT * FROM Win32_Processor")
        Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(objectQuery)
        For Each p As ManagementObject In searcher.Get
            Console.WriteLine("DeviceId = " & p("DeviceId"))
            Console.WriteLine("Name = " & p("Name"))
            Console.WriteLine("Manufacturer = " & p("Manufacturer"))
            Console.WriteLine("Description = " & p("Description"))
            Console.WriteLine("MaxClockSpeed = " & p("MaxClockSpeed").ToString())
        Next
    End Sub
End Class

og memory igen denne gang med WMI:

Imports System
Imports System.Management

Public Class MainClass
    Public Shared Sub Main(ByVal args As String())
        Dim objectQuery As WqlObjectQuery = New WqlObjectQuery("SELECT * FROM Win32_PhysicalMemory")
        Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(objectQuery)
        For Each p As ManagementObject In searcher.Get
            Console.WriteLine("BankLabel = " & p("BankLabel"))
            Console.WriteLine("Capacity = " & p("Capacity").ToString())
        Next
    End Sub
End Class

OK ?

h

som betyder ?

Har ikke tested det men det passer jo nok ;) TAK