.:LAVteam:. > Определение типа памяти

Помощь - Поиск - Пользователи - Календарь

Полная версия этой страницы: Определение типа памяти

.:LAVteam:. > Компьютерный форум > Программирование

s-nicky

9.11.2007 - 10:49

Привет всем.
Кто нибудь знает как можно определить тип памяти установленной на компе (DDR, DDR2 и т.п.)? Желательно с помощью WMI, WSH, VB.

s-nicky

12.11.2007 - 08:35

Цитата(Volk1 @ 9.11.2007 - 17:31)

Everest, PC Wizard 2008.....

Спасибо за ответ. Вот только стал бы я задавать этот вопрос в разделе ПРОГРАММИРОВАНИЕ, если бы мне нужно было узнать какой программой это можно сделать. Вопрос не закрыт.

Volk1

12.11.2007 - 11:43

.......Задачей WBEM является разработка таких стандартов удалённого управления информационной средой предприятия, которые не зависят от конкретного оборудования, сетевой инфраструктуры, операционной системы, файловой системы и т.д. .......

А для определения типа памяти с удалённым доступом попробуй EVEREST Corporate Edition.

Лишний раз напомню: данный раздел посвящен ПРОГРАММИРОВАНИЮ. Поэтому вопрос об определении типа памяти предполагает самостоятельное определение с использованием языков программирования в своем собственном программном продукте.
Читать ПРАВИЛА! /Fallcom

s-nicky

15.11.2007 - 08:52

Код

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory")
Dim txtResult
For Each objItem in colItems
  Select Case objItem.FormFactor
    Case "0"
     txtResult = txtResult & " Unknown"
    Case "1"
     txtResult = txtResult & " Other"
    Case "2"
     txtResult = txtResult & " SIP"
    Case "3"
     txtResult = txtResult & " DIP"
    Case "4"
     txtResult = txtResult & "  ZIP"
    Case "5"
     txtResult = txtResult & " SOJ"
    Case "6"
     txtResult = txtResult & "  Proprietary"
    Case "7"
     txtResult = txtResult & " SIMM"
    Case "8"
     txtResult = " DIMM"
    Case "9"
     txtResult = txtResult & " TSOP"
    Case "10"
     txtResult = txtResult & " PGA"
    Case "11"
     txtResult = txtResult & " RIMM"
    Case "12"
     txtResult = txtResult & " SODIMM"
    Case "13"
     txtResult = txtResult & " SRIMM"
    Case "14"
     txtResult = txtResult & " SMD"
    Case "15"
     txtResult = txtResult & " SSMP"
    Case "16"
     txtResult = txtResult & " QFP"
    Case "17"
     txtResult = txtResult & " TQFP"
    Case "18"
     txtResult = txtResult & "  SOIC"
    Case "19"
     txtResult = txtResult & "  LCC"
    Case "20"
     txtResult = txtResult & " PLCC"
    Case "21"
     txtResult = txtResult & " BGA"
    Case "22"
     txtResult = txtResult & " FPBGA"
    Case "23"
     txtResult = txtResult & " LGA"
  End Select
  txtResult = txtResult & " " & objItem.Capacity/1024/1024 & "Мб"
  Select Case objItem.MemoryType
    Case "0"
     txtResult = txtResult & " Unknown"
    Case "1"
     txtResult = txtResult & " Other"
    Case "2"
     txtResult = txtResult & " DRAM"
    Case "3"
     txtResult = txtResult & " Synchronous DRAM"
    Case "4"
     txtResult = txtResult & " Cache DRAM"
    Case "5"
     txtResult = txtResult & " EDO"
    Case "6"
     txtResult = txtResult & " EDRAM"
    Case "7"
     txtResult = txtResult & " VDRAM"
    Case "8"
     txtResult = txtResult & " SRAM"
    Case "9"
     txtResult = txtResult & " RAM"
    Case "10"
     txtResult = txtResult & " ROM"
    Case "11"
     txtResult = txtResult & " Flash"
    Case "12"
     txtResult = txtResult & " EEPROM"
    Case "13"
     txtResult = txtResult & " FEPROM"
    Case "14"
     txtResult = txtResult & " EPROM"
    Case "15"
     txtResult = txtResult & " CDRAM"
    Case "16"
     txtResult = txtResult & " 3DRAM"
    Case "17"
     txtResult = txtResult & " SDRAM"
    Case "18"
     txtResult = txtResult & " SGRAM"
    Case "19"
     txtResult = txtResult & " RDRAM"
    Case "20"
     txtResult = txtResult & " DDR"
    Case "21"
     txtResult = txtResult & " DDR-2"
  End Select
     txtResult = txtResult & " " & objItem.Speed & "nanosec"
     txtResult = txtResult & " " & objItem.Model
     txtResult = txtResult & " " & objItem.OtherIdentifyingInfo
WScript.Echo TRIM(txtResult)
Next

Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.