|
|
|
Определение параметров компа
|
|||
|---|---|---|---|
|
#18+
как определить параметры компа: процессор, память и тд, какойнидь бы код на вб ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.02.2006, 16:31:41 |
|
||
|
Определение параметров компа
|
|||
|---|---|---|---|
|
#18+
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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.02.2006, 16:43:58 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=33526424&tid=2166429]: |
0ms |
get settings: |
10ms |
get forum list: |
17ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
435ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
37ms |
get tp. blocked users: |
1ms |
| others: | 239ms |
| total: | 755ms |
| 0 / 0 |
