Re: Was für ein RAM habe ich?

From: Helmut Rohrbeck (helrohr_at_gmx.net)
Date: 03/10/05 

Date: Thu, 10 Mar 2005 15:26:02 +0100

"Jürgen Schulz" <lieber-juergen@web.de> schrieb:

> Gibt es ein Windows internes Tool das mir wie bei "SiSoftware Sandra" die
> Speichermodule anzeigt die eingebaut sind (Hersteller, Modell, Typ,
> Geschwindigkeit ...)?

Ja. Es geht mit einem kleinen VBScript:

--------------------------------------------------------------------------
On Error Resume Next
strComputer = ".\root\cimv2"
s = ""
Set objWMI = GetObject("winmgmts:\\" & strComputer)
sWmiq = "Select * from Win32_PhysicalMemory"
Set colItems = objWMI.ExecQuery(sWmiq,,48)
For Each objItem in colItems
s=s & "Bank: " & objItem.BankLabel & vbCrLf
s=s & "Capacity: " & objItem.Capacity/1048576 & " MB" & vbCrLf
s=s & "Data Width: " & objItem.DataWidth & vbCrLf
s=s & "Speed: " & objItem.Speed & " ns" & vbCrLf
tx = objItem.TypeDetail
If tx="16" Then tx="Static column"
If tx="32" Then tx="Pseudo static"
If tx="64" Then tx="RAMBUS"
If tx="128" Then tx="Synchronous"
If tx="512" Then tx="EDO"
If tx="1024" Then tx="Window DRAM"
If tx="2048" Then tx="Cache DRAM"
s=s & "Type: " & tx & vbCrLf & vbCrLf
Next
MsgBox s
---------------------------------------------------------------------
Kopiere den Text zwischen den Linien in ein leeres Notepadfenster
und speichere die Datei als RAM.VBS - wenn Du darauf klickst,
poppt ein Fenster auf, das Dir die Daten der Module anzeigt. 

-- 
MfG Helmut Rohrbeck www.helmrohr.de
Bitte nicht per Mail, sondern hier antworten!
PMail nur über das Formular auf meiner Webseite.

Relevant Pages

  • Größe einer Festplatte ermitteln
    ... Set objWMIService = GetObject("winmgmts:\\" & strComputer ... Set colItems = objWMIService.ExecQuery("Select * from ... For Each objItem in colItems ... >Freundlichen Gruß ...
    (microsoft.public.de.german.scripting.wsh)
  • Re: Gesamten Arbeitsspeicher in Batch abfragen
    ... Set objWMI = GetObject("winmgmts:\\" & strComputer) ... Set colItems = objWMI.ExecQuery ... For Each objItem in colItems ...
    (microsoft.public.de.german.windowsxp.sonstiges)
  • Re: List Joined Domains
    ... Dim strDomainName, objNet, strFilename, objFSO, objTextStream ... Dim strComputer, objWMIservice, colItems, item ... Set objTextStream = objFSO.OpenTextFile ...
    (microsoft.public.scripting.vbscript)
  • Re: Finding a Specific Patch
    ... With the assistance you gave me I will ... > Dim objWMIService, colItems, colItem ... > For Each strComputer In arrComputers ... > For Each strHotfix In arrHotfix ...
    (microsoft.public.windows.server.scripting)
  • Edit einer Remote Registry mit einem anderen User
    ... da der Server nicht im AD ist muss ich einen ... strComputer = "otherComputer" ... Wenn ich auf einem anderen Host mit anderem User connecten möchte, ... Set objSWbemLocator = CreateObject ...
    (microsoft.public.de.german.scripting.wsh)