Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Определение параметров компа / 2 сообщений из 2, страница 1 из 1
06.02.2006, 16:31:41
    #33526424
Tashasoft
Tashasoft
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение параметров компа
как определить параметры компа:
процессор, память и тд, какойнидь бы код на вб
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.02.2006, 16:43:58
    #33526460
Андрей Il
Андрей Il
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение параметров компа
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem In colSettings
Me.Print "OS Name: " & objOperatingSystem.Name
Me.Print "Version: " & objOperatingSystem.Version
Me.Print "Service Pack: " & _
objOperatingSystem.ServicePackMajorVersion _
& "." & objOperatingSystem.ServicePackMinorVersion
Me.Print "OS Manufacturer: " & objOperatingSystem.Manufacturer
Me.Print "Windows Directory: " & _
objOperatingSystem.WindowsDirectory
Me.Print "Locale: " & objOperatingSystem.Locale
Me.Print "Available Physical Memory: " & _
objOperatingSystem.FreePhysicalMemory
Me.Print "Total Virtual Memory: " & _
objOperatingSystem.TotalVirtualMemorySize
Me.Print "Available Virtual Memory: " & _
objOperatingSystem.FreeVirtualMemory
Me.Print "OS Name: " & objOperatingSystem.SizeStoredInPagingFiles
Next
Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer In colSettings
Me.Print "System Name: " & objComputer.Name
Me.Print "System Manufacturer: " & objComputer.Manufacturer
Me.Print "System Model: " & objComputer.Model
Me.Print "Time Zone: " & objComputer.CurrentTimeZone
Me.Print "Total Physical Memory: " & _
objComputer.TotalPhysicalMemory
Next
Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_Processor")
For Each objProcessor In colSettings
Me.Print "System Type: " & objProcessor.Architecture
Me.Print "Processor: " & objProcessor.Description
Next
Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_BIOS")
For Each objBIOS In colSettings
Me.Print "BIOS Version: " & objBIOS.Version
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Определение параметров компа / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 491ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2166429]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 194ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 206ms
total:  491ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]