通過 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