通过 WMI 获取远程机器 TotalPhysicalMemory(物理内存)

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' GetTotalPhysicalMemory
'
' Discover how much RAM(MB) in computer
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function GetTotalPhysicalMemory(Host, UserName, Password)
Dim objComputer, colComputer
Dim intRamMB

Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(Host, "root\CIMV2", UserName, Password)
Set colComputer = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")

For Each objComputer in colComputer
intRamMB = int((objComputer.TotalPhysicalMemory) /1048576)+1
Next

GetTotalPhysicalMemory = intRamMB
End Function

TotalPhysicalMemory = GetTotalPhysicalMemory(irsHost, irsUserName, irsPassword)