Hallo Bernd Leutenecker
Du meintest
[..]
> Ueber unsere Inventarisierungssoftware kann ich
> im WMI-Bereich keine Infos finden, grundsaetzlich
> jedoch im DMI-Bereich. Doch gerade solche Details
> wie den RAM-Typ konnte ich diesen Informationen
> nicht entnehmen. Ich habe nun CPU-Z auf eine PC
> geprueft; damit erhielt ich die gesuchten Daten.
>
> Danke!

falls du noch basteln magst
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
Wscript.Echo s
--
mfg
Michael
Bitte nur in der NewsGroup antworten
www.mbormann.de