IPB

Здравствуйте, гость ( Вход | Регистрация )

 Правила форума Всем прочитать перед созданием темы!
 
Ответить в данную темуНачать новую тему
Определение типа памяти
s-nicky
сообщение 9.11.2007 - 10:49
Сообщение #1


Прохожий
Иконка группы

Группа: Пользователи
Пользователь №: 28822
Сообщений: 30
Регистрация: 6.02.2006
Загружено: байт
Скачано: байт
Коэффициент: ---
Спасибо сказали: 2 раз(а)



Привет всем.
Кто нибудь знает как можно определить тип памяти установленной на компе (DDR, DDR2 и т.п.)? Желательно с помощью WMI, WSH, VB.
Перейти в начало страницы
Вставить ник
+Цитировать сообщение
s-nicky
сообщение 12.11.2007 - 08:35
Сообщение #2


Прохожий
Иконка группы

Группа: Пользователи
Пользователь №: 28822
Сообщений: 30
Регистрация: 6.02.2006
Загружено: байт
Скачано: байт
Коэффициент: ---
Спасибо сказали: 2 раз(а)



Цитата(Volk1 @ 9.11.2007 - 17:31) *
huh.gif Everest, PC Wizard 2008.....

Спасибо за ответ. Вот только стал бы я задавать этот вопрос в разделе ПРОГРАММИРОВАНИЕ, если бы мне нужно было узнать какой программой это можно сделать. Вопрос не закрыт.
Перейти в начало страницы
Вставить ник
+Цитировать сообщение
Volk1
сообщение 12.11.2007 - 11:43
Сообщение #3


Завсегдатай
Иконка группы

Группа: Пользователи
Пользователь №: 32647
Сообщений: 126
Регистрация: 21.04.2006
Из: Москва
Загружено: байт
Скачано: байт
Коэффициент: ---
Спасибо сказали: 3 раз(а)



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

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


Сообщение отредактировал Fallcom - 12.11.2007 - 18:25
Перейти в начало страницы
Вставить ник
+Цитировать сообщение
s-nicky
сообщение 15.11.2007 - 08:52
Сообщение #4


Прохожий
Иконка группы

Группа: Пользователи
Пользователь №: 28822
Сообщений: 30
Регистрация: 6.02.2006
Загружено: байт
Скачано: байт
Коэффициент: ---
Спасибо сказали: 2 раз(а)



Код
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
Перейти в начало страницы
Вставить ник
+Цитировать сообщение

Ответить в данную темуНачать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



RSS Текстовая версия Сейчас: 18.10.2019 - 15:02