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

此代码是通过WMI 读取远程机器的系统信息

前提条件：远程机器地址，用户名和密码

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 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)

想了解更多，请阅读：http://www.computerperformance.co.uk/vbscript/wmi_memory.htm