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

来源：互联网发布：在matlab中数组赋值编辑：程序博客网时间：2024/05/16 01:03

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

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

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' GetTotalPhysicalMemory'' Discover how much RAM(MB) in computer''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Function GetTotalPhysicalMemory(Host, UserName, Password)Dim objComputer, colComputerDim intRamMBSet 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)+1NextGetTotalPhysicalMemory = intRamMBEnd Function

调用

TotalPhysicalMemory = GetTotalPhysicalMemory(irsHost, irsUserName, irsPassword)

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