VB.Net查询系统物理内存总数的方法 返回的数值单位为K 1024K=1M Sub Lobdotcn() Dim strComputer As String = "." Dim objWMIService As Object = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Dim colSettings As Object = objWMIService.ExecQuery _ ("Select * from Win32_ComputerSystem") Dim objComputer As Object For Each objComputer In colSettings MsgBox("System Name: " & objComputer.Name & vbCrLf & _ "Total Physical Memory: " & objComputer.TotalPhysicalMemory) Next End Sub
Dim objWMIService As Object = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Dim colSettings As Object = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
Dim objComputer As Object
For Each objComputer In colSettings
MsgBox("System Name: " & objComputer.Name & vbCrLf & _
"Total Physical Memory: " & objComputer.TotalPhysicalMemory)
Next End Sub